<％'读取用户输入的账号和密码.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
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
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
<%@LANGUAGE="VBscript"% ><%Chunfeng=Request.Cookies("Chunfeng")'初始设置页面,读取名字为Chunfeng的Cookie值.IfChunfeng=""then'判断是否已经存在Cookie值. Response.Cookies("Chunfeng")="x" Response.Cookies("Chunfeng").Expires=#January01,2010# Response.Redirect"Chunfeng.asp"'如果不存在,就创建并设置Cookie,并转到页面...
http://www.jb51.net//article/4704.htm
<%@Language=VBScript%><%OptionExplicitresponse.buffer=trueDimobjCookieResponse.Write"春风精彩之不可告人删除CookieS<BR>"ForEachobjCookieInRequest.CookiesResponse.Cookies(objCookie).Expires="1，1，2001"'设置时间删除.NextResponse.Write"恭喜,删除成功!"%>...
http://www.jb51.net//article/4703.htm
DimstrCookie,strTrystrCookie=Request.Cookies("MyCookie") strTry=Request.QueryString("Try") IfstrCookie=""Then '检测否是设置了Cookie. IfstrTry=""Then Response.Cookies("M...
http://www.jb51.net//article/4702.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
如何在ADSI中查询用户属性？<%DimxOnerrorresumenext'Setx=GetObject("WinNT://kenfilszwin2k/allen")strLDAP="LDAP://kenfilszwin2k/CN=AllenHe,OU=kenfilsz,dc=kenfilsz,dc=com"setx=getobject(strLDAP)Response.Write"ObjectName:"&x.Name&"<br>"Response.Write"ObjectClass:"&x.Class&"<br>"Setcls...
http://www.jb51.net//article/4671.htm
2.创建让用户选择日期窗体创建一个窗体，添加以下控件：一个“年”组合框，一个“月”组合框，一个“开始日期”文本框，一个“结束日期”文本框。如果添加组合框时出现控件向导，取消向导。把“年”组合框的数据属性设置如上图，这样用户就只能选择1999-2002年，当然还可以再增加年份。默认值为当前日期的年份。和“年”组合框类似，把“月”组合框的数据属性设置如上图，这样用户就只能选择1-12月。默认值为当前日期的月份...
http://www.jb51.net//article/4063.htm
3.根据用户选择的日期自动计算期初和期末日期在“开始日期”文本框的控件来源处填写：=DateAdd("m",-1,CDate([年]&"-"&[月]&"-26"))刚才学到的函数就用上了，这是个嵌套表达式，CDate([年]&"-"&[月]&"-26")表示用户选择的日期的26日，整个表达式表示用户选择的日期前一个月的26日。这里的“年”和“月”都加上了[]，表示它们是控件。在“结束日期”文本框的控件来源处填写：=CDate([年]&"-"&[月]&"-25")表示用户选择的日期的25日。这是窗体运行的效果，开始日期和结束...
http://www.jb51.net//article/4060.htm