response.buffer=true'应用缓存技术.dimlostnum'防止dmax过大而dstep过小.dimshownumdelayshow(dstep,dmax)subdelayshow(dstep,dmax)'dmax表示要处理多少dmax(步)才能完成全过程，dstep表示已处理的占全过程的大致百分比. dimtotal'显示所有画面.dimdtemp'过渡变量.total=100dtemp=dstepdstep=dstep+lostnum if(dstep*total)/dmax<1then'当画面连1%都没有时,则不画,同时用变量lostnum存放...
http://www.jb51.net//article/4819.htm
如何让计数器只对新进用户计数？<scriptlanguage=vbscriptrunat=server>subapplication_onstartfilepath=server.mappath("/count")filename=filepath+"\counter.txt"setfs=createobject("scripting.filesystemobject")ifnotfs.fileexists(filename)then fs.createtextfile(filename) setf=fs.getfile(filename...
http://www.jb51.net//article/4761.htm
<％'读取用户输入的账号和密码.UserID=Request("UserID")Password=Request("Password")'检查UserID及Password是否正确.IfUserID<>"hrmis"OrPassword<>"password"ThenResponse.Write"噢,您的口令错误!请重新输入."Response.EndEndIf'将Session对象设置为通过验证状态.Session("Passed")=True％> -------------------------------------------------...
http://www.jb51.net//article/4742.htm
authenticate.asp<%DimURLURL=Request.QueryString'获得URL.%><html><body><FORMMETHOD=POSTACTION="/validate.asp"> <INPUTTYPE=HIDDENNAME="URL"VALUE="<%=URL%>"> '将URL保存到一个隐藏变量中. 用户名: <INPUTTYPE=TEXTNAME="txtName"> 口令: <INPUTTYPE=PASS...
http://www.jb51.net//article/4735.htm
<!--METADATATYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODBTypeLibrary"--><% DimobjStream SetobjStream=Server.CreateObject("ADODB.Stream") '创建一个Stream对象. objStream.Type=adTypeBinary objStream.Open objStre...
http://www.jb51.net//article/4731.htm
如何对一个文件夹进行创建和删除？<%setfs=createobject("scripting.filesystemobject")%><%MyFolder=server.mappath("/chunfeng/happy/")%><%IfNOTfs.folderexists(MyFolder)then fs.createfolder(MyFolder)EndIf%> <%Iffs.folderexists(MyFolder)then response.write"...
http://www.jb51.net//article/4721.htm
<%@LANGUAGE="VBScript"%><%'Setfilei/oconstants. ConstForReading =1 ConstForWriting =2 ConstForAppending=8 filename="test.txt" path=Server.MapPath("data")&"\"&filename '映射文件名到服务器的物理路径. operation=Request.Form("operation")%> '得到请求操作....
http://www.jb51.net//article/4720.htm
login.htm请注册登录随风起舞<FORMACTION="checklogin.asp"METHOD="POST"> 电子邮件:<inputTYPE="Text"NAME="email"SIZE="40"> 密码:<inputTYPE="Password"NAME="Password"SIZE="40"> <inputTYPE="Checkbox"NAME="SaveLogin"value="ON">您要将注册内容保存为Cookie吗? <input...
http://www.jb51.net//article/4705.htm
<%@transaction=required%><%response.buffer=true'缓存输出,以显示不同的页面.%><html><body>欢迎使用千花飞舞之在线银行服务.<%setbankaction=server.createobject("myexample.bankcomponent")bankaction.deposit(request("acctnum"))%><p>您的提交的事务已进入处理中...</p></body></html><%'处理成功则显示此页...
http://www.jb51.net//article/4700.htm
还是决定冠上ajax的头衔，毕竟很多人会用这个关键词搜索。虽然我认为这只是个炒作的概念，不过不得不承认ajax叫起来要方便多了。ajax的意思我就不详细解释了。写这个教程的起因很简单：经过一段时间的ajax学习，有一些体会，并且越发认识到ajax技术的强大，所以决定记录下来，顺便也是对自己思路的整理。前几年，javascript在一般人眼里，功能还很狭窄，所能做的要么是一些简单的表单验证，要么是许多华而不实的网页特效。随着flash的出现，大家已经不像以前那样热衷于js特效。似乎js能做的事情更加少了。但这时候，ajax的概念冒了出来，以gmail为典型代表的ajax应用受到很多人的关注，aj...
http://www.jb51.net//article/4186.htm
1. 使用对比色 （Use contrasting colours）. 这里说的对比是文字的颜色和背景色的对比。这样用户可以比较容易的看清文字，减少阅读疲劳。有视力障碍的人可能看不清楚低对比度的文字。可以去Vischeck这个网站可以看看你的网站在色弱（或色盲）用户眼中的样子。 2. 把文字圈成小块 （”Chunk up” your copy）. 大块的高密度的文字让你的用户感觉信息负荷超载，有压抑感。几个小技巧: 用列表（或者1-2-3）和副标题. 保持段落短小. ...
http://www.jb51.net//article/4170.htm