📄 admin_regresult.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<% Response.clear %>
<% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#INCLUDE FILE="../data/conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>

<%
  dim name,pass,mc,qq,url,fenlei,memo,phone,mail,master
  name=request.form("name")
  pass=request.form("pass")
  mc=request.form("mc")
  qq=request.form("qq")
  url=request.form("url")
  phone=request.form("phone")
  mail=request.form("mail")
  master=request.form("master")
  fenlei=request.form("fenlei")
  memo=request.form("memo")
  name=trim(name)
  mc=trim(mc)
  url=trim(url)
  memo=trim(memo)
  name=left(CStr(name),20)
  pass=left(CStr(pass),20)
  mc=left(CStr(mc),20)
  memo=left(CStr(memo),200)
if left(url,7) <> "http://" then 
url="http://" & url 
end if 
  url=replace(url,"&amp;","&")
  url=replace(url,"&","&amp;")
  url=left(CStr(url),100)

if IsNull(name) or IsNull(pass) or IsNull(mc)  or IsNull(url)  or instr(url,".")=0 or isChinese(url)=true or isChinese(name)=true  then
response.write "<card id='card1' title='添加失败' ontimer='admin_reg.asp'><timer value='50'/><p>"

response.write "你提交的资料有误,请注意检查 ：<br/>1.用户名、网址、密码、站名、QQ都不能留空哦；<br/>2.用户名必须为英文或数字；<br/>3.网址不规范或者非法用户。"
response.write "<br/><a href='admin_reg.asp'>返回重写</a><br/><a href='../index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
response.end
End if	

if IsEmpty(memo)  then 
memo="欢迎访问" & mc
end if         
Dim browsers,userip,useip,uatmp,tmp,siteid,ipaddr,forip,ipfor
if instr(url,"/ad")>0 or instr(url,"ad/")>0 or instr(url,":ad.")>0 then 
'useip=Request.ServerVariables("REMOTE_ADDR") 
'forip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
'ipfor=replace(forip,".","")
'uatmp=Request.ServerVariables("HTTP_USER_AGENT")
'tmp=instr(uatmp,"(")-1
'ipaddr=Clng(left(trim(replace(useip,".","")),6))
'sql="insert into ipbad(siteid,ipaddr)values("
'sql=sql & sqlstr(url) & ","
'sql=sql & sqlstr(userip) & ")"
'conn.execute sql
response.write "<card id='card1' title=''><p><br/>你执行了非法操作,你的IP将被跟踪记录,你的站点己被列为黑名单."
response.write "<br/></p></card></wml>"
response.end
End if

'以下防止重复提交
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from admin where mywaphost='" & url & "'"
rs1.open sql,conn

set rs2=Server.CreateObject("ADODB.Recordset")
ssql="select * from admin where adminname='" & name & "'"
rs2.open ssql,conn

set rs3=Server.CreateObject("ADODB.Recordset")
ssql="select * from sites where siteid='" & name & "'"
rs3.open ssql,conn

if not rs1.eof then
     response.write "<card id='card1' title='添加失败' >"
     response.write "<p align='left'>"
     response.write "贵站已申请过导航啦。"
	Response.Write "<br/>贵站链接我站地址为 <b>"&myunionfrom&"?id=" & rs1("adminname") &"</b>"
	Response.Write "<br/>--------<br/>以下为贵站资料:"
	Response.Write "<br/>站名:"& rs1("mywapname") & ""
	Response.write "<br/>网址:" & rs1("mywaphost") & ""
	Response.Write "<br/>如果你想修改资料的话,请从这里<a href='login.asp'>登陆管理</a>。<br/>"&mywapname&"感谢你的支持与关注。<br/>"

'	Response.Write "<br/>如果你想修改网址资料的话,请给我<a href='http://my.kyeah.com/gb/book.asp?user=mob'>留言</a>。<br/>感谢你的支持与关注。<br/>"
	Response.write "<br/><a href='../index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
	Response.end

elseif not rs2.eof or not rs3.eof then
     response.write "<card id='card1' title='添加失败' ontimer='admin_reg.asp'><timer value='40'/>"
     response.write "<p align='left'>"
     response.write "对不起，"& name &"此用户名已有人使用，请返回修改。"
     response.write "<br/><a href='admin_reg.asp'>返回重写</a><br/><a href='../index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
     response.end
end if
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
rs3.close
set rs3=nothing

if (Session("IsSameUrl")=url and Session("IsSameName")=name) and (IsEmpty(url)=false or IsEmpty(name)=false)  then
response.write "<card id='card1' title='添加失败'><p>申请不成功,如果你己经提交过了网站，勿须重复提交。<br/>"
response.write "<br/><a href='login.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
response.end
End if
'以下正式提交网站资料
dim myhost
myhost="http://kwin.cn//a.asp"
  sql="insert into admin (adminname,adminpass,mywapname,mywapqq,mywaphost,mywaphome,mywapcatchword,myuniontopsize,myunionpagesize,myunionfrom,myunionautohideday,myunionautodelday,regtime) values("
  sql=sql & sqlstr(name) & ","
  sql=sql & sqlstr(pass) & ","
  sql=sql & sqlstr(mc) & ","
  sql=sql & sqlstr(qq) & ","  
  sql=sql & sqlstr(url) & ","
  sql=sql & sqlstr(url) & ","
  sql=sql & sqlstr(memo) & ","
  sql=sql & 10 & ","
  sql=sql & 10 & ","
  sql=sql & sqlstr(myhost) & ","
  sql=sql & 7 & ","
  sql=sql & 365 & ","
  sql=sql & date & ")"
  conn.execute sql
  conn.close
  set conn=nothing
  Session("IsSameUrl")=url 
  Session("IsSameName")=name
  Session.Timeout=1200  
%>
<card id="card1" title="<%=mywapname%>">
<p>
 您己成功申请！<br/>贵站返回我站的链接地址是 <br/> <u> <%=myunionfrom%>?id=<%=name%> </u>
<br/>名称: <%=mywapname%>
<br/>请您尽快加上本站连接。
<br/>-------
<br/>贵站申请的动态友链地址为
<br/><%=mywaphost%>//index.asp?main=<%=name%>
<br/><a href="admin_regabout.asp">合作说明</a>
<br/><a href="login.asp">登陆管理</a>
<br/>-------
<br/><a href="/top/index.asp"><%=mywapname%></a>
<br/><%=mywaphost%>
⌨️ 快捷键说明

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