ASP编程：在线变动Serv-U暗码示例代码

只看该作者 · 发表于 2015-1-16 22:46:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般serv-u|示例|在线我们使用Serv-U的obdc功效，能够把FTP用户信息存在数据库中，如许对Web操纵便利了良多，上面是在线变动暗码的列子，数据库为Access，表和字段的计划请参考Serv-U的匡助文件。
加密算法为随机码与MD532位加密，比方：
两个随机字母：ab
用户输出暗码：123456
天生的暗码为：ab+MD5(ab123456)
参考：
增补：md5前往为32位的年夜写字符
提醒：代码仅完成变动暗码的功效，其实不必定完整切合或到达您的需求。
<p>


<%
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,[password]from[useraccounts]wherename="&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="update[useraccounts]set[password]="&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对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。

只看该作者 · 发表于 2015-3-23 00:09:11

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-3-16 19:52:52

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

只看该作者 · 发表于 2015-3-9 01:30:41

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

只看该作者 · 发表于 2015-2-27 11:02:42

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

只看该作者 · 发表于 2015-2-9 16:37:11

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

只看该作者 · 发表于 2015-2-4 05:59:49

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

只看该作者 · 发表于 2015-1-25 21:54:09

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

只看该作者 · 发表于 2015-1-19 23:13:49

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

只看该作者 · 发表于 2015-1-19 23:13:48

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP编程：在线变动Serv-U暗码示例代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子