📄 installsave.asp

📁 矮子多用户版客户管理系统2.0Bate2
💻 ASP
字号:
<% @language="vbscript" %>
<!--#include file="Md5.asp"-->
<% 
response.buffer=true
Response.Expires=0
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=request.form("pass")
rpass=request.form("rpass")
rq=request.form("rq")
aq=request.form("aq")

'--------------------------------------------
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")
show=request.form("show")
url=request.form("url")
fenye=request.form("fenye")
waifenye=request.form("waifenye")
'--------------------------------------------
 if ming="" then ming ="未填" end if
 if fenye="" then fenye ="10" end if
  if waifenye="" then waifenye ="10" 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
'--------------------------------------------
If pass<>rpass or pass="" Then
response.write "SORRY <br>"
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'>用户名已存在！<a href=vbscript:history.back()>点此返回</a>更换</p>"
else
rs.AddNew 
rs("name")=name
rs("mclass_folder")=mclass_folder
rs("pass")=md5(pass)
rs("rq")=rq
rs("aq")=aq
rs("ming")=ming
rs("sex")=sex
rs("bumen")=bumen
rs("zhiwu")=zhiwu
rs("phone")=phone
rs("mobile")=mobile
rs("url")=url
rs("email")=email
rs("quanxian")="3"
rs("chayue")="0"
rs("show")=show
rs("fenye")=fenye
rs("waifenye")=waifenye
rs("allcust")="所有客户"
rs("super")="1"
rs("login")=now()
rs.Update
rs("user_id")=rs("mclass_id")

rs.Update
%>
<html>
<head>
<title>OK</title>
<BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
<p align="center">管理帐户成功开启！</p>
<p align="center">登录系统的地址是 <A HREF="<%=weburl%>"><%=weburl%></A></p>
<p align="center">&nbsp;请删除所有安装文件(包含"install"的文件)
</body></html>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing

end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -