• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册
OStack程序员社区-中国程序员成长平台 › 门户 › 编程› 综合其他›编程千万问

编程千万问

RSS
  • 如何让用户也能修改密码？
    如何让用户也能修改密码？
    %id = Request("id")newpassword = Request("password")newpasswordtemp = Request("passwordtemp")If newpassword newpasswordtemp ThenResponse.Write "center对不起,密码未能确认,请重新输入!/center"Response.E ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：327 | 回复：0
  • 如何取回已忘记的密码？
    如何取回已忘记的密码？
    forget.asp' 申请.htmlheadtitle闪亮日子之用户密码核实/title/headdiv align="center"centertable border="0" cellspacing="0" width="600" height="158" tr td height="67"p align="center"闪亮日子br 用户密码核 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：317 | 回复：0
  • 如何将产生的密码记录并发送给用户并通过点击链接激活？
    如何将产生的密码记录并发送给用户并通过点击链接激活？
    %@language="vbscript" %% set mail= server.CreateObject("cdonts.newmail") mail.subject="恭喜,您在随风起舞注册成功,感谢您的参与!" mail.to = mailid mail.from ="[email protected]" mail.body= "这是随风起舞寄 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：325 | 回复：0
  • 如何做一个随机密码产生器？
    如何做一个随机密码产生器？
    %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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：326 | 回复：0
  • 如何做一个密码“生成器”？
    如何做一个密码“生成器”？
    randompassword.asp% Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword genPassword = \"\" Randomize ' 用Randomize生成随机种子.For i = 1 to 7 ' 循环7次，即创建7位随机密码.intNum = Int ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：317 | 回复：0
  • 如何利用当前时间生成随机函数？
    如何利用当前时间生成随机函数？
    quote.asp%Set MyFileObj = Server.CreateObject("Scripting.FileSystemObject")Set MyTextFile = MyFileObj.OpenTextFile("c:\quote.txt")' 设置好路径.IF NOT MyTextFile.AtEndOfStream THENheader = CInt(MyTextF ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：393 | 回复：0
  • 如何编制一个产生随机密码的函数？
    如何编制一个产生随机密码的函数？
    %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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：325 | 回复：0
  • 怎样避免直接在地址栏敲入URL即可绕过登录页的错误？
    怎样避免直接在地址栏敲入URL即可绕过登录页的错误？
    第一个办法：用两个文件来解决这个问题：userandpwd.asp和secretarticle.asp。前者只负责提供输入用户名和密码，由后者来完成验证工作。这样即使知道了asppwdrst.asp 所在的 URL，也决不会看到什么内容的。userandpw ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：332 | 回复：0
  • 如何防止未经注册的用户绕过注册界面直接进入应用系统？
    如何防止未经注册的用户绕过注册界面直接进入应用系统？
    ％ ' 读取用户输入的账号和密码. UserID = Request("UserID") Password = Request("Password") ' 检查UserID及Password是否正确.If UserID "hrmis" Or Password "password" Then Response.Write "噢,您的口令错误! ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：329 | 回复：0
  • 如何最大限度地实现安全登录功能？
    如何最大限度地实现安全登录功能？
    ％if not IsEmpty(Session("cust—id")) and Len(Session("cust—id"))0 then' 用户登录后指向主页.　Response.Redirect("navigation/dashbrd.asp")　' 在此添入真正的主页URL.end ifbLogin = False　　' 设置标志. ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：324 | 回复：0
  • 如何制作一个安全的页面？
    如何制作一个安全的页面？
    manage.asp' 登录页面.%@ Language=VBScript %htmlbodyform name="Login" method="Post" action="login.asp"input type="text" name="username" size="20"用户名brinput type="password" name="passwor……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：366 | 回复：0
  • 如何实现强制登录？
    如何实现强制登录？
    security.asp%bLoggedIn = (len(session("UserName")) 0) if bRequireLogin then' 要求登录. if Not bLoggedIn then response.redirect "login.asp?comebackto=" _ request.servervariables("script_name") "? ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：334 | 回复：0
  • 如何实现某一页面只让特定的用户浏览？
    如何实现某一页面只让特定的用户浏览？
    protect.asphtmlheadtitle千花飞舞之春风精彩/title/headbody bgcolor="#00FFFF"form action="Protect.asp" method="post"' 精彩的要限制的页面.input type="text" name="text" ' 此处可注明该页面的其它内容. 姓名: ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：330 | 回复：0
  • 如何实现某些页面只让特定的用户浏览？
    如何实现某些页面只让特定的用户浏览？
    global.asp　 script language=vbscript runat=server 　sub Session_onstart 　　session("register")="false" ' 记录用户成功登录的信息. 　　session("lognumber")=0 　 ' 记录用户尝试登录的次数,最多允许尝试三 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：334 | 回复：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……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：323 | 回复：0
  • 如何对用户进行授权？
    如何对用户进行授权？
    authenticate.asp%Dim URLURL = Request.QueryString' 获得URL. % htmlbodyFORM METHOD=POST ACTION="/validate.asp" INPUT TYPE=HIDDEN NAME="URL" VALUE="%=URL%"' 将URL保存到一个隐藏变量中. 用户名: INPUT TYPE ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：327 | 回复：0
  • 如何用拦截表单的方法上传图片？
    如何用拦截表单的方法上传图片？
    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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：328 | 回复：0
  • 如何限制上传文件的大小？
    如何限制上传文件的大小？
    %@ LANGUAGE="VBscript" % htmlhead title撼雪喷云之限传文件/title /head body % Set upl = Server.CreateObject("SoftArtisans.FileUp") % % upl.MaxBytes = 1000' 限制最大尺寸1000字节.% 特别提醒 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：303 | 回复：0
  • 在无组件的情况下，如何上传图片？
    在无组件的情况下，如何上传图片？
    htmlheadtitle星河影动/title/headbodytrtd height="69"p align="center"撼雪喷云之无组件上传图片/font/td/trtrtd height="9"form enctype="multipart/form-data" action="upload.asp" method="post"' 请求表单信息 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：346 | 回复：0
  • 如何实现无组件上传二进制文件？
    如何实现无组件上传二进制文件？
    !--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 创建一个Stream 对象. objStrea ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：302 | 回复：0
  • 如何实现文件上传并自动归类功能？
    如何实现文件上传并自动归类功能？
    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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：343 | 回复：0
  • 如何上传一个单纯的HTML文件？
    如何上传一个单纯的HTML文件？
    fileup.htm　　 html head title 千花飞舞之上传单个文件 /title /head body 　　 form enctype="multipart/form-data" method="post" action="fileup.asp" 　　 输入想要上传的文件: input type="file" name ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：333 | 回复：0
  • 如何简单地上传文件？
    如何简单地上传文件？
    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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：319 | 回复：0
  • 如何制作一个文本文件编辑器？
    如何制作一个文本文件编辑器？
    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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：318 | 回复：0
  • 如何在线查询本地机的文件？
    如何在线查询本地机的文件？
    htmlheadtitle随风起舞之文件查询/title/headbodyp align="center" bfont face="宋体" color="red" size="5" 星河影动之文件查询系统/font/b/phrform method="POST" action="search.asp" pfont color="green"请输入 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：346 | 回复：0
  • 如何获知文件最后的修改日期和时间？
    如何获知文件最后的修改日期和时间？
    %Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量，并且GetProperty类是当前唯一可用的.strModified = objCMFU.LastModified' 检索并返回包含最后修 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：312 | 回复：0
  • 如何获知文件被改动的情况？
    如何获知文件被改动的情况？
    Function File_GetLastModified( sFile )Dim objFileObj, objFileSet objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：333 | 回复：0
  • 如何获知并显示文件的大小？
    如何获知并显示文件的大小？
    %Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%p% =MyPath % is % =MyFolder.Size % bytes/p 我们 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：328 | 回复：0
  • 如何获取文件的名称和扩展名？
    如何获取文件的名称和扩展名？
    %Function getFilename(text)text = Left(text,inStrRev(fl,".")-1)getFilename = textEnd FunctionFunction getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function%……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：325 | 回复：0
  • 如何对一个文件夹进行创建和删除？
    如何对一个文件夹进行创建和删除？
    如何对一个文件夹进行创建和删除？% set fs=createobject("scripting.filesystemobject") %% MyFolder=server.mappath("/chunfeng/happy/") %%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：330 | 回复：0
  • 如何对文件进行操作？
    如何对文件进行操作？
    %@ LANGUAGE="VBScript" %% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") "\" filename ' 映射文件名到服 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：335 | 回复：0
  • 如何通过表单创建一个Word？
    如何通过表单创建一个Word？
    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……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：321 | 回复：0
  • 如何创建一个PDF文件？
    如何创建一个PDF文件？
    %Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" ' 连接NUL. Set oConn = CreateObjec ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：321 | 回复：0
  • 如何用表单在线建立目录？
    如何用表单在线建立目录？
    creatfolder.htm' 表单文件.form name="form1" method="post" action="folder.asp"创建一个文件夹: input type="text" name="name"input type="submit" name="Submit" value="提交"/formfolder.asp%@ LA……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：383 | 回复：0
  • 如何遍历目录及目录下的文件？
    如何遍历目录及目录下的文件？
    %@ Language=VBScript %% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolde ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：311 | 回复：0
  • 如何创建Word文件？
    如何创建Word文件？
    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 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：315 | 回复：0
  • 如何做一个文本书写器？
    如何做一个文本书写器？
    %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. ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：340 | 回复：0
  • 如何显示一个文本文件？
    如何显示一个文本文件？
    Write（StrING）　 　 WriteLine（StrING）　 　 WriteBlankLines（LINES）　 　 〈html〉　 　 〈head〉　 　 〈http-equiv="Content-Type" content="text/html; 　 　 charset=gb2312"〉　 　 〈title〉春风精彩之 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：336 | 回复：0
  • 如何读取文本文件的内容？
    如何读取文本文件的内容？
    %Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：322 | 回复：0
  • 如何一行行地读取文件？
    如何一行行地读取文件？
    dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:39 | 阅读：328 | 回复：0
12345下一页
热门推荐
More+
专题导读
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap