user_reg.asp

来自「打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以」· ASP 代码 · 共 51 行

<!--#include file="inc/St_conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="inc/St_syssub.asp"-->
<!--#include file="inc/St_sysbody.asp"-->
<!--#include file="admin/md5.asp"-->
<!--#include file="inc/St_function.asp"-->
<%
title=""&shotanreg&""
loadhead
response.write"<table border=""0""  cellspacing=""0"" cellpadding=""0"" align=center class=dabg><tr><td class=left></td><td class=width><table width=100% border=0  cellspacing=""0"" cellpadding=""0""><tr><td valign=top>"& vbCrLf
st_replace "st_login",""&st_login&""
st_replace "st_search",""&st_search&""
st_replace "st_usertaxis",""&st_usertaxis&""
br
br
response.write"</td><td  width=""5""></td><td valign=top align=right>"& vbCrLf
Select case request("action")
case ""
     call notice()
case "notice"
     call notice()
case "user_reg"
     call user_reg()
case "check_user" 
     call check_user()
case "regpost"	
shotan_info=split(replace_reg,"|")
If Request.Form<>"" Then
For Each shotan_post In Request.Form
For shotan_get=0 To Ubound(shotan_info)
If Instr(LCase(Request.Form(shotan_post)),shotan_info(shotan_get))<>0 Then
Response.Write "<Script>alert('对不起，您提交的内容中包含系统禁止字符！');history.back();</Script>"& vbCrLf
Response.End
End If
Next
Next
End If
     call regpost()
case else
     call notice()
End Select
response.write"</td><td class=right></td></tr></table>"& vbCrLf
foot
sub notice()
st_replace "st_usernotice",""&st_usernotice&""
br
end sub
sub user_reg()
st_replace "st_userreg",""&st_userreg&""
end sub
%>