user.asp

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

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id")
  
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 users where id="&id&""
  rs1.open sql,conn
 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 "联盟会员资料<br/>"
 Response.write "成员名称:"&rs1("user")&"<br/><br/>"
 Response.write "点击次数:"&rs1("rc")&"<br/>"
 Response.write "广告收入:"&rs1("money")&"<br/>"
  Response.write "手机号码:"&rs1("phone")&"<br/>"
 if rs1("email")<>"" then 
 Response.write "电子邮件:"&rs1("email")&"<br/>"
 else
 Response.write "该用户占无邮件地址<br/>"
 end if 
 if rs1("qq")<>"" then 
 Response.write "联系QQ:"&rs1("qq")&"<br/>"
 else
 Response.write "该用户占无QQ<br/>"
 end if 
 Response.write "开户银行:"&rs1("bank")&"<br/>"
 Response.write "银行地点:"&rs1("address")&"<br/>"
 Response.write "银行帐号:"&rs1("bankid")&"<br/>"
 Response.write "银行开户名:"&rs1("bankname")&"<br/>"
 Response.write "身份证号码:"&rs1("sid")&"<br/>"
 Response.write "注册名称:"&rs1("urlname")&"<br/>"
 Response.write "注册地址:"&rs1("url")&"<br/>"
 Response.write "---------<br/>"
 Response.write "<br/><a href='admin.asp?admin=" & admin & "'>返回管理页</a>"
 else
 Response.write "非法入侵!"
End if
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>
</p></card></wml>