admin_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,qq,url,fenlei,memo
  name=request.form("name")
  pass=request.form("pass")
  mc=request.form("mc")
  qq=request.form("qq")
  url=request.form("url")
  fenlei=request.form("fenlei")
  memo=request.form("memo")
url=replace(url,"&amp;","&")
url=replace(url,"&","&amp;")
if left(url,7) = "http://" then 
url=replace(url,"http://","")
end if 
  
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='admin_reg.asp'><timer value='50'/><p>你提交的资料有误,请注意检查 ：<br/>1.用户名、密码、站名、简称、网址、类别都不能留空哦；<br/>2.用户名必须为英文或数字；<br/>3.网址不规范或者站名不雅。"
response.write "<br/><a href='admin_reg.asp'>[返回重写]</a><br/><a href='"&mywaphome&"'>[" & mywapname & "]</a><br/>" & mywaphost & "</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("siteid") &"</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='"&mywaphome&"'>" & 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='"&mywaphome&"'>" & 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 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/>
密码：<%=pass%><br/>
站名：<%=mc%><br/>
QQ：<%=qq%><br/>
网址：http://<%=url%><br/>
宣传语：<%=memo%><br/>
<anchor title="确定">确定提交<go href="admin_regresult.asp" method="post" accept-charset='utf-8'><postfield name="name" value="<%=name%>"/><postfield name="pass" value="<%=pass%>"/><postfield name="mc" value="<%=mc%>"/><postfield name="qq" value="<%=qq%>"/><postfield name="url" value="<%=url%>"/><postfield name="memo" value="<%=memo%>"/></go></anchor><br/>
<anchor>返回修改<prev/></anchor><br/>
<a href="/top/index.asp"><%=mywapname%></a>
<br/><%=mywaphost%>
</p>
</card>
</wml>