%id = Request("id")newpassword = Request("password")newpasswordtemp = Request("passwordtemp")If newpassword newpasswordtemp ThenResponse.Write "center对不起,密码未能确认,请重新输入!/center"Response.E ...……

forget.asp' 申请.htmlheadtitle闪亮日子之用户密码核实/title/headdiv align="center"centertable border="0" cellspacing="0" width="600" height="158" tr td height="67"p align="center"闪亮日子br 用户密码核 ...……

%@language="vbscript" %% set mail= server.CreateObject("cdonts.newmail") mail.subject="恭喜,您在随风起舞注册成功,感谢您的参与!" mail.to = mailid mail.from ="[email protected]" mail.body= "这是随风起舞寄 ...……

%genPassword = ""RandomizeFor i = 1 to 8intNum = Int(10 * Rnd + 48)intUpper = Int(26 * Rnd + 65)intLower = Int(26 * Rnd + 97)intRand = Int(3 * Rnd + 1)Select Case intRandCase 1strPartPass = Chr(intNum ...……

randompassword.asp% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = \"\" Randomize ' 用Randomize生成随机种子.For i = 1 to 7 ' 循环7次，即创建7位随机密码.intNum = Int ...……

quote.asp%Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")' 设置好路径.IF NOT MyTextFile.AtEndOfStream THENheader = CInt(MyTextF ...……

%response.write makePassword(16)function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLen whatsNext = Int((1 - 0 + 1) * Rnd + 0)If ...……

第一个办法：用两个文件来解决这个问题：userandpwd.asp和secretarticle.asp。前者只负责提供输入用户名和密码，由后者来完成验证工作。这样即使知道了asppwdrst.asp 所在的 URL，也决不会看到什么内容的。userandpw ...……

％ ' 读取用户输入的账号和密码. UserID = Request("UserID") Password = Request("Password") ' 检查UserID及Password是否正确.If UserID "hrmis" Or Password "password" Then Response.Write "噢,您的口令错误! ...……

％if not IsEmpty(Session("cust—id")) and Len(Session("cust—id"))0 then' 用户登录后指向主页.　Response.Redirect("navigation/dashbrd.asp")　' 在此添入真正的主页URL.end ifbLogin = False　　' 设置标志. ...……

manage.asp' 登录页面.%@ Language=VBScript %htmlbodyform name="Login" method="Post" action="login.asp"input type="text" name="username" size="20"用户名brinput type="password" name="passwor……

security.asp%bLoggedIn = (len(session("UserName")) 0) if bRequireLogin then' 要求登录. if Not bLoggedIn then response.redirect "login.asp?comebackto=" _ request.servervariables("script_name") "? ...……

protect.asphtmlheadtitle千花飞舞之春风精彩/title/headbody bgcolor="#00FFFF"form action="Protect.asp" method="post"' 精彩的要限制的页面.input type="text" name="text" ' 此处可注明该页面的其它内容. 姓名: ...……

global.asp　 script language=vbscript runat=server 　sub Session_onstart 　　session("register")="false" ' 记录用户成功登录的信息. 　　session("lognumber")=0 　 ' 记录用户尝试登录的次数,最多允许尝试三 ...……

main.htmhtmlbodyform action="login.asp" method="Post"input type="text" name="username" size="20" 账号brinput type="password" name="password" size="20" 密码brinput type="submi……

authenticate.asp%Dim URLURL = Request.QueryString' 获得URL. % htmlbodyFORM METHOD=POST ACTION="/validate.asp" INPUT TYPE=HIDDEN NAME="URL" VALUE="%=URL%"' 将URL保存到一个隐藏变量中. 用户名: INPUT TYPE ...……

script language="vbs"sub send_&#111nclick dim f set f=document.ff photo=trim(f.photo.value) if photo="" then msgbox "嘻嘻,还没照片呢！",64 ,"上传" f.photo.focus ...……

%@ LANGUAGE="VBscript" % htmlhead title撼雪喷云之限传文件/title /head body % Set upl = Server.CreateObject("SoftArtisans.FileUp") % % upl.MaxBytes = 1000' 限制最大尺寸1000字节.% 特别提醒 ...……

htmlheadtitle星河影动/title/headbodytrtd height="69"p align="center"撼雪喷云之无组件上传图片/font/td/trtrtd height="9"form enctype="multipart/form-data" action="upload.asp" method="post"' 请求表单信息 ...……

!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 创建一个Stream 对象. objStrea ...……

upload.asp　 form action=http://％= Request. ServerVariables(SERVER_NAME)/wdread.asp method=post 　 p主题: input type=text name=subjectbr 作者:input name=author type=textbr 发布时间: input name=date ...……

fileup.htm　　 html head title 千花飞舞之上传单个文件 /title /head body 　　 form enctype="multipart/form-data" method="post" action="fileup.asp" 　　 输入想要上传的文件: input type="file" name ...……

htmlscript language="VB" runat="server" Sub UploadBtn_Click(Sender as Object, E as EventArgs) UploadFile.PostedFile.SaveAs(Server.MapPath("chunfeng.jpg")) MyImage.ImageUrl = "chunfeng.jpg" MyImage.Vis ...……

newdoc.asp%@ Language=VBScript %script id=DebugDirectives runat=server language=&#106avascript//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false/scripthtmlheadMETA na ...……

htmlheadtitle随风起舞之文件查询/title/headbodyp align="center" bfont face="宋体" color="red" size="5" 星河影动之文件查询系统/font/b/phrform method="POST" action="search.asp" pfont color="green"请输入 ...……

%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量，并且GetProperty类是当前唯一可用的.strModified = objCMFU.LastModified' 检索并返回包含最后修 ...……

Function File_GetLastModified( sFile )Dim objFileObj, objFileSet objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME ...……

%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%p% =MyPath % is % =MyFolder.Size % bytes/p 我们 ...……

%Function getFilename(text)text = Left(text,inStrRev(fl,".")-1)getFilename = textEnd FunctionFunction getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function%……

如何对一个文件夹进行创建和删除？% set fs=createobject("scripting.filesystemobject") %% MyFolder=server.mappath("/chunfeng/happy/") %%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End ...……

%@ LANGUAGE="VBScript" %% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") "\" filename ' 映射文件名到服 ...……

docform.htmform action="doccreate.asp"姓名: input type="text" name="Name" size="50" maxlength="100"电子邮件: input type="text" name="Email" size="50" maxlength="100"p内容:te……

%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" ' 连接NUL. Set oConn = CreateObjec ...……

creatfolder.htm' 表单文件.form name="form1" method="post" action="folder.asp"创建一个文件夹: input type="text" name="name"input type="submit" name="Submit" value="提交"/formfolder.asp%@ LA……

%@ Language=VBScript %% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolde ...……

creatdoc.asp!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"headtitle星河影动之创建Word文件/titleMETA HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"/head% dotLocation="'servernamedirectory ...……

%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs. ...……

Write（StrING）　 　 WriteLine（StrING）　 　 WriteBlankLines（LINES）　 　 〈html〉　 　 〈head〉　 　 〈http-equiv="Content-Type" content="text/html; 　 　 charset=gb2312"〉　 　 〈title〉春风精彩之 ...……

%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), ...……

dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do ...……