?? user_addok.asp
字號:
<% @language="vbscript" %>
<!--#include file="Md5.asp"-->
<%
response.buffer=true
Response.Expires=0
if session("quanxian")<"3" then
response.write "SORRY <br>"
response.write "您的權限不夠！請勿嘗試非法訪問！<br>"
response.end
end if
dim name
dim mclass_folder
dim url
dim pass
dim rpass
dim email
dim show
dim rq
dim aq
name=Request.form("name")
mclass_folder=request.form("mclass_folder")
pass="123456"
quanxian=request.form("quanxian")
userd=request.form("user_id")
'--------------------------------------------
ming=request.form("ming")
sex=request.form("sex")
bumen=request.form("bumen")
zhiwu=request.form("zhiwu")
phone=request.form("phone")
mobile=request.form("mobile")
'--------------------------------------------
email=request.form("email")
url=request.form("url")
chayue=request.form("chayue")
'--------------------------------------------
if chayue="" then chayue ="0" end if
if ming="" then ming ="未填" end if
if mobile ="" then mobile ="未填" end if
if bumen="" then bumen="未填" end if
if zhiwu="" then zhiwu="未填" end if
if phone="" then phone="未填" end if
if mobile="" then mobile="未填" end if
if email="" then email="未填" end if
if url="" then url="未填" end if
if show="" then show="無簡介" end if
if InStr(ucase(name),"奸")>0 or InStr(ucase(name),"淫")>0 or InStr(ucase(name),"娼")>0 or InStr(ucase(name),"嫖")>0 or InStr(ucase(name),"性")>0 and InStr(ucase(name),"交")>0 or InStr(ucase(name),"妓")>0 or InStr(ucase(name),"色")>0 and InStr(ucase(name),"黃")>0 or InStr(ucase(name),"色")>0 and InStr(ucase(name),"情")>0 or InStr(ucase(name),"日")>0 and InStr(ucase(name),"媽")>0 or InStr(ucase(name),"日")>0 and InStr(ucase(name),"妹")>0 or InStr(ucase(name),"日")>0 and InStr(ucase(name),"姐")>0 or InStr(ucase(name),"日")>0 and InStr(ucase(name),"娘")>0 or InStr(ucase(name),"日")>0 and InStr(ucase(name),"奶")>0 or InStr(ucase(name),"乳")>0 or InStr(ucase(name),"陰")>0 or InStr(ucase(name),"操")>0 and InStr(ucase(name),"媽")>0 or InStr(ucase(name),"dia")>0 or InStr(ucase(name),"叼")>0 or InStr(ucase(name),"口刀")>0 or InStr(ucase(name),"色")>0 or InStr(ucase(name),"靠")>0 then
response.write "注冊失敗，姓名包含不雅字眼！"
response.end
end if
if InStr(ucase(name),"=")>0 or InStr(ucase(name),"`")>0 or InStr(ucase(name)," ")>0 or InStr(ucase(name)," ")>0 or InStr(ucase(name),"'")>0 or InStr(ucase(name),chr(34))>0 or InStr(ucase(name),"\")>0 or InStr(ucase(name),",")>0 or InStr(ucase(name),"<")>0 or InStr(ucase(name),">")>0 then
response.write "不能含有空格、<、>、=、引號、半角逗號、反斜杠等字符。"
response.end
end if
if InStr(ucase(name),"&")>0 or InStr(ucase(name),"=")>0 or InStr(ucase(name)," ")>0 then
response.write "姓名包含非法字符！"
response.end
end if
%>
<!--#include file="conn.asp" -->
<%
dim rs2,sql2,weburl
set rs2=server.createobject("adodb.recordset")
sql2="select * from system"
rs2.Open sql2,conn,1,3
weburl=rs2("weburl")
rs2.close
set rs2=nothing
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from mclass where name='"&name&"'"
rs.Open sql,conn,1,3
if not rs.eof or not rs.bof then
response.write "<p align='center'>該用戶名不可注冊,請更換！</p>"
response.end
else
rs.AddNew
rs("name")=name
rs("mclass_folder")=mclass_folder
rs("pass")=md5(pass)
rs("url")=url
rs("quanxian")=quanxian
rs("login")=now()
rs("email")=email
rs("show")=show
rs("ming")=ming
rs("sex")=sex
rs("bumen")=bumen
rs("zhiwu")=zhiwu
rs("phone")=phone
rs("mobile")=mobile
rs("chayue")=chayue
rs("user_id")=userd
rs("fenye")="10"
rs("waifenye")="10"
rs.Update
%>
<html>
<head>
<title>正在進入管理頁面</title>
<meta http-equiv=refresh content="1; url=system_userlist.asp?mclass=<%=session("dd")%>">
<BODY bgcolor="#ffffff" text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
Loading ....
<p align="center">正在返回...</p>
<p align="center">正在加載請稍后......</p>
</body></html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -