?? save_reg.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' Serv-U 用戶在線注冊管理程序-1.0(odbc+asp版)[2006040819]
' 版權所有：北江科技
' 客服QQ:418322257 E-Mail:qystu@163.Com
'歡迎大家聯系我們，根據具體情況定制相對應的程序。
'討論建議網址：http://asp.6to23.com/qyzz/qystu/forumTopicRead.asp?id=1187
'=========================================================
%>
<!--#include file="md5.asp"-->
<!--#include file="config.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebName%>-保存申請...-<%=PlugVersion%></title>
<%
function MyRandc(n)
thechr = ""
for i=1 to n
Randomize timer
zNum = cint(25*Rnd)
if zNum mod 2 = 0 then
zNum = zNum + 97
else
zNum = zNum + 65
end if
thechr = thechr & chr(zNum)
next
MyRandc = thechr
end function
%>
<%
asanname=request("username")
rndstr =MyRandc(2)
asankpassword=request("password")
asanpassword=rndstr&md5(rndstr&asankpassword)
asanconfirmpwd=request("confirmpwd")
asanemail=request("email")
asanregip=request("regip")
%>
<%
dim asanHomeDir,asanQuotaMax,qinExpiration
asanQuotaMax=1048576*QuotaMax
asanHomeDir=user_folder+asanname
asanAccess=user_folder+asanname+ServUAccess
if Expirationtime=true then
qinExpiration=date()+asanExpiration
else
qinExpiration=#1980-1-1#
end if
%>
<%
if request.form("username")="" then
response.write "錯誤提示:請輸入用戶名!"
response.end
end if
if request.form("password")="" then
response.write "錯誤提示:請輸入口令!"
response.end
end if
if request.form("password")<>request.form("confirmpwd") then
response.write "錯誤提示:兩次口令不相符!"
response.end
end if
if request.form("email")="" then
response.write "錯誤提示:必須輸入你的正確EMAIL!"
response.end
end if
%>
<%
Dim ftp_user__MMColParam
ftp_user__MMColParam = "1"
If (Request.Form("username") <> "") Then
ftp_user__MMColParam = Request.Form("username")
End If
%>
<%
Dim ftp_user
Dim ftp_user_numRows
Set ftp_user = Server.CreateObject("ADODB.Recordset")
ftp_user.ActiveConnection = MM_ServU_STRING
ftp_user.Source = "SELECT User FROM User_accounts WHERE User = '" + Replace(ftp_user__MMColParam, "'", "''") + "'"
ftp_user.CursorType = 0
ftp_user.CursorLocation = 2
ftp_user.LockType = 1
ftp_user.Open()
ftp_user_numRows = 0
%>
<% if ftp_user.eof then%>
<%
dim fso,asan_user_folder
asan_user_folder=user_folder&asanname
Set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(asan_user_folder) then
fso.CreateFolder (asan_user_folder)
set insert_user = Server.CreateObject("ADODB.Command")
insert_user.ActiveConnection = MM_ServU_STRING
insert_user.CommandText = "INSERT INTO User_accounts (User, Access, Password, HomeDir, QuotaEnable, QuotaMax, PassType, RegIp, Email,Expiration,Expirationtype) VALUES ('"&asanname&"','"&asanAccess&"','"&asanpassword&"','"&asanHomeDir&"',"&asanQuotaEnable&","&asanQuotaMax&","&asanPassType&",'"&asanregip&"','"&asanemail&"','"&qinExpiration&"','"&asanExpirationtype&"') "
insert_user.CommandType = 1
insert_user.CommandTimeout = 0
insert_user.Prepared = true
insert_user.Execute()
response.redirect "reg_success.asp"
else
Response.Write("<center><br><br><br><br><br><br>請注意：需要新建的用戶目錄已建立，可能已有相同名稱的用戶注冊，請與管理員聯系：<a href='mailto:"&webserveremail&"'>"&webserveremail&"</a>。<br><a href='reg.asp'>返回申請頁面</a></center>")
end if
%>
<%else%>
<center>
<P><font color="#FF0000">對不起，您的用戶<%=asanname%>已被他人所用，請您換一個用戶名申請<a href="reg.asp">返回申請頁面</a></font></p>
</center>
<%end if%>
</body>
</html>
<%
ftp_user.Close()
Set ftp_user = Nothing
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -