<% dim RefreshIntervalTime RefreshIntervalTime = 3 ’防止刷新的时间秒数，0表示不防止 If Not IsEmpty(Session(“visit“)) and isnumeric(Session(“visit“)) and int(RefreshIntervalTime) > ...
http://www.jb51.net//article/5391.htm
login.asp'考生验证.<％@Language=VBScript％><％name=trim(request("name"))passwd=trim(request("passwd"))ifname<>""andpasswd<>""then'检查考生是否输入用户名和密码.Setconn=Server.CreateObject("ADODB.Connection")conn.Open"driver={MicrosoftAccessDriver(＊.mdb)};dbq="＆Server.MapPat("exercise.mdb")setrs=serve...
http://www.jb51.net//article/4794.htm
<%dimchoose,path,mydb,myset,SQL,fs,mp3'获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose.choose=“("fori=3torequest.form.countchoose=choose＋request.form(i)＋“,"nextchoose=left(choose,len(choose)－1)＋“)"ifchoose=“()"thenresponse.redirect(“list.htm")response.end'判断choose变量,如果不包含id号,说明list.htm中没有选中任何歌曲,终止程...
http://www.jb51.net//article/4793.htm
<%@LANGUAGE="VBscript"%> <html> <head> <metaNAME="GENERATOR"Content="MicrosoftFrontPage3.0"> <metaHTTP-EQUIV="Content-Type"content="text/html;charset=gb_2312-80"> <title>星河影动之全文检索</title> <metaname="MicrosoftBorder"content="tl,default"></head&...
http://www.jb51.net//article/4789.htm
如何实现电子邮件的自动发送？<%@importnamespace="system.web.uit"%>dimmailasnewmailmessage '建立一个mailmessage对象.mail.to=收件人mail.form=送件人mail.subject=主题mail.bodyformat=格式mail.body=内容smtpmail.send(mail) 具体代码如下：<%@ImportNamespace="System.Web.Util"%><html><head>&l...
http://www.jb51.net//article/4781.htm
counter.htm＜ahref=counter.asp?save=123&url=http://127.0.0.1/＞http://127.0.0.1＜/a＞共点击次数：＜scriptsrc=view.asp?save=123＞＜/script＞counter.asp＜%path="d:data"file=request("save")url=request("url")Setfs=CreateObject("Scripting.FileSystemObject")iffs.FileExists(path&file&".txt")thenSetthisfile=fs...
http://www.jb51.net//article/4764.htm
global.asa<scriptLANGUAGE="VBScript"RUNAT="Server">SubApplication_OnStart 'SubApplication_OnStart是好在服务器每次启动的时候激活的方法. Session.Timeout=3'定义用户在线时间,如果在定义时间内没有活动连接,则删掉他的session变量实例,将其注销. Application.Lock '用.Lock方法锁住Application变量以继续...
http://www.jb51.net//article/4762.htm
security.asp<%bLoggedIn=(len(session("UserName"))>0)ifbRequireLoginthen'要求登录. ifNotbLoggedInthen response.redirect"login.asp?comebackto="&_ request.servervariables("script_name")&"?"&_ ...
http://www.jb51.net//article/4739.htm
protect.asp<html><head><title>千花飞舞之春风精彩</title></head><bodybgcolor="#00FFFF"><formaction="Protect.asp"method="post">'精彩的要限制的页面.<inputtype="text"name="text">'此处可注明该页面的其它内容.姓名:<inputtype="password"size="20"name="password">口令:<inputtype="submit"n...
http://www.jb51.net//article/4738.htm
global.asp <scriptlanguage=vbscriptrunat=server> subSession_onstart session("register")="false"'记录用户成功登录的信息. session("lognumber")=0 '记录用户尝试登录的次数,最多允许尝试三次. session("prescript")="" '记录用户要访问的页面,以便登录后返回该页. endsub </script> register.asp <%ifrequest.form("...
http://www.jb51.net//article/4737.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