| |
|
<%
dim action
action=trim(request("action"))
select case action
case ""
myinfo()
case "EditUserinfo"
EditUserinfo()
case "delok"
delok
case "pay"
pay()
case "editpass"
editpass()
case "savepass"
savepass()
case "payjilu"
payjilu()
case "editok"
editok()
case else
response.write("")
end select
sub myinfo()%>
会员资料 |
|
你现在拥有<%=rs("jifen")%>点积分
，预存款：<%=rs("yucun")%> RMB |
| 会员状态 |
| 上次进站时间: |
<%=rs("lastlogin")%> |
| 上线次数: |
<%=rs("logins")%> |
| 会员基本资料 |
| 用户名: |
<%=rs("username")%> |
| 性别: |
<%=rs("sex")%> |
| E-mail: |
<%=rs("email")%> |
| 注册日期: |
<%=rs("regdate")%> |
| 会员补充资料 |
| 真实姓名: |
<%=rs("name")%> |
| 邮编: |
<%=rs("zip")%> |
| 联系电话: |
<%=rs("telphone")%> |
| 联系地址: |
<%=rs("address")%> |
| 身份证编号: |
<%=rs("idcard")%> |
| 出生日期: |
<%=rs("birthday")%> |
| 工作: |
<%=rs("work")%> |
<%end sub
sub EditUserinfo()
%>
<%end sub
sub editpass()
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [userb] where username='"&request.cookies("Gemisum")("username")&"' ",conn,1,1
%>
<%rs.close
set rs=nothing
end sub
sub pay()
%>
<%end sub
sub editok()
id=request("id")
set rse=server.createobject("adodb.recordset")
sqle="select * from userb where id="&id
rse.open sqle,conn,3,3
rse("username")=request.form("username")
rse("name")=request.form("name")
rse("sex")=request.form("sex")
rse("email")=request.form("email")
rse("zip")=request.form("zip")
rse("telphone")=request.form("telphone")
rse("address")=request.form("address")
rse("idcard")=request.form("idcard")
rse("birthday")=request.form("birthday")
rse("work")=request.form("work")
rse.update
rse.close
response.Write ""
end sub
sub savepass()
dim username
username=request.Cookies("Gemisum")("username")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [userb] where username='"&username&"'",conn,1,3
if md5(trim(request("userpassword3")))<>trim(rs("userpassword")) then
response.Write ""
response.End
else
if trim(request("userpassword"))<>"" then
rs("userpassword")=md5(trim(request("userpassword")))
end if
rs.update
rs.close
set rs=nothing
response.Write ""
response.End
end if
end sub
sub payjilu()
dim u
use=request.Cookies("Gemisum")("username")
topb="select * from payjilu where username = '"&use&"'"
set rsp=conn.execute (topb)
%>
编号 |
交易项目 |
交易名称 |
交易价格 |
交易时间 |
<%while not rsp.eof%>
<%=rsp("id")%> |
<%=rsp("type")%> |
<%=rsp("name")%> |
<%=rsp("jiage")%> RMB |
<%=rsp("paytime")%> |
<%
rsp.movenext
wend
rsp.close
end sub%>
|
