仓酷云

标题: ASP编程：ASP + Serv-u 完成FTP的代码 [打印本页]

作者: 金色的骷髅 时间: 2015-1-16 23:35
标题: ASP编程：ASP + Serv-u 完成FTP的代码
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。serv-u
<%
**************************************************
*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的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。

作者: 愤怒的大鸟 时间: 2015-1-29 06:44
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

作者: 分手快乐 时间: 2015-2-2 17:32
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 若相依 时间: 2015-2-8 02:36
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 灵魂腐蚀 时间: 2015-2-24 02:14
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 爱飞 时间: 2015-3-7 10:29
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 简单生活 时间: 2015-3-14 22:58
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 只想知道 时间: 2015-3-21 14:57
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

欢迎光临仓酷云 (http://ckuyun.com/)