📄 site_regresult.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,jc,url,fenlei,memo,qq,phone,mail,master
name=request.form("name")
pass=request.form("pass")
mc=request.form("mc")
jc=request.form("jc")
url=request.form("url")
qq=request.form("qq")
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)
jc=left(CStr(jc),2)
memo=left(CStr(memo),200)
if left(url,7) <> "http://" then
url="http://" & url
end if
url=replace(url,"&","&")
url=replace(url,"&","&")
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='site_reg.asp'><timer value='50'/><p>"
response.write "你提交的资料有误,请注意检查 ：<br/>1.用户名、密码、站名、简称、网址、类别都不能留空哦；<br/>2.用户名必须为英文或数字；<br/>3.网址不规范或者站名不雅。"
response.write "<br/><a href='site_reg.asp'>返回重写</a><br/><a href='/index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
response.end
End if
if fenlei="" then
fenlei=1
else
fenlei=CLng(fenlei)
end if
if IsEmpty(jc) then
jc=left(mc,2)
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 sites where siteurl='" & url & "'"
rs1.open sql,conn
set rs2=Server.CreateObject("ADODB.Recordset")
ssql="select * from sites where siteid='" & name & "'"
rs2.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>"&mywaphost&"/re.asp?id=" & rs1("siteid") &"</b>"
Response.Write "<br/>--------<br/>以下为贵站资料:"
Response.Write "<br/>站名:"& rs1("sitename") & ""
Response.write "<br/>网址:" & rs1("siteurl") & ""
Response.Write "<br/>网站简介:"& rs1("siteabout") & ""
Response.Write "<br/>点击次数:"& rs1("toall") & ""
Response.Write "<br/>回访次数:"& rs1("fromall") & ""
Response.Write "<br/>如果你想修改资料的话,请从这里<a href='union_login.asp'>登陆管理</a>。<br/>"&mywapname&"感谢你的支持与关注。<br/>"
' Response.Write "<br/>如果你想修改网址资料的话,请给我<a href='/ly'>留言</a>。<br/>感谢你的支持与关注。<br/>"
Response.write "<br/><a href='/index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
Response.end
elseif not rs2.eof then
response.write "<card id='card1' title='添加失败' ontimer='site_reg.asp'><timer value='40'/>"
response.write "<p align='left'>"
response.write "对不起，"& name &"此用户名已有人使用，请返回修改。"
response.write "<br/><a href='site_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
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='/index.asp'>" & mywapname & "</a><br/>" & mywaphost & "</p></card></wml>"
response.end
End if
if master="" and qq="" then
%>
<card title="联系资料"><p>
以下可以留空不填:<br/>
妮称:
<br/><input type="text" title="输入妮称" name="master" maxlength="10"/>
<br/>QQ:
<br/><input type="text" title="输入QQ号" name="qq" maxlength="11" format="*N"/>
<br/>手机:<br/>
<input type="text" name="phone" title="输入手机号" maxlength="11" format="*N"/>
<br/>邮箱:
<br/><input type="text" title="输入Email地址" name="mail" maxlength="20"/>
<br/><anchor title="确定">确定提交
<go method="post" href="site_regresult.asp">
<postfield name="master" value="$(master)"/>
<postfield name="name" value="<%=name%>"/>
<postfield name="qq" value="$(name)"/>
<postfield name="phone" value="$(phone)"/>
<postfield name="mail" value="$(mail)"/>
<postfield name="pass" value="<%=pass%>"/>
<postfield name="mc" value="<%=mc%>"/>
<postfield name="jc" value="<%=jc%>"/>
<postfield name="url" value="<%=url%>"/>
<postfield name="fenlei" value="<%=fenlei%>"/>
<postfield name="memo" value="<%=memo%>"/>
</go>
</anchor>
<br/>
*填写以上详细资料有助于合作交流和业务联系，也可以帮助找回密码哦。请您务必如实填写。
<br/><a href="/index.asp>"><%=mywapname %></a>
<br/> </p></card></wml>
<%
response.end
end if
'以下正式提交网站资料
sql="insert into sites (siteid,sitename,siteshortname,siteurl,siteclass,siteabout,IsViewsite,IsRegpass,fromall) values("
sql=sql & sqlstr(name) & ","
sql=sql & sqlstr(mc) & ","
sql=sql & sqlstr(jc) & ","
sql=sql & sqlstr(url) & ","
sql=sql & fenlei & ","
sql=sql & sqlstr(memo) & ","
sql=sql & myunionisviewsite & ","
sql=sql & false & ","
sql=sql & 0 & ")"
conn.execute sql
sql="insert into reg (siteid,regpsd,regname,regqq,regphone,regmail,regupdate) values ("
sql=sql & sqlstr(name) & ","
sql=sql & sqlstr(pass) & ","
' sql=sql & date & ","
sql=sql & sqlstr(master) & ","
sql=sql & sqlstr(qq) & ","
sql=sql & sqlstr(phone) & ","
sql=sql & sqlstr(mail) & ","
sql=sql & date &")"
conn.execute sql
conn.close
set conn=nothing
Session("IsSameUrl")=url
Session("IsSameName")=name
Session.Timeout=1200
response.redirect "site_regcomplete.asp?id=" & name
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -