admin_vice.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id")
  user=Request("user")
  
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin='"&admin&"'"
  rs.open sql,conn
  set rs1=Server.CreateObject("ADODB.Recordset")
  sql="select * from moneys where id="&id&""
  rs1.open sql,conn
  Set rs2= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users where user='"&user&"'"
rs2.Open sql,conn,1,2
 Response.write "<card id='card1' title='申请审核'>"
 Response.write "<p align='left'>"
 if not rs.eof or admin="" then
  if admin="" then
 Response.Redirect "ad_login.asp"
 end if
 Response.write "用户名:<a href='user.asp?id=" &rs2("id")&"&amp;admin="&admin&"'>" &rs2("user")& "</a><br/>"
  Response.write "注册时间:" &rs2("time")& "<br/>"
 Response.write "------------<br/>"
 Response.write "申请金额:"&rs1("money")&"元<br/>"
 Response.write "申请时间:"&rs1("time")&"<br/>"
 Response.write "=申请用户资料=<br/>"
 Response.write "用户余额:"&rs2("user_money")&"元<br/>"
 Response.write "开户银行:"&rs2("bank")&"<br/>"
 Response.write "银行卡号:"&rs2("bankid")&"<br/>"
 Response.write "银行地点:"&rs2("address")&"<br/>"
 Response.write "银行开户名:"&rs2("bankname")&"<br/>"
 Response.write "手机号码:"&rs2("phone")&"<br/>"
 if rs1("yess")=1 then
 Response.Write" <a href='admin_app.asp?money="&rs1("money")&"&amp;user="&rs1("user")&"&amp;id="&rs1("id")&"&amp;admin="&admin&"'>确定审核</a><br/>"
 else 
 Response.write "<a href=''>**已审核**</a><br/>"
 end if
 Response.write "---------<br/>"
  Response.write "<a href='admin.asp?admin=" & admin & "'>管理首页</a><br/>"
 Response.write "潮汕版权所有<br/>"
 Response.write "CopyRight 2006-2007<br/>"
 Response.write url
 
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set rs1=nothing
set rs2=nothing
conn.close
set conn=nothing
%>
</p></card></wml>