admin_app.asp

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

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin") 
  money=Request("money")
  user=Request("user")
  id=Request("id")
  
Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From moneys where id="& id &""
rs.Open sql,conn,1,2

rs("yess")=0
rs.Update
Set rs1= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users where user='"& user &"'"
rs1.Open sql,conn,1,2

rs1("h_money")=csng(rs1("h_money"))+money
rs1.Update
 Response.write "<card id='card1' title='操作成功' ontimer='admin.asp?admin=" & admin & "'><timer value='20'/><p>正在返还!"
 Response.write "<br/><a href='admin.asp?admin=" & admin & "'>点击返回管理页</a></p></card></wml>"
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
	%>