shaily读书学习

有所为有所不为 No cross, no crown. ——Penn

ASP做FTP站点的问题?

刚前几天碰到这个问题,贴点代码参考  
   
  <!--#include   file="md5.asp"-->  
  <%  
  if   Request.QueryString("action")="true"   then  
          user=Request.Form("user")  
  password=Request.Form("password")  
  password2=Request.Form("password2")  
  if   password<>password2   then  
          Response.Write("两次密码不一致")  
  Response.end  
  end   if  
  tmp=rnd_num(1,2)  
  password=lcase(tmp)&UCASE(md5(tmp&password))  
  '省略判断是否存在用户名及插入数据库  
  '创建文件夹  
  dir="G:/11/regftp/"&user  
  set   fso=Server.CreateObject("Scripting.FileSystemObject")  
  set   CreDir=fso.CreateFolder(dir)  
  set   CreDir=nothing  
  set   fso=nothing  
  path="D:/Program   Files/Serv-U"  
  ininame="ServUDaemon.ini"  
  CreateFtp   path,ininame,user,password,dir,"600"  
           
  end   if%>  
  <html>  
  <head>  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">  
  <title>无标题文档</title>  
  </head>  
   
  <body>  
  <form   name="form1"   method="post"   action="?action=true">  
      <p>用户名:    
          <input   name="user"   type="text"   id="user">  
      </p>  
      <p>密码:    
          <input   name="password"   type="password"   id="password">  
      </p>  
      <p>密码:  
          <input   name="password2"   type="password"   id="password2">  
          <input   type="submit"   name="Submit"   value="提交">  
      </p>  
      <p>&nbsp;   </p>  
  </form>  
  </body>  
  </html>  
  <%  
  function   CreateFtp(Inipath,Ininame,user,password,dir,outtime)  
          set   fso=Server.CreateObject("Scripting.FileSystemObject")  
  if   fso.fileExists(Inipath&"/"&Ininame)=false   then  
          CreateFtp="ini文件不存在"  
  exit   function  
  else  
          set   objfso=fso.OpenTextFile(Inipath&"/"&Ininame,1,false)  
  set   crefso=fso.CreateTextFile(Inipath&"/"&Ininame&".tmp")  
  addedUserList   =   false    
  do   while   not   objfso.AtEndOfStream            
  str=objfso.ReadLine  
  if   instr(str,"User")>0   then  
          i=i+1  
  end   if  
  if   instr(str,"[USER=")>0   and   not   addedUserList   then  
          i=i+1  
  crefso.WriteLine("User"&i&"="&user&"|1|0")  
  addedUserList   =   true    
  end   if  
  crefso.WriteLine   str  
  loop  
  objfso.close  
  set   objfso=nothing  
  crefso.WriteLine("[USER="&user&"|1]")  
  crefso.WriteLine("Password="&password)  
                  crefso.WriteLine("HomeDir="&dir)  
                  crefso.WriteLine("RelPaths=1")  
                  crefso.WriteLine("TimeOut="&outtime)  
                  crefso.WriteLine("Access1="&dir&"|RWLP")  
                  crefso.WriteLine("SKEYValues=")  
                  crefso.close  
  set   crefso=nothing  
  '备份  
  set   bak=fso.GetFile(Inipath&"/"&Ininame)  
  bak.copy(Inipath&"/bak/"&Ininame&date&".bak")  
  bak.delete  
  set   bak=nothing  
  '把临时文件tmp改为正式ini文件  
  set   bak=fso.GetFile(Inipath&"/"&Ininame&".tmp")  
  bak.copy(Inipath&"/"&Ininame)  
  bak.delete  
  set   bak=nothing  
  end   if  
          set   fso=nothing  
          CreateFtp=true  
  end   function  
  %>
阅读更多
个人分类: asp专辑
想对作者说点什么? 我来说一句

使用 C# 创建一个 FTP 服务器

2013年03月21日 101KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭