ASP编程:在线变动Serv-U暗码示例代码
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般serv-u|示例|在线我们使用Serv-U的obdc功效,能够把FTP用户信息存在数据库中,如许对Web操纵便利了良多,上面是在线变动暗码的列子,数据库为Access,表和字段的计划请参考Serv-U的匡助文件。加密算法为随机码与MD532位加密,比方:
两个随机字母:ab
用户输出暗码:123456
天生的暗码为:ab+MD5(ab123456)
参考:
增补:md5前往为32位的年夜写字符
提醒:代码仅完成变动暗码的功效,其实不必定完整切合或到达您的需求。
<p>
<!--#includefile=conn.asp-->
<!--#includefile=include/md5.asp-->
<%
dimact,UserName,OldPassword,NewPassword,reNewPassword
act=Request.form("act")
ifact="update"then
UserName=Request.form("UserName")
OldPassword=Request.form("OldPassword")
NewPassword=Request.form("NewPassword")
reNewPassword=Request.form("reNewPassword")
UserName=Replace(UserName,"","")
iflen(UserName)<1orlen(OldPassword)<1orlen(NewPassword)<1orlen(reNewPassword)<1then
alert("表单没有填写完全")
endif
iftrim(NewPassword)trim(reNewPassword)then
alert("暗码与确认暗码纷歧样")
endif
Sql0="selecttop1name,fromwherename="&UserName&""
setrs0=conn.execute(Sql0)
ifrs0.eofandrs0.bofthen
alert("用户名不存在")
else
dbname=rs0("name")
dbpassword=rs0("password")
endif
iftrim(cdbpassword)trim(dbpassword)then
alert("暗码毛病")
else
rndstr=MyRandc(2)两位随机字母
newdbpassword=rndstr&md5(rndstr&NewPassword)
sql2="updateset="&newdbpassword&"wherename="&UserName&""
conn.execute(sql2)
alert("暗码已变动,大概要几钟后才干失效")
endif
endif
functionalert(x)
response.write"<scriptlanguage=JavaScript>alert("&replace(x,"""","""")&");history.go(-1);</script>"
conn.close
setconn=nothing
response.end
endfunction
functionMyRandc(n)天生随机字符,n为字符的个数
thechr=""
fori=1ton
Randomizetimer
zNum=cint(25*Rnd)
ifzNummod2=0then
zNum=zNum+97
else
zNum=zNum+65
endif
thechr=thechr&chr(zNum)
next
MyRandc=thechr
endfunction
%>
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<METANAME="Author"CONTENT="海娃(51windows)">
<METANAME="Keywords"CONTENT="">
<title>变动FTP(Serv-U)暗码-51windows.net</title>
</head>
<body>
<formmethod="POST"action=""name="form"autocomplete="off">
<inputtype="hidden"name="act"value="update">
<divalign="center">
<center>
<tableborder="0"width="480"cellpadding="2"cellspacing="1"class="table"style="border:1solid#336699;font-size:14px;">
<tr>
<tdwidth="100%"align="center"colspan="2"class="title"style="background:#336699;color:#FFFFFF;">变动FTP(Serv-U)暗码</td>
</tr>
<p><strong><tr>
<tdwidth="30%"align="left"> 用户名[√]:</td>
<tdwidth="70%"><inputclass="input"type="text"maxlength=20name="UserName"size="25"value=""/>(FTP上岸用户名)</td>
</tr>
<tr>
<tdwidth="30%"align="left"> 旧暗码[√]:</td>
<tdwidth="70%"><inputclass="input"type="password"maxlength=20name="OldPassword"size="25"value=""/>(必需输出旧暗码)</td>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。 以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名") 多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。 Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。 他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。 哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的? 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
页:
[1]