admin_users.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 "成员名称:<a href='ip.asp?user="&rs1("user")&"&amp;admin=" & admin & "'>"&rs1("user")&"</a><br/><br/>"
 Response.write "有效点击:"&rs1("rc")&"<br/>"
 Response.write "实收金额:"&rs1("money")&"<br/>"
 Response.write "目前显示点击:"&rs1("user_rc")&"<br/>"
 Response.write "目前显示金额:"&rs1("user_money")&"<br/>"
 %>
*设置目前显示点击*<br/>
输入新的用户点击数值<br/>
<input name='rc' value=''/><br/>
输入新的用户显示金额<br/>
<input name='money' value=''/><br/>
<anchor>确定更改<go href='set_go.asp?admin=<%=admin%>' method='post'>
<postfield name='rc' value='$(rc)'/><postfield name='money' value='$(money)'/><postfield name='id' value='<%=id%>'/></go></anchor>
 <%
 Response.write "<br/>---------<br/>"
 Response.write "CopyRight 2006-2007<br/>"
 Response.write url
 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>