繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在线修改Serv-U 4.2用户密码
- ASP
- ASP编程中20个非常有用的例子
- 省名与城名下拉选择框联动
- ASP有函数可以把某个网页通过STREAM下载吗？
- 用Regular Expression来改变HTML代码
- 控制输出字符串的长度，可以区别中英文
- 教你做小偷程序 容易学
- 小偷程序原理和简单示例
- 好漂亮的钟[代码]
- 实现WEB中的@虚拟域名系统 原理篇
- ASP对excel的操作
- 将服务器端文件夹下的文件，按文件建立的时间先后排序
- 存储过程编写经验和优化措施
- 存储过程入门
- 在ASP中怎樣用Excel寫報表
- 在ASP中使用Oracle数据库技巧(1)
- 在ASP中使用Oracle数据库技巧(2)
- 在ASP中使用断开的记录集
- 披著羊皮的大野狼 Session
- 两级联动的select XML版
- 判断checkbox是否至少有选择一项
ASP 中的 在线修改Serv-U 4.2用户密码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 211 ::
收藏到网摘: n/a
以下代码在Serv-U 4.2上测试有效
<%
' |###########################|
' | 网海求生者QQ：54883661 |
' | mail:[email protected] |
' |###########################|
inipath="D:\Program Files\Serv-U\ServUDaemon.ini" '设置ServUDaemon.ini文件路径
user="[USER="&request("user")&"|1]"
pass="Password="&request("pass")
key=request("key")
if key<>"" then
dim os,userlong,passlong,pl,s,ss
Set fso=CreateObject("scripting.FileSystemObject")
set os=fso.opentextfile(inipath,1) '读取ServUDaemon.ini
s=os.readall
os.close
userlong=instr(s,user)+len(user)+2
for i=userlong to userlong+20
passlong=passlong+1
if asc(mid(s,i,1))=13 then
exit for
end if
next
pl=mid(s,userlong,passlong-1)
ss=Replace(s,user&chr(13)&chr(10)&pl,user&chr(13)&chr(10)&pass)
set os=fso.createtextfile(inipath,true) '写入ServUDaemon.ini
os.write ss
os.close
end if
%>
<form method="post">
用户名：<input type="text" name="user"><br>
新密码：<input type="text" name="pass"><br>
<input type="submit" name="key" value="修改"><br>
</form>
评论 (0) All
