ad_sets.asp

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

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id") 
  pass=Request("pass")
  urlname=Request("urlname")
  urls=Request("urls")
  phone=Request("phone")
  email=Request("email")
  qq=Request("qq")
  bankname=Request("bankname")
  banks=Request("banks")
  bankid=Request("bankid")
  address=Request("address")

Set rs= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From users where id="&id&""
rs.Open sql,conn,1,2

rs("pass")=pass
rs("urlname")=urlname
rs("url")=urls
rs("phone")=phone
rs("email")=email
rs("qq")=qq
rs("bankname")=bankname
rs("bank")=banks
rs("bankid")=bankid
rs("address")=address
bm=""
for i=1 to 8
randomize
bm=bm&int((9)*rnd+1)
Next
rs("bm")=rs("user")+"*"+bm
rs.Update
 Response.write "<card id='card1' title='修改成功'><p>"
 'Response.write "识别码为:"&rs("bm")&""
 Response.write "<br/><a href='admin_p.asp?admin="&admin&"'>点击进入系统</a></p></card></wml>"
set rs=nothing
conn.close
set conn=nothing
	%>