site_regcomfirm.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%><!--#INCLUDE FILE="../data/conn.asp"--><?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">
<wml>

<%
  dim name,pass,mc,jc,url,fenlei,memo
  name=request.form("name")
  pass=request.form("pass")
  mc=request.form("mc")
  jc=request.form("jc")
  url=request.form("url")
  fenlei=request.form("fenlei")
  memo=request.form("memo")
url=replace(url,"&amp;","&")
url=replace(url,"&","&amp;")
  
if IsEmpty(name) or IsEmpty(pass) or IsEmpty(mc)  or IsEmpty(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>你提交的资料有误,请注意检查 ：<br/>1.用户名、密码、站名、简称、网址、类别都不能留空哦；<br/>2.用户名必须为英文或数字；<br/>3.网址不规范或者站名不雅。"
response.write "<br/><a href='site_reg.asp'>返回重写</a><br/><a href='/index.asp'>" & mywapname & "</a></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&"/top/a.asp?id=" & rs1("siteid") &"</b>"
	Response.Write "<br/>网站名称:"& rs1("sitename") & ""
	Response.write "<br/>网站地址:" & rs1("siteurl") & ""
	Response.Write "<br/>&#x7F51;&#x7AD9;&#x7B80;&#x4ECB;:"&  rs1("siteabout") &  ""
	Response.Write "<br/>&#x70B9;&#x51FB;&#x6B21;&#x6570;:"&  rs1("toall") &  ""
	Response.Write "<br/>&#x56DE;&#x8BBF;&#x6B21;&#x6570;:"&  rs1("fromall") &  ""
	Response.Write "<br/>如果你想修改网址资料的话,请点这里<a href='login.asp'>登陆管理</a>。<br/>感谢你的支持与关注。<br/>"

'	Response.Write "<br/>如果你想修改网址资料的话,请给我<a href='http://33333g.cn/ly'>留言</a>。<br/>感谢你的支持与关注。<br/>"
	Response.write "<br/><a href='/index.asp'>" & mywapname & "</a><br/></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/></p></card></wml>"
     response.end
end if
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing

if fenlei="" then
  fenlei=1
  else
  fenlei=CLng(fenlei)
end if
dim fenleiname
set objgbrs=server.createobject("ADODB.Recordset")
Sql="select  * from class where  classid = " & fenlei
objgbrs.open Sql,conn,1,1
if not objgbrs.eof then
fenleiname=objgbrs("classname")
end if
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>
<card  title="资料确认">
<p>
资料确认:<br/>
用户名：<%=name%><br/>
站名：<%=mc%><br/>
网址：http://<%=url%><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/>
<anchor>返回修改<prev/></anchor><br/>
<a href="/index.asp"><%=mywapname%></a>

</p>
</card>
</wml>