ftpuser_kt.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="admin.asp"-->
<!--#include file="ftp_option.asp"-->
<!--#include file="../inc/email_config.asp"-->
<%
if request("ftpuser")<>"" then
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from [ftpuser] where username='"&request("ftpuser")&"'"
rs.open sql,conn,1,3
rs("ktdate")=Now()
rs("ifkt")="True"
rs.update
sUser=rs("username")
sPass=rs("password")
email=rs("email")
set rs3=server.CreateObject("ADODB.Recordset")
sql3="select * from [user] where username='"&request("ftpuser")&"'"
rs3.open sql3,conn,1,3
groups=rs3("groups")
set rshost=server.createobject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,3
suserdir=rshost("userdir")
sDiskQuota=rs("ftpsize")*1048576
response.write "<script language=javascript>alert('用户"&sUser&"的FTP权限成功开通！');location.href='javascript:history.back()'</script>"
set rs2=server.CreateObject("ADODB.Recordset")
sql2="select * from config"
rs2.open sql2,conn,1,1
siteurl=rs2("siteurl")
mailtype=rs2("mailtype")
smtpserver=rs2("smtpserver")
smtpname=rs2("smtpname")
smtppass=rs2("smtppass")
ftphost=rs2("ftphost")
site=rs2("site")
siteemail=rs2("siteemail")
if mailtype<>0 then
dim topic,mailbody,useremail
topic = "尊敬的用户："&sUser&"，您在"&site&"递交的FTP申请已经开通！"
useremail = ""&email&""
mailbody="<font style='font-size:12px'>尊敬的用户："&sUser&"，您好！<br><br>&nbsp;&nbsp;&nbsp;&nbsp;您在"&site&"递交的FTP申请已经开通，您的账户信息如下：<br><br>"
MailBody = MailBody & "&nbsp;&nbsp;&nbsp;&nbsp;FTP地址："&ftphost&"<br>&nbsp;&nbsp;&nbsp;&nbsp;"
MailBody = MailBody & "用户名："&sUser&"<br>&nbsp;&nbsp;&nbsp;&nbsp;密　码："&sPass&"<br><br>"
MailBody = MailBody & "＊当您完成您的网页设计制作后，您就可以上传您的网站内容到您的空间，我们"
MailBody = MailBody & "推荐您使用FlashFXP或Leapftp工具上传。<br>"
MailBody = MailBody & "＊同时请遵守我们服务条款中的各项规定，如果违反，我们有可能在不提前通知的情况下关闭您的帐号。<br>"
MailBody = MailBody & "-----------------------------------------------------<br>" 
MailBody = MailBody & "需要回复此邮件，请回复至：<a href=mailto:"&siteemail&"  target=_blank>"&siteemail&"</a>，谢谢！<br>"
MailBody = MailBody & ""&site&"|<a href="&siteurl&" target=_blank>"&siteurl&"</a><br>"
MailBody = MailBody & ""&Now()&"</font>"
		select case mailtype
		case 1
			call jmail(useremail,topic,mailbody)
		case 2
			call Cdonts(useremail,topic,mailbody)
		case 3
			call aspemail(useremail,topic,mailbody)
		case Else
		end select
rs2.close
set rs2=nothing
end if
call AddNew(suser,spass,sDiskQuota,suserdir)
rs.close
set rs=nothing
end if
%>