usersava.asp

ASP编写的刷ALEXA的平台

<!--#include file="conn.asp"-->
<%
dim id,UserPassWord,MainUrl,UserQuestion,UserAnswer,UserMail,UserIspass,UserPower,WebClick,WebTotal,UserClass,UserUrl,Userqq
id=session("id")
UserPassWord=request("UserPassWord")
MainUrl=request("MainUrl")
UserQuestion=request("UserQuestion")
UserAnswer=request("UserAnswer")
UserMail=request("UserMail")
UserIspass=request("UserIspass")
UserPower=request("UserPower")
WebClick=request("WebClick")
WebTotal=request("WebTotal")
UserClass=request("UserClass")
UserUrl=request("UserUrl")
Userqq=request("Userqq")
set rs=server.CreateObject("adodb.recordset")
strsql="select * from Member where id="&id
rs.open strsql,conn,1,3
rs("UserPassWord")=UserPassWord
rs("MainUrl")=MainUrl
rs("UserQuestion")=UserQuestion
rs("UserAnswer")=UserAnswer
rs("UserMail")=UserMail
rs("UserIspass")=UserIspass
rs("UserPower")=UserPower
rs("WebClick")=WebClick
rs("WebTotal")=WebTotal
rs("UserClass")=UserClass
rs("UserUrl")=UserUrl
rs("UserQQ")=Userqq
rs.update
rs.close
Call Msgs("修改成功！！","user.asp")
%>