|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。serv-u<!--#includefile="md5.asp"-->
<%
**************************************************
*awaysrain(相对零度)*
*完成工夫:2003-10-10*
*测试情况:WIN2000SERVER,SERV-U4.2-beta版*
**************************************************
DiminiPath,iniFileName,iniStr,tmpStr,n
DimuserName,passWord,tmp
userName="myfso222"用户名
passWord="awaysrain"暗码
tmp="ai"随机天生两个小写字母,(应当是随机天生的,可是我这里省略了)
passWord=tmp&UCase(md5(passWord))暗码,是MD5加密过的,用动网的MD5加密程序,详细算法是随机天生两位小写字母,然后和你的暗码毗连落后行MD5加密,把随机天生的暗码和MD5加密后的了局作为暗码寄存,举个例子来讲好比上面的awaysrain用户,我的暗码为awaysrain先随机天生两位小写字母ai,和我的暗码awaysrain毗连失掉aiawaysrain把aiawaysrain举行MD5加密失掉9118BFD94A9CE9CF37AE5BAA947ED596把随机天生两位小写字母ai和MD5加密后的了局9118BFD94A9CE9CF37AE5BAA947ED596毗连失掉暗码ai9118BFD94A9CE9CF37AE5BAA947ED596
iniPath="D:ProgramFilesServ-U"ini文件的路径
iniFileName="ServUDaemon.ini"ini的文件名
Setfso=Server.CreateObject("Scripting.FileSystemObject")
SetServUIni=fso.OpenTextFile(iniPath&""&iniFileName,1,false)
iniStr=""
n=0
addedUserList=false
Settf=fso.CreateTextFile(iniPath&""&iniFileName&"._awaysrain.tmp",True)
天生新的一时INI文件
DoWhilenotServUIni.AtEndOfStream
tmpStr=ServUIni.ReadLine
IfInstr("awaysrain||"&tmpStr,"awaysrain||User")>0Then
纪录用户本来的数目
n=n+1
EndIf
IfInstr("awaysrain||"&tmpStr,"awaysrain||[USER=")>0andnotaddedUserListThen
往用户列表的部分增加如今的用户
n=n+1
tf.WriteLine("User"&n&"="&userName&"|1|0")
addedUserList=true
EndIf
tf.WriteLine(tmpStr)
Loop
ServUIni.Close
增加新用户的信息,详细内容能够在SERV-U中新建用户并对比INI文件
tf.WriteLine("[USER="&userName&"|1]")用户名
tf.WriteLine("Password="&passWord)暗码
tf.WriteLine("HomeDir=e: emp")主目次
tf.WriteLine("RelPaths=1")是不是锁定用户于主目次
tf.WriteLine("MaxUsersLoginPerIP=1")不异IP同时登录数
tf.WriteLine("SpeedLimitDown=102400")最年夜下载速率
tf.WriteLine("TimeOut=600")余暇超不时间(秒)
tf.WriteLine("Access1=E:Temp|RLP")可会见目次,能够不是一个,好比Access2=E:Temp1|RLP
tf.Close
--------------------备份本来的INI文件--------------------------
Setf1=fso.GetFile(iniPath&""&iniFileName)
f1.Copy(iniPath&""&iniFileName&"._awaysrain.bak")
f1.Delete
--------------------把天生的一时INI文件改成正式的INI--------------------------
Setf1=fso.GetFile(iniPath&""&iniFileName&"._awaysrain.tmp")
f1.Copy(iniPath&""&iniFileName)
f1.Delete
Setfso=nothing
%>
注:以上代码假定ServUDaemon.ini中的格局只要一个域并已最少有一个用户
测试的ServUDaemon.ini文件布局以下:
==================================
[Domain1]
User1=222|1|0
User2=myfso111|1|0
[USER=222|1]
Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0
HomeDir=E:Temp
RelPaths=1
TimeOut=600
Access1=E:Temp|RLP
[USER=myfso111|1]
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596
HomeDir=e: emp
RelPaths=1
TimeOut=600
Access1=E:Temp|RLP
天生后的文件布局以下
==================================
[Domain1]
User1=222|1|0
User2=myfso111|1|0
User3=myfso222|1|0
[USER=222|1]
Password=hwB1ECF70CDAF5DAE2B981AE394EEFCDC0
HomeDir=E:Temp
RelPaths=1
TimeOut=600
Access1=E:Temp|RLP
[USER=myfso111|1]
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596
HomeDir=e: emp
RelPaths=1
TimeOut=600
Access1=E:Temp|RLP
[USER=myfso222|1]
Password=ai9118BFD94A9CE9CF37AE5BAA947ED596
HomeDir=e: emp
RelPaths=1
TimeOut=600
Access1=E:Temp|RLP
附MD5.ASP
==========================================
<%
PrivateConstBITS_TO_A_BYTE=8
PrivateConstBYTES_TO_A_WORD=4
PrivateConstBITS_TO_A_WORD=32
Privatem_lOnBits(30)
Privatem_l2Power(30)
PrivateFunctionLShift(lValue,iShiftBits)
IfiShiftBits=0Then
LShift=lValue
ExitFunction
ElseIfiShiftBits=31Then
IflValueAnd1Then
LShift=&</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|