实用代码 – 九创科技

用CSS控制图片等比例缩放

寒林 — Thu, 03 Mar 2011 14:25:58 +0000

按比例缩小或者放大到某个尺寸，对于标准浏览器（如Firefox），或者最新都IE7,ie8浏览器，
直接使用max-width,max-height；或者min-width,min-height的CSS属性即可。如：

img{max-width:100px;max-height:100px;}
img{min-width:100px;min-height:100px;}

对于IE6及其以下版本的浏览器，则可以利用其支持的expression属性，在css code中嵌入javascript code来实现图片的缩放,如下：
.thumbImage {max-width: 100px;max-height: 100px;} /* for Firefox & IE7 */
* html .thumbImage { /* for IE6 */
width: expression(this.width > 100 && this.width > this.height ? 100 : auto);
height: expression(this.height > 100 ? 100 : auto);
}

什么是企业营销型网站建设

寒林 — Sun, 25 Jul 2010 04:11:05 +0000

营销型网站以现代网络营销为核心理念,以搜索引擎良好表现,用户良好体验为标准,能更好的将访客转化为客户,将传播力、公信力、成交力三者完美结合。

营销型网站就是从网络营销角度进去来架构的富有网络营销价值的以优质的内容取胜的网站。什么是营销型企业网站建设呢？营销型企业网站建设就是将企业的产品、服务与信息通过网络营销的角度架构的网站，以网页的形式提交给搜素引擎，供人们了解企业，并逐步在搜索引擎中获得好的排名。

营销型企业网站建设有以下特点：

1、技术性：采用CMS系统架构网站，通过技术和营销知识的想法来提高营销性。
2、目标性：营销型企业网站建设最主要的目的就是营销，而不是为了展示企业形象。
3、表示形式的独特性：网站不再是一个摆设，而是通过网站的的内容赋予企业一个新的形象，脱离了千篇一律的企业网站建设。
4、互动性：营销型企业网站建设大大提高了企业、市场、用户之间的互动性，增加了企业之间的竞争力。

如何架构营销型企业网站建设：
1、企业的栏目要清新，网站整体风格模板要简单。
2、网站操作简单，符合用户浏览习惯。
3、网站布局要直观，保证访问速度的同时还要让浏览者了解产品和服务
4、网站要经常提供市场资料给用户看。

营销型企业网站建设是企业网站建设的一次革命！在不就的将来，越来越多的企业网站都会转型为营销型企业网站。

如果您想做一个企业网站，我们建议您做一个具有营销力的企业网站，模板网站虽然便宜，但是不会给您企业带来任何的经济效益。

»夫80后者

寒林 — Tue, 29 Jun 2010 02:32:46 +0000

夫80后者，初从文，未及义务教育之免费，不见高等学校之分配，适值扩招，过五关，斩六将，本硕相继，寒窗数载，二十六乃成，负债十万。觅生计，背井离乡，东渡苏浙，南下湖广, 西上志愿, 北漂京都, 披星戴月，秉烛达旦，十年无休，蓄十万。楼市暴涨，无栖处，购房金不足首付，遂投股市，翌年缩至万余，随抑郁成疾，入院一周，倾其所有病无果，因欠费被逐院门。寻医保，不合大病之规，拒付，带病还。友怜之，送三鹿奶粉，饮之，卒。

精典多张图片渐变（fade）效果，支付IE与firefox

寒林 — Tue, 01 Jun 2010 08:07:52 +0000

无意间找到的这个图片渐变轮换效果，支持IE与firefox。之前一直都没有找到，都是用flash去做的，呵。

现在把文件放这儿，供大伙下载。

imgfade.rar

Firefox与IE在CSS样式表中的差异

寒林 — Thu, 22 Apr 2010 08:00:22 +0000

1 针对firefox ie6 ie7的css样式

现在大部分都是用!important来hack，对于ie6和firefox测试可以正常显示，但是ie7对!important可以正确解释，会导致页面没按要求显示！找到一个针对IE7不错的hack方式就是使用“* html”，现在用IE7浏览一下，应该没有问题了。

现在写一个CSS可以这样： ..

#1 { color: #333; } /* Moz */
* html #1 { color: #666; } /* IE6 */
* html #1 { color: #999; } /* IE7 */ .

那么在firefox下字体颜色显示为#333，IE6下字体颜色显示为#666，IE7下字体颜色显示为#999。 .

2 css布局中的居中问题 .

主要的样式定义如下：

body {TEXT-ALIGN: center;}
#center { MARGIN-RIGHT: auto; MARGIN-LEFT: auto; } !

说明： .

首先在父级元素定义TEXT-ALIGN: center;这个的意思就是在父级元素内的内容居中；对于IE这样设定就已经可以了。 .

但在mozilla中不能居中。解决办法就是在子元素定义时候设定时再加上“MARGIN-RIGHT: auto;MARGIN-LEFT: auto; ”

需要说明的是，如果你想用这个方法使整个页面要居中，建议不要套在一个DIV里，你可以依次拆出多个div，只要在每个拆出的div里定义MARGIN-RIGHT: auto;MARGIN-LEFT: auto; 就可以了。 ..

3 盒模型不同解释. ..

#box{
width:600px;
//for ie6.0- w\idth:500px;
//for ff ie6.0
}
#box{
width:600px!important
//for ff
width:600px;
//for ff ie6.0
width /**/:500px;
//for ie6.0-
} !

4 浮动ie产生的双倍距离 成功的人生，需要自己去经营，别再说了，莫再等了，现在就为自己的人生做好规划，为人生点亮一盏明灯，赢在人生起跑点上。

#box{ float:left; width:100px; margin:0 0 0 100px; //这种情况之下IE会产生200px的距离 display:inline; //使浮动忽略} .

这里细说一下block,inline两个元素,Block元素的特点是:总是在新行上开始,高度,宽度,行高,边距都可以控制(块元素);Inline元素的特点是:和其他元素在同一行上,…不可控制(内嵌元素); .

#box{ display:block; //可以为内嵌元素模拟为块元素 display:inline; //实现同一行排列的的效果 diplay:table; .

5 IE与宽度和高度的问题 。

IE不认得min-这个定义，但实际上它把正常的width和height当作有min的情况来使。这样问题就大了，如果只用宽度和高度，正常的浏览器里这两个值就不会变，如果只用min-width和min-height的话，IE下面根本等于没有设置宽度和高度。比如要设置背景图片，这个宽度是比较重要的。要解决这个问题，可以这样： .

#box{ width: 80px; height: 35px;}html>body #box{ width: auto; height: auto; min-width: 80px; min-height: 35px;} 成功的人生，需要自己去经营，别再说了，莫再等了，现在就为自己的人生做好规划，为人生点亮一盏明灯，赢在人生起跑点上。

6 页面的最小宽度 …

min-width是个非常方便的CSS命令，它可以指定元素最小也不能小于某个宽度，这样就能保证排版一直正确。但IE不认得这个，而它实际上把 width当做最小宽度来使。为了让这一命令在IE上也能用，可以把一个

放到标签下，然后为div指定一个类：
然后CSS这样设计：。

#container{
min-width: 600px;
width:expression(document.body.clientWidth < 600? “600px”: “auto” );
}

第一个min-width是正常的；但第2行的width使用了Javascript，这只有IE才认得，这也会让你的HTML文档不太正规。它实际上通过Javascript的判断来实现最小宽度。 .

7 清除浮动 .

.hackbox{
display:table;
//将对象作为块元素级的表格显示
} 本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系。

.hackbox{
clear:both;
}

或者加入:after（伪对象）,设置在对象后发生的内容，通常和content配合使用，IE不支持此伪对象，非Ie 浏览器支持，所以并不影响到IE/WIN浏览器。

……#box:after{
content: “.”;
display: block;
height: 0;
clear: both;
visibility: hidden;
} .

8 DIV浮动IE文本产生3象素的bug

左边对象浮动，右边采用外补丁的左边距来定位，右边对象内的文本会离左边有3px的间距. 。

#box{
float:left;
width:800px;}
#left{
float:left;
width:50%;}
#right{
width:50%;
}
*html #left{
margin-right:-3px;
//这句是关键
}
HTML代码

9 属性选择器(这个不能算是兼容,是隐藏css的一个bug) .

p[id]{}div[id]{}
p[id]{}div[id]{} 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!

这个对于IE6.0和IE6.0以下的版本都隐藏,FF和OPera作用

属性选择器和子选择器还是有区别的,子选择器的范围从形式来说缩小了,属性选择器的范围比较大,如p[id]中,所有p标签中有id的都是同样式的.

10 IE捉迷藏的问题

当div应用复杂的时候每个栏中又有一些链接，DIV等这个时候容易发生捉迷藏的问题。
有些内容显示不出来，当鼠标选择这个区域是发现内容确实在页面。
解决办法：对#layout使用line-height属性或者给#layout使用固定高和宽。页面结构尽量简单。

11 高度不适应

高度不适应是当内层对象的高度发生变化时外层高度不能自动进行调节，特别是当内层对象使用
margin 或paddign 时。例： ..

p对象中的内容

CSS： .

#box {background-color:#eee; }
#box p {margin-top: 20px;margin-bottom: 20px; text-align:center; } .

解决方法：在P对象上下各加2个空的div对象CSS代码：.1{height:0px;overflow:hidden;}或者为DIV加上border属性。

DIV层拖动

寒林 — Tue, 20 Apr 2010 06:08:44 +0000

adasdza

js禁止图片下载的代码

寒林 — Wed, 16 Dec 2009 09:41:44 +0000

脚本说明:
把如下代码加入区域中

js七种风格显示日期时间

寒林 — Wed, 16 Dec 2009 09:37:10 +0000

风格一：星期三,12月16日,2009年

风格二：5:32:58下午

风格三：星期三,12月16日,2009年 5:32:58下午

风格四：12/16/09

风格五: 17:32:58

风格六: Wed Dec 16 2009 17:32:58 GMT+0800

风格七: 5.0 (Windows; zh-CN)

说明:
第一步:把如下代码加入区域中

第二步:把如下代码加入区域中

ASP输出excel文件实例教程

寒林 — Wed, 16 Dec 2009 09:29:55 +0000

asp中利用excel的一个方法是将excel文件作为一个数据库进行链接,然后的操作和对access数据库操作类似.但是这个方法不是总能有用的，应为excel不是关系型的数据库。对于一个固定格式,这个格式里有复杂的单元格合并,边框线条样式,还有图案,单元格之间还有公式关系等等的, 我想最容易理解的就是在后台打开一个已有设定好模板的文件,然后在需要的地方插入数据,保存,输出… …

这里提到的这种方法是直接建立一个excel对象,在后台可以更方便的对excel文档进行各种操作.文中一段

服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择MicrosoftExcel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。

很重要.不设置的话,别的电脑将无法完成excel对象的建立.
但是这种方法也有一个缺憾,在我实际操作中,如果服务器上已有打开的excel文件,再执行同一文件,就会出错.暂时还搞不明白为何.可能还有一些地方没设置好吧.
另外,上面引用的文章中实例代码格式不太完整,其中很多换行和空格格式不准确,如果代码完整,只要复制代码,就可以运行成功,然后再慢慢进行研究修改,就很容易上手了.现把修改后的代码如下(删去了其中画图表的部分):

程序代码:

<%
On Error Resume Next
strAddr=Server.MapPath(“.”)
set objExcelApp=CreateObject(“Excel.Application”)
objExcelApp.DisplayAlerts=false
objExcelApp.Application.Visible=false
objExcelApp.WorkBooks.Open(strAddr&”\Templet\Null.xls”)
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)

objExcelSheet.Range(“B2:k2”).Value=Array(“Week1″,”Week2″,”Week3″,”Week4″,”Week5″,”Week6″,”Week7”)
objExcelSheet.Range(“B3:k3”).Value=Array(“67″,”87″,”5″,”9″,”7″,”45″,”45″,”54″,”54″,”10”)
objExcelSheet.Range(“B4:k4”).Value=Array(“10″,”10″,”8″,”27″,”33″,”37″,”50″,”54″,”10″,”10”)
objExcelSheet.Range(“B5:k5”).Value=Array(“23″,”3″,”86″,”64″,”60″,”18″,”5″,”1″,”36″,”80″)
objExcelSheet.Cells(3,1).Value=”InternetExplorer”
objExcelSheet.Cells(4,1).Value=”Netscape”
objExcelSheet.Cells(5,1).Value=”Other”
objExcelSheet.Range(“b2:k5″).Select

SaveAs(strAddr&”\Temp\Excel.xls”)
objExcelApp.Quit
set objExcelApp=Nothing
%>

NewDocument

操作完excel文件需要将文件进行输出,实际弄一下,用ASP的redirect到excel方法,有时候是在IE中直接打开,有时候是弹出”下载打开保存”窗口.如果需要直接在IE中打开,不放用FSO载入excel文件,然后在IE中输出.
程序代码:

Dim Fso,FileExt,strFilePath,Mime
strFilePath = “f:\aspxuexi.doc”
Set Fso=Server.CreateObject(“Scripting.FileSystemObject”)
FileExt = Fso.GetExtensionName(strFilePath)
Set fso=Nothing

Select Case FileExt
Case “doc”
Mime=”Application/msword”
Case “xls”
Mime=”Application/msexcel”
End Select

Call OutPut(strFilePath,Mime)

‘######################################################
Function OutPut(strFilePath,Mime)
Response.ContentType = Mime
Const adTypeBinary = 1
Set objStream = Server.CreateObject(“ADODB.Stream”)
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
End Function
‘######################################################
%>

在实际应用中.当服务器端正在运行excel或ACCESS程序时,客户端提交建立excel.application对象无法成功.另一种情况, 当一个客户端提交请求时,并没有结束时,另一个客户端提交的请求也无法成功!或许这个问题有别的解决方案,但是至少这是不稳定的.
正好我们部门内部网上有相关成功的例子,挖出来看,原来是在客户端建立excel.application的.这样,服务器端不会再冲突.对于客户端,因为是在局域网内运行,客户IE安全级别可以设低,并允许运行相关activeX(就是在IE工具选项中把各类涉及安全的东西都设为允许,具体的哪一项没有去追究), 即使没有设置,IE也会弹出警告窗口:”是否允许运行activeX?”
实现的代码和上篇日志差不多,简单的如下:
程序代码:

上述代码中
‘objExcelApp.Quit
‘set objExcelApp=Nothing
作为取消执行,因为此处不要关闭excel.applicaition,不然数据填完后,excel会关闭掉.这时在客户端打开的excel文件需要由客户进行修改或打印等操作.
同时objexcelapp对象还有打印设置及进入打印预览界面等方法,可参考相关excel相关资料.

本文原作者:zhufeifei

根据出生时间判断生肖的asp代码

寒林 — Wed, 16 Dec 2009 09:27:06 +0000

<%
‘从BbsXp提出来的生肖函数:
Function Zodiac(birthday)
If IsDate(birthday) Then
birthyear = Year(birthday)
ZodiacList = Array(“猴”, “鸡”, “狗”, “猪”, “鼠”, “牛”, “虎”, “兔”, “龙”, “蛇”, “马”, “羊”)
Zodiac = ZodiacList(birthyear Mod 12)
End If
End Function
%>

DIV背景图片在IE下正常,Firefox下不显示

寒林 — Thu, 10 Dec 2009 15:59:09 +0000

DIV背景图片在IE下正常,Firefox下不显示的问题?

一般情况下是因为你的div里面加了float属性, 如float:left，在FF里如果里面的元素加了float属性float:left（right),它就不会被撑开的，也就是说的它的高度是0.

如果正常显示，必须加上：overflow:auto.

即：#div1 {
width:700px;
background-image: url(../images/bg.gif);
overflow:auto；
}

这样子就可以在firefox下显示出背景来,大家试试.

ASP禁止外部提交数据的方法

寒林 — Tue, 01 Dec 2009 04:51:39 +0000

ASP禁止外部提交数据的方法

使用asp要尽量减少服务器的工作量，就应该多使用javascript，把所有提交字段使用javascript或vbscript检测后再提交给服务器，这样子服务器就不必再作检测，而在提交时候可能会有人修改script从本地提交，所以就存在安全提交的问题，应该要求从服务器断路径提交，其他地址提交提交无无效：

<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables(“HTTP_REFERER”))
server_v2=Cstr(Request.ServerVariables(“SERVER_NAME”))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write “

”
response.write “

”
response.write “提交路径有误，禁止从站点外部提交数据！”
response.write “

”
response.end
end if
%>

上面的代码起名为check.asp保存，每次遇到表格提交时引用：

ASP三级联动实例代码附数据库

寒林 — Mon, 30 Nov 2009 04:09:04 +0000

ASP三级联动实例代码附数据库[本站原创]

包括四个文件：

1、数据库连接文件:conn.asp

2、JS文件: clienthint.js

3、ASP程序文件：select.asp

4、数据库文件：mdb\gbcxm.asp

下面是select.asp文件内容示例，下载包里面已有，请下载。

<%response.Charset = “gb2312″ %>

<% ‘酷码资源原创,更多代码请访问www.3code.cn%>

下载asp3select.rar

我所使用的ASP图片验证码程序

寒林 — Mon, 30 Nov 2009 03:47:32 +0000

我所使用的ASP图片验证码程序

调用方法：

看不清验证码，点这里刷新

下面是code.asp的程序。保存成code.asp文件即可。

<%
‘酷码资源收集
‘https://www.3code.cn
‘ 看不清验证码，点这里刷新

Option Explicit ‘ 显示声明

Class Com_GifCode_Class
””””””””””””””””””””””’
‘ Author: Layen support@ssaw.net 84815733(QQ)
‘ Thanks: Laomi, Laomiao, NetRube
‘ 2006-01-02
””””””””””””””””””””””’
Public Noisy, Count, Width, Height, Angle, Offset, Border

Private Graph(), Margin(3)

Private Sub Class_Initialize()
Randomize
Noisy   = 2   ‘ 干扰点出现的概率
Count   = 4   ‘ 字符数量
Width   = 80   ‘ 图片宽度
Height   = 20   ‘ 图片高度
Angle   = 0   ‘ 角度随机变化量
Offset   = 0   ‘ 偏移随机变化量
Border = 5   ‘ 边框大小
End Sub

Public Function Create()

Const cCharSet = “123456789”

Dim i, x, y

Dim vValidCode : vValidCode = “”
Dim vIndex

ReDim Graph(Width-1, Height-1)

For i = 0 To Count – 1
vIndex = Int(Rnd * Len(cCharSet))
vValidCode = vValidCode + Mid(cCharSet, vIndex+1 , 1)
SetDraw vIndex, i
Next

Create = vValidCode

End Function

Sub SetDot(pX, pY)
If pX * (Width-pX-1) >= 0 And pY * (Height-pY-1) >= 0 Then
Graph(pX, pY) = 1
End If
End Sub

Public Sub SetDraw(pIndex, pNumber)

‘ 字符数据
Dim DotData(8)
DotData(0) = Array(30, 15, 50, 1, 50, 100)
DotData(1) = Array(1 ,34 ,30 ,1 ,71, 1, 100, 34, 1, 100, 93, 100, 100, 86)
DotData(2) = Array(1, 1, 100, 1, 42, 42, 100, 70, 50, 100, 1, 70)
DotData(3) = Array(100, 73, 6, 73, 75, 6, 75, 100)
DotData(4) = Array(100, 1, 1, 1, 1, 50, 50, 35, 100, 55, 100, 80, 50, 100, 1, 95)
DotData(5) = Array(100, 20, 70, 1, 20, 1, 1, 30, 1, 80, 30, 100, 70, 100, 100, 80, 100, 60, 70, 50, 30, 50, 1, 60)
DotData(6) = Array(6, 26, 6, 6, 100, 6, 53, 100)
DotData(7) = Array(100, 30, 100, 20, 70, 1, 30, 1, 1, 20, 1, 30, 100, 70, 100, 80, 70, 100, 30, 100, 1, 80, 1, 70, 100, 30)
DotData(8) = Array(1, 80, 30, 100, 80, 100, 100, 70, 100, 20, 70, 1, 30, 1, 1, 20, 1, 40, 30, 50, 70, 50, 100, 40)

Dim vExtent : vExtent = Width / Count
Margin(0) = Border + vExtent * (Rnd * Offset) / 100 + Margin(1)
Margin(1) = vExtent * (pNumber + 1) – Border – vExtent * (Rnd * Offset) / 100
Margin(2) = Border + Height * (Rnd * Offset) / 100
Margin(3) = Height – Border – Height * (Rnd * Offset) / 100

Dim vStartX, vEndX, vStartY, vEndY
Dim vWidth, vHeight, vDX, vDY, vDeltaT

Dim vAngle, vLength

vWidth = Int(Margin(1) – Margin(0))

vHeight = Int(Margin(3) – Margin(2))

‘ 起始坐标
vStartX = Int((DotData(pIndex)(0)-1) * vWidth / 100)

vStartY = Int((DotData(pIndex)(1)-1) * vHeight / 100)

Dim i, j
For i = 1 To UBound(DotData(pIndex), 1)/2

If DotData(pIndex)(2*i-2) <> 0 And DotData(pIndex)(2*i) <> 0 Then

‘ 终点坐标
vEndX = (DotData(pIndex)(2*i)-1) * vWidth / 100

vEndY = (DotData(pIndex)(2*i+1)-1) * vHeight / 100

‘ 横向差距
vDX = vEndX – vStartX
‘ 纵向差距
vDY = vEndY – vStartY

‘ 倾斜角度
If vDX = 0 Then
vAngle = Sgn(vDY) * 3.14/2
Else
vAngle = Atn(vDY / vDX)
End If

‘ 两坐标距离
If Sin(vAngle) = 0 Then
vLength = vDX
Else
vLength = vDY / Sin(vAngle)
End If

‘ 随机转动角度
vAngle = vAngle + (Rnd – 0.5) * 2 * Angle * 3.14 * 2 / 100

vDX = Int(Cos(vAngle) * vLength)

vDY = Int(Sin(vAngle) * vLength)

If Abs(vDX) > Abs(vDY) Then vDeltaT = Abs(vDX) Else vDeltaT = Abs(vDY)

For j = 1 To vDeltaT
SetDot Margin(0) + vStartX + j * vDX / vDeltaT, Margin(2) + vStartY + j * vDY / vDeltaT
Next

vStartX = vStartX + vDX

vStartY = vStartY + vDY
End If
Next
End Sub

Public Sub Output()

Response.Expires = -9999
Response.AddHeader “pragma”, “no-cache”
Response.AddHeader “cache-ctrol”, “no-cache”
Response.ContentType = “image/gif”

‘ 文件类型
Response.BinaryWrite ChrB(Asc(“G”)) & ChrB(Asc(“I”)) & ChrB(Asc(“F”))
‘ 版本信息
Response.BinaryWrite ChrB(Asc(“8”)) & ChrB(Asc(“9”)) & ChrB(Asc(“a”))
‘ 逻辑屏幕宽度
Response.BinaryWrite ChrB(Width Mod 256) & ChrB((Width \ 256) Mod 256)
‘ 逻辑屏幕高度
Response.BinaryWrite ChrB(Height Mod 256) & ChrB((Height \ 256) Mod 256)

Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(0)
‘ 全局颜色列表
Response.BinaryWrite ChrB(120) & ChrB(134) & ChrB(147)

Response.BinaryWrite ChrB(255) & ChrB(255) & ChrB(255)

‘ 图象标识符
Response.BinaryWrite ChrB(Asc(“,”))

Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
‘ 图象宽度
Response.BinaryWrite ChrB(Width Mod 256) & ChrB((Width \ 256) Mod 256)
‘ 图象高度
Response.BinaryWrite ChrB(Height Mod 256) & ChrB((Height \ 256) Mod 256)

Response.BinaryWrite ChrB(0) & ChrB(7) & ChrB(255)

Dim x, y, i : i = 0
For y = 0 To Height – 1
For x = 0 To Width – 1
If Rnd < Noisy / 100 Then
Response.BinaryWrite ChrB(1-Graph(x, y))
Else
If x * (x-Width) = 0 Or y * (y-Height) = 0 Then
Response.BinaryWrite ChrB(Graph(x, y))
Else
If Graph(x-1, y) = 1 Or Graph(x, y) Or Graph(x, y-1) = 1 Then
Response.BinaryWrite ChrB(1)
Else
Response.BinaryWrite ChrB(0)
End If
End If
End If
If (y * Width + x + 1) Mod 126 = 0 Then
Response.BinaryWrite ChrB(128)
i = i + 1
End If
If (y * Width + x + i + 1) Mod 255 = 0 Then
If (Width * Height – y * Width – x – 1) > 255 Then
Response.BinaryWrite ChrB(255)
Else
Response.BinaryWrite ChrB(Width * Height Mod 255)
End If
End If
Next
Next
Response.BinaryWrite ChrB(128) & ChrB(0) & ChrB(129) & ChrB(0) & ChrB(59)
End Sub
End Class

Dim mCode
Set mCode = New Com_GifCode_Class
Session(“GetCode”) = mCode.Create()
mCode.Output()
Set mCode = Nothing
%>

Paypal-IPN&PDT变量参考列表

寒林 — Mon, 30 Nov 2009 03:21:43 +0000

Paypal-IPN&PDT变量参考列表

本文包含了所有可能出现在IPN或者PDT中的变量。变量“notify_version”是指IPN的版本号，在您的程序中可以不用存储该变量；变量 verify_sign是一个加密串，用于验证交易的真实性。另外，在Sandbox测试环境下，IPN还增加了一个变量test_ipn（其值为1），用于区分测试环境和真实环境。

买家信息

变量名	可能的值	描述	长度
address_city		客户地址中的市/县	40
address_country		客户地址中的国家或地区	64
address_country_code		两位ISO 3166国家或地区代码	2
address_name		用于地址的名称（在客户提供礼品地址时包含在内）	128
address_state		客户地址中的省/直辖市/自治区	40
address_status	Confirmed	客户提供的是已确认的地址
address_status	Unconfirmed	客户提供的是未确认的地址
address_street		客户的街道地址	200
address_zip		客户地址中的邮政编码	20
first_name		客户的名	64
last_name		客户的姓	64
payer_business_name		客户的公司名称，如果客户代表企业。	127
payer_email		客户的主要邮件地址。使用该电子邮件提供所有信用记录。	127
payer_id		唯一客户号	13
payer_status	verified	客户有已认证的PayPal账户
payer_status	unverified	客户有未认证的PayPal账户
residence_country		两位ISO 3166国家或地区代码	2

基本信息

变量名	描述	长度
business	收款人（即商家）的电子邮件地址或账户号。如果付款发送至主账户，则等于receiver_email，尤其指“网站付款”按钮HTML代码中传递的business变量的返回值。	127
item_name	由您（商家）传递的物品名称。如果不是由您传递，则由您的客户输入。如果是购物车交易，PayPal 将附加物品号（例如，item_name1、item_name2）。	127
item_number	您用于跟踪购买的传递变量。在付款完成时，它会传回给您。如果省略，则将没有变量传回给您。	127
quantity	由您的客户输入或由您（商家）传递的数量。如果是购物车交易，PayPal将附加物品号（例如，quantity1、quantity2）。
receiver_email	收款人（即商家）的主要邮件地址。如果付款不是发送到PayPal账户上的主要邮件地址，则receiver_email依旧是主要邮件地址。	127
receiver_id	收款人（即商家）的唯一账户号。这与收款人的推荐号相同。	13

高级及自定义信息

变量名	描述	长度
custom	由您（商家）传递的自定义值。在任何情形下，都不会向您的客户显示这些传递变量。	255
invoice	可供您用来识别此次购物的帐单号码的转递变量。如果省略，则没有变量传回。	127
memo	您的客户在PayPal网站付款提示栏中输入的备忘信息。	255
option_name1	选项1名称（由您申请）	64
option_name2	选项2名称（由您申请）
option_selection1	选项1选择（由客户输入）	200
option_selection2	选项2选择（由客户输入）
tax	对付款收取的税费金额	2

购物车信息

变量名	可能的值	描述
auth_id	Transaction-specific	授权识别号
auth_exp	Transaction-specific	授权失效日期和时间
auth_status	Completed Pending Voided	授权状态
mc_gross_x	Transaction-specific for multiple currencies	所示金额所用币种为mc_currency ，其中x为购物车明细物品号。mc_gross_x总和应等于mc_gross。
mc_handling_x	Transaction-specific for multiple currencies	x代表购物车明细物品号。由于mc_handling变量中还包含handling_cart整个购物车范围内的网站付款变量，因此mc_handling_x总和不一定等于mc_handling。
num_cart_items		如果此交易是PayPal购物车交易，则为购物车中的物品数。
option_name1		PayPal将附加物品号，其中x代表购物车明细物品号（例如，option_name1、option_name2）。
option_name2		PayPal将附加物品号，其中x代表购物车明细物品号（例如，option_name2、option_name2）。
option_selection1_x		PayPal将附加物品号（例如，option_selection1 、 option_selection2），其中x代表购物车明细物品号。
option_selection2_x		PayPal将附加物品号（例如，option_selection1 、 option_selection2），其中x代表购物车明细物品号。
parent_txn_id		在退款、撤销或取消撤销的情况下，该变量包含原定交易的txn_id，而txn_id包含新交易的新识别号。字符长度和限制：17。
payment_date		PayPal生成的时间/日期戳记。格式：18:30:30 Jan 1, 2000 PST。
payment_status	Canceled-Reversal	这意味着已经取消了撤销。例如，您在与客户的争议中获胜，先前撤销的交易资金已退回给您。
	Completed	付款已完成，资金已成功增加到您的账户余额中。
	Denied	您拒绝了付款。只有该款项此前因。PendingReason元素说明的可能原因而待付时，才会发生此类情况。
	Expired	这个授权已经过期，无法捕获。
	Failed	付款失败。只有当付款来自于客户的银行账户时，才会发生此类情况。
	In-Progress	这笔交易处于授权认证中。
	Partially-Refunded	这笔交易被部分退款。
	Pending	款项待付。请查看PendingReason了解更多信息。
	Processed	付款已被接受。
	Refunded	您退还了付款。
	Reversed	付款由于扣款索偿或其他撤销类型而撤销。资金已从您的账户余额中扣除，并已退还给买家。reason_code变量指明了撤销原因。
	Voided	此授权无效。
payment_type	echeck	该款项通过电子支票支付
payment_type	instant	该项付款通过PayPal余额、信用卡或即时转帐支付
pending_reason （只有在payment_status=Pending时，才会设置此变量。）	address	款项待付，原因是客户未提供已确认的送货地址，而您的收款习惯设定设为允许手动接受或拒绝每笔此类付款。若要更改习惯设定，请前往您的用户信息中的习惯设定部分。
	authorization	您在SetExpressCheckoutRequest上设置了 Authorization ，而尚未获取资金。
	echeck	款项待付，原因是其通过电子支票付款，而电子支票尚未结清。
	intl	款项待付，原因是您持有非美国账户，且没有提现机制。您必须在账户信息中手动接受或拒绝该笔付款。
	multi-currency	您在发送的货币中没有余额，并且未将收款习惯设定设为自动兑换和接受付款。您必须手动接受或拒绝该笔付款。
	unilateral	款项待付，原因是付款的接收电子邮件地址尚未注册或确认。
	upgrade	款项待付，原因是其通过信用卡付款，因此您必须将账户升级为企业账户或高级账户状态，方可接收资金。upgrade也可能表示您已达到账户的月交易限额。
	verify	款项待付，原因是您尚未经过认证。您必须先认证您的账户，才能接受该笔付款。
	other	款项待付，原因非以上所列各项。若要了解更多信息，请与贝宝客户服务联系。
reason_code （只有在payment_status = Reversed 或Refunded时，才会设置此变量。)	chargeback	由于客户提出扣款索偿，因此撤销这笔交易。
	guarantee	由于客户触发退款担保，因此撤销这笔交易。
	buyer-complaint	由于客户就交易提出投诉，因此撤销这笔交易。
	refund	由于您向客户退款，因此撤销这笔交易。
	other	由于上述原因以外的其他原因，撤销这笔交易。
remaining_settle	Transaction-specific	可以捕获的剩余金额
tax		PayPal将附加物品号（例如，item_name1、item_name2 ）。只有对个别购物车物品收取特定税费时，才会在其中包含tax_x变量。由于可能对购物车中其他物品收取用户信息税费，因此tax_x的总和不一定等于tax。
transaction_entity	auth reauth order payment	授权
txn_id		PayPal系统生成的唯一交易号。字符长度和限制：17。
txn_type	cart	交易由客户通过“PayPal购物车”功能创建。
	express_ checkout
	merch_pmt
	send_money	交易由客户从PayPal网站上的付款选项卡中创建
	virtual_ terminal
	web-accept	交易由客户通过“立即购买”、“捐赠”或“竞拍”智能标识创建
auth_amount	Transaction-specific	授权金额

货币及货币兑换信息

变量名	可能的值	描述
exchange_rate		进行货币兑换时所用的汇率
mc_currency	See table of supported currencies	对于付款IPN，这是付款货币。对于非付款租费IPN，这是租费货币。
mc_fee		与付款关联的交易费。mc_gross减去mc_fee等于存入 receiver_email账户的金额。等于美元付款payment_fee。如果该金额为负，则表示退款或撤销，原定交易费的全部或部分金额都可以是这两种付款状态之一。
mc_gross		扣除交易费之前的客户付款全部金额。等于美元付款payment_gross。如果该金额为负，则表示退款或撤销，原定交易费的全部或部分金额都可以是这两种付款状态之一。
mc_handling		这是与交易相关的手续费总额
mc_shipping		这是与交易相关的运费总额
payment_fee	Transaction-specific for USD payments only	与付款相关的美元交易费。payment_gross减去payment_fee等于存入收款人电子邮件账户的金额。对于非美元付款为空。这个旧字段已由mc_fee取代。如果该金额为负，则表示退款或撤销，原定交易费的全部或部分金额都可以是这两种付款状态之一。
payment_gross	Transaction-specific for USD payments only	扣除交易费之前的客户付款全部美元金额。对于非美元付款将为空。这个旧字段已由mc_gross取代。如果该金额为负，则表示退款或撤销，原定交易费的全部或部分金额都可以是这两种付款状态之一。
settle_amount		通过您的收款习惯设定进行自动货币兑换，或通过手动接受付款进行手动货币兑换后，存入账户主要余额的金额。
settle_currency		settle_amount的币种

竞拍

变量名	可能的值	描述	长度
auction_buyer_id		客户的竞拍ID	64
auction_closing_date		竞拍的结束日期
auction_multi_item		以多物品竞拍付款购买的物品的数目。由于竞拍的每个物品都会产生一个即时付款通知，其中显示整个竞拍的金额，因此您可以计算您从多物品竞拍（auction_multi_item）收到的第一个IPN的mc_gross或payment_gross。
for_auction	true	竞拍付款（使用“为易趣物品付款”或“智能标识”付款，以及使用易趣物品或竞拍物品（非易趣物品）类型“付款”/“款项要求”付款）。

集中付款

变量名	可能的值	描述
masspay_txn_id_x		对于集中付款，这是PayPal系统生成的唯一交易号，其中x是集中付款物品记录号。
mc_currency_x	Transaction-specific for multiple currencies	对于集中付款，为金额和费用所用币种，其中x是集中付款物品记录号。
mc_fee_x	Transaction-specific for multiple currencies	对于集中付款，为与付款关联的交易费，其中x是集中付款物品记录号。
mc_gross_x	Transaction-specific for multiple currencies	这是金额的总额，其中x是集中付款物品记录号。
payment_date		对于集中付款，表示第一个IPN是记录集被处理的日期/时间，第二个IPN是所有付款结束/退回的日期/时间。
payment_fee_x	Transaction-specific for USD payments only	如果用美元付款，则该值与mc_fee_x的值相同，其中x是记录号；如果币种不是美元，即为空字符串。
payment_gross_x	Transaction-specific for USD payments only	如果用美元付款，则该值与mc_gross_x的值相同，其中x是集中付款物品记录号。如果币种不是美元，则为空字符串。
payment_status	Completed	对于集中付款，表示您的所有付款已认领，或在30天后，无主付款已退回给您。
	Denied	对于集中付款，表示您的资金未发送，而集中付款未开始，可能是由于资金不足所致。
	Processed	您的集中付款已处理，所有付款已发送。
reason_code （此变量只有当status=Failed时才有效。）	1001	Invalid UserID
	1003	Country of Residence check failure
	1004	Country of Funding Source check failure
receiver_email_x		对于集中付款，这是收款人的主要邮件地址，其中x是集中付款物品记录号。
status_x		对于集中付款，这是付款状态，其中x是记录号。
	Completed	付款已处理，不论其原来是否为单方付款。
	Failed	由于余额中资金不足，付款失败。
	Reversed	用于超过30天未认领并已被退回发送方的单方付款，或由于收款人账户已锁定，资金被退回。
	Unclaimed	Unclaimed
txn_type	masspay	该付款已通过集中付款发送
unique_id_x		对于集中付款，这是来自输入的唯一标识符，其中x是记录号。这样，商家可以交叉参考付款。

租用变量

变量名	可能的值	描述	长度
txn_type	subscr_failed	租费付款失败
	subscr_cancel	租用取消
	subscr_payment	租费付款
	subscr_signup	租用注册
	subscr_eot	租用期末
	subscr_modify	租用修改
subscr_date		开始日期或取消日期，视交易为subscr_signup或subscr_cancel而定。
subscr_effective		租费修改生效时的日期（仅适用于 txn_type = subscr_modify 的情况）。
period1		（可选）以天、周、月或年为单位的试租用时间间隔（示例：四天的时间间隔为“period1:4 D”）
period2		（可选）以天、周、月或年为单位的试租用时间间隔	64
period3		以天、周、月或年为单位的定期租用时间间隔
amount1		USD付款第1段试用期的付款金额；否则为空白（可选）
amount2		USD付款第2段试用期的付款金额；否则为空白（可选）
amount3		USD付款定期租用期的付款金额；否则为空白。
mc_amount1		第1段试用期的付款金额，与货币无关（可选）。
mc_amount2		第2段试用期的付款金额，与货币无关（可选）。
mc_amount3		定期租用期的付款金额，与货币无关。
mc_currency		对于付款IPN，此为付款货币（即，txn_type=subscr_payment）。
recurring		指明定期汇率是否循环（1为“是”，保留空白则为“否”）
reattempt		指明在付款失败时是否应重新尝试（1为“是”，保留空白则为“否”）
retry_at		PayPal将重试失败租费付款的日期
recur_times		将按定期汇率进行分期付款的次数
username		（可选）由PayPal生成并提供给租用者用于访问租费的用户名	64
password		（可选）由PayPal生成并提供给租用者用于访问租费的密码（密码将被加密）
subscr_id		PayPal为租用者生成的ID	19

争议通告变量

变量名	可能的值	描述
txn_type	new_case	已注册新的事件
txn_id		商家从买家接受付款的原始交易号，事件是针对该交易号注册的。
case_id		事件识别号。格式：PP-nnn-nnn-nnn ，其中n为任何数字字符。
case_type	complaint	买家已通过贝宝争议处理中心提交投诉
case_type	chargeback	买家已向其信用卡公司提出扣款索偿，该公司已将扣款索偿的原因通知PayPal。
case_creation_date	Transactionspecific	事件注册的日期和时间。格式：HH:mm:ss mon DD, YYYY TZ。其中TZ表示三字符的时区。
reason_code	Depends on value of case_type	事件原因
case_type 投诉的 reason_code 值	non_receipt	买家声称未收到货物或服务
case_type 投诉的 reason_code 值	not_as_described	买家声称收到的货物或服务与商家描述不符
case_type 扣款索偿的 reason_code 值	unauthorized	买家声称其并未授权交易
	non_receipt	买家声称未收到货物或服务
	duplicate	买家声称可能向商家进行了重复付款
	merchandise	买家声称收到的商品无法令其满意、有瑕疵或已损坏。
	special	某些其他原因。通常，special表明信用卡处理错误，该错误不应由商家承担责任，因而不会对该商家扣款。PayPal必须核对信用卡公司发来的文档，确定争议性质，并尽可能联系商家以解决争议。

特酷的flash+xml产品相册展示效果

寒林 — Sat, 28 Nov 2009 05:15:37 +0000

特酷的flash+xml产品相册展示效果

flash xml 相册照片展示 flash素材 flash源文件

很酷很实用的一款flash+xml图片展示程序，可以很方便的用于公司企业站的产品展示模块、相册展示、个人影集等。含flash源文件。强烈推荐下载。

很酷很实用的一款flash+xml图片展示

效果演示 | 下载文件

转自ZCOOL

ASP FormatDatetime 函数

寒林 — Wed, 18 Nov 2009 08:23:17 +0000

函数用法:
FormatDatetime(Date, NamedFormat)

<%=formatdatetime(now(), 2)%>

第一个参数就是要转换的日期, 第二个参数是格式, 参数取值如下:
0…显示日期或时间, 如果只有日期部分, 显示为短日期格式, 如果只有时间部分, 则显示为长时间格式, 两者都有, 则全部显示.
1…使用计算机区域设置中指定的长日期格式显示日期。
2…使用计算机区域设置中指定的短日期格式显示日期。
3…使用计算机区域设置中指定的时间格式显示时间。
4…使用 24 小时格式 (hh:mm) 显示时间。

注意: 显示的格式都是在区域设置中指定的.

如果要用其他自定义的格式显示, 就只能自己拼了: 取出日期的各个部分, 再拼接起来, 如:

<%=year(now()) & “-” & month(now()) & “-” & day(now())%>

JS显示当前年月日与星期的函数

寒林 — Wed, 18 Nov 2009 08:12:01 +0000

JS显示当前年月日与星期的函数

<script language=javascript>
function dispDate(dateVal) {
DaystoAdd=dateVal
TodaysDate = new Date();
TodaysDay = new Array('Sunday', 'Monday', 'Tuesday','Wednesday', 'Thursday', 'Friday', 'Saturday');
TodaysMonth = new Array('January', 'February', 'March','April', 'May','June', 'July', 'August', 'September','October', 'November', 'December');
DaysinMonth = new Array('31', '28', '31', '30', '31', '30', '31', '31', '30', '31', '30', '31');
function LeapYearTest (Year) {
if (((Year % 400)==0) || (((Year % 100)!=0) && (Year % 4)==0)) {
return true;
}
else {
return false;
}
}
CurrentYear = TodaysDate.getYear();
if (CurrentYear < 2000)
CurrentYear = CurrentYear + 1900;
currentMonth = TodaysDate.getMonth();
DayOffset = TodaysDate.getDay();
currentDay = TodaysDate.getDate();
month = TodaysMonth[currentMonth];
if (month == 'February') {
if (((CurrentYear % 4)==0) && ((CurrentYear % 100)!=0) || ((CurrentYear % 400)==0)) {
DaysinMonth[1] = 29;
}
else {
DaysinMonth[1] = 28;
}
}
days = DaysinMonth[currentMonth];
currentDay += DaystoAdd;
if (currentDay > days) {
if (currentMonth == 11) {
currentMonth = 0;
month = TodaysMonth[currentMonth];
CurrentYear = CurrentYear + 1
}
else {
month =
TodaysMonth[currentMonth+1];
}
currentDay = currentDay - days;
}
DayOffset += DaystoAdd;
function offsettheDate (offsetCurrentDay) {
if (offsetCurrentDay > 6) {
offsetCurrentDay -= 6;
DayOffset = TodaysDay[offsetCurrentDay-1];
offsettheDate(offsetCurrentDay-1);
}
else {
DayOffset = TodaysDay[offsetCurrentDay];
return true;
}
}
offsettheDate(DayOffset);TheDate = DayOffset + ', ';
TheDate += month + ' ';
TheDate += currentDay + ', ';
if (CurrentYear<100) CurrentYear="19" + CurrentYear;
TheDate += CurrentYear;
document.write(' '+TheDate);
}
script>

调用方法：

<script language=javascript>dispDate(0)script>

图片按比例缩放不变形的JS代码

寒林 — Fri, 13 Nov 2009 14:28:10 +0000

图片按比例缩放不变形的JS代码

图片按比例缩放不变形的JS代码,在很多情况下都会使用到，比如产品展示等。附有实例。

//图片按比例缩放
var flag=false;
function DrawImage(ImgD,i,j){
var image=new Image();
var iwidth = i; //定义允许图片宽度
var iheight = j; //定义允许图片高度
image.src=ImgD.src;
if(image.width>0 && image.height>0){
flag=true;
if(image.width/image.height>= iwidth/iheight){
if(image.width>iwidth){
ImgD.width=iwidth;
ImgD.height=(image.height*iwidth)/image.width;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+”×”+image.height;
}
else{
if(image.height>iheight){
ImgD.height=iheight;
ImgD.width=(image.width*iheight)/image.height;
}else{
ImgD.width=image.width;
ImgD.height=image.height;
}
ImgD.alt=image.width+”×”+image.height;
}
}
}
//调用：
//–>

Flash电子翻书效果代码

寒林 — Fri, 13 Nov 2009 09:23:30 +0000

Flash电子翻书效果代码

FlippingBook Flash翻书效果代码

Flash电子翻书效果代码, 这是免费版本，只有10页，鼠标双击放大，支持鼠标滚轮翻页。

下载地址

实用代码 – 九创科技

用CSS控制图片等比例缩放

什么是企业营销型网站建设

»夫80后者

精典多张图片渐变（fade）效果， 支付IE与firefox

Firefox与IE在CSS样式表中的差异

DIV层拖动

js禁止图片下载的代码

js七种风格显示日期时间

ASP输出excel文件实例教程

根据出生时间判断生肖的asp代码

DIV背景图片在IE下正常,Firefox下不显示

ASP禁止外部提交数据的方法

ASP三级联动实例代码附数据库

我所使用的ASP图片验证码程序

Paypal-IPN&PDT变量参考列表

特酷的flash+xml产品相册展示效果

ASP FormatDatetime 函数

JS显示当前年月日与星期的函数

图片按比例缩放不变形的JS代码

Flash电子翻书效果代码

精典多张图片渐变（fade）效果，支付IE与firefox