📄 adduser.asp
字号:
<!--#include file="..\config.asp" -->
<!--#include file="..\include\md5.asp" -->
<!--#include file="..\include\functions.asp" -->
<!--#include file="..\include\makepass.asp" -->
<%
user=Replace_Html(request("ID"))
pass=request("password")
temp=makepassword(2)
pass=temp & md5(temp & pass)
HomeDir = wwwroot & user & "_" & makepassword(4)
Access1 = HomeDir & Access
wname=replace(request("wname"),"'","")
wwwname = Replace_Html(replace(request("wwwname"),"'",""))
wwwfunction = Replace_Html(replace(request("wwwfunction"),"'",""))
pic=request("pic")
username=replace(request("username"),"'","")
userclass=replace(request("userclass"),"'","")
email=replace(request("email"),"'","")
tel=replace(request("tel"),"'","")
tel1=replace(request("tel1"),"'","")
adress=replace(request("adress"),"'","")
YY=year(date)
MM=Month(date)
if len(MM)=1 then MM="0"&MM
DD=Day(date)
if len(DD)=1 then DD="0"&DD
Ddate=year(date)&"-"&MM&"-"&DD
Set objCnn = Server.CreateObject("ADODB.Connection")
objCnn.Open dsn
'Set objCnn1 = Server.CreateObject("ADODB.Connection")
'objCnn1.Open dsn
flage=True
strSQL = "select * from useraccounts where user='" & user &"'"
set rs = objCnn.Execute(strSQL)
if not rs.eof then
flage = False
%>
<script language=vbscript>
msg = "对不起,出错了！" & vbCrlf
msg = msg & "该用户已经存在,请重新选择一个用户名注册！"
msgbox msg
history.back()
</script>
<%
rs.close
response.end
end if
strSQL = "select id from information where wwwname='" & wwwname & "'"
set rs1 = objCnn.Execute(strSQL)
if not rs1.eof then
flage=False
%>
<script language=vbscript>
msg = "对不起,出错了！" & vbCrlf
msg = msg & "站点名称与已有的站点重复,重新选一个吧！"
msgbox msg
history.back()
</script>
<%
rs1.close
response.end
end if
strSQL = "select id from information where username='" & username & "'"
set rs2 = objCnn.Execute(strSQL)
if not rs2.eof then
flage=False
%>
<script language=vbscript>
msg = "对不起,出错了！" & vbCrlf
msg = msg & "你已经申请了一个站点空间,一个人只能申请一个！"
msgbox msg
history.back()
</script>
<%
rs2.close
response.end
end if
if flage then
set objSFO = server.createObject("Scripting.FileSystemObject")
do while objSFO.FolderExists(HomeDir)
HomeDir = wwwroot & user & "_" & makepassword(4)
Access1 = HomeDir & Access
loop
objSFO.CreateFolder(HomeDir)
strSQL = "insert into Useraccounts(User, Password, Access, HomeDir, MaxUsers, QuotaMax, LockHomeDir, QuotaEnable, Disable," _
& "countIp, RelPaths, hideDir, ChangePass,infofile)" _
& " values ('" & User & "','" &pass& "','" & Access1 & "','" & HomeDir & "'," & MaxUsers& "," _
& QuotaMax& "," & LockHomeDir & "," & QuotaEnable & "," & Disable & "," & countIp & "," _
& RelPaths & "," & hideDir & "," & ChangePass & ",'" & infofile & "')"
objCnn.Execute(strSQL)
strSQL = "insert into information(User, Password, wname, wwwname, pic, wwwfunction, username, userclass, email, tel, tel1, adress, CreateDate)" _
& " values ('" & User & "','" & md5(request("password")) & "','" & wname & "','" & wwwname & "','" & pic & "','" & wwwfunction & "','" _
& username & "','" & userclass & "','" & email & "','" & tel & "','" & tel1 & "','" & adress & "','" & DDate & "')"
'response.Write strSQL
objCnn.Execute(strSQL)
if serverport <> 21 then
ftpserver="FTP://"& servername & ":" & serverport & "/"
else
ftpserver="FTP://"& servername & "/"
end if
msg="恭喜您已经注册成功，请记住你的用户名和密码！<br>用户名:"&user&"<br>密 码:" & request("password")
msg=msg&"<br><br>您上传文件的登录地址是:<a href='"& ftpserver & "'>" & ftpserver & "</a><br>"
msg=msg&"您的主页地址是:http://"&servername&"/"&user&"/<br>默认的起始页的文件名为：index.htm或index.asp<br>您的主页空间:当前2MB,开通后为50MB。"
msg=msg&"<br><br><font color=red>您现在可以上传您的个人主页内容以便进行审核，您的主页必需经过审核才能生效，审核将在三个工作日内完成，"
msg=msg&"审查结果将以邮件方式发送到您的信箱。主页内容审核通过后，会通知您到您所在的校区网络中心进行身份确认，如不在指定的时间内进行身份确认，"
msg=msg&"网络中心有权清除您的注册信息和站点内容。如果您没有及时收到审查结果的通知，可与网络中心联系，联系电话：68098244</font>"
end if
'objCnn1.close
'Set objCnn1=nothing
objCnn.close
Set objCnn=nothing
set objSFO = nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户注册</title>
<style type="text/css">
<!--
a:link {
color: #333333;text-decoration:none
}
a:visited {
color: #666666;text-decoration:none
}
a:active {
color: #999999;text-decoration:none
}
A:hover {
color: #FF0000;text-decoration:underline
}
-->
</style>
<base target="_blank">
</head>
<body>
<!--#include file="head.asp" -->
<!--#include file="NavBar.Asp" -->
<div align="center">
<center>
<table border="0" width="750" style="border: 1 solid #000000" cellspacing="0" cellpadding="0" height="60%">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" width="400" cellspacing="0" cellpadding="0" style="font-size: 9pt">
<tr>
<td ><%response.write msg%></td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
<!--#include file="../food.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -