<%genPassword = ""RandomizeFor i = 1 to 8intNum = Int(10 * Rnd + 48)intUpper = Int(26 * Rnd + 65)intLower = Int(26 * Rnd + 97)i...
quote.asp<%Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")Set MyTextFile = MyFileObj.OpenTextFile("c:quote.tx...
<%response.write makePassword(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandom...
第一个办法:用两个文件来解决这个问题:userandpwd.asp和secretarticle.asp。前者只负责提供输入用户名和密码,由后者来完成验证工作。这样即使知道了asppwdrst.asp 所在的 URL,也决不会看到什么内容的。userandpwd...
<% ' 读取用户输入的账号和密码. UserID = Request("UserID") Password = Request("Password") ' 检查UserID及Password是否正确.If UserID <>"hrmis" ...
manage.asp' 登录页面.<%@ Language=VBScript %><html><body><form name="Login" method="Post" action="login.asp">&...
<%if not IsEmpty(Session("cust―id")) and Len(Session("cust―id"))>0 then' 用户登录后指向主页. Response.Redirect("navigation/dashbrd.as...
security.asp<%bLoggedIn = (len(session("UserName")) > 0) if bRequireLogin then' 要求登录. if Not bLoggedIn then ...
protect.asp<html><head><title>千花飞舞之春风精彩</title></head><body bgcolor="#00FFFF"><form action=...
global.asp <script language=vbscript runat=server> sub Session_onstart session("register")="false" ' 记...
main.htm<html><body><form action="login.asp" method="Post"><input type="text" name="username" size="20"> 账...
<script language="vbs">sub send_onclick dim f  ...
authenticate.asp<%Dim URLURL = Request.QueryString' 获得URL. %> <html><body><FORM METHOD=POST ACTION="/validate...
<%@ LANGUAGE="VBscript" %> <html><head> <title>撼雪喷云之限传文件<...
<html><head><title>星河影动</title></head><body><tr><td height="69"><p align="cente...
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Libra...
upload.asp <form action=http://<%= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post> <p>主题: <...
<html><script language="VB" runat="server"> Sub UploadBtn_Click(Sender as Object, E as E...
fileup.htm < html > < head >< title >千花飞舞之上传单个文件< /title >< /head ><body...
newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=javascript>//Set these to true ...