<%
dim conn
dim userid,pass,sqlm
shopopendatabase conn
userid=Trim(request("USERID"))
pass=Trim(request("PASS"))
confirmpass=Trim(request("CONFIRMPASS"))
realname = Trim(request("REALNAME"))
sex = Trim(request("SEX"))
phone = Trim(request("HOMEPHONE"))
email = Trim(request("EMAIL"))
mobile = Trim(request("MOBILE"))
persoind = Trim(request("PERSONID"))
message=""
if (userid <> "") then '用户是否存在
sqlm = "select userid from myuser where userid='"&userid&"'"
set rsm = conn.execute(sqlm)
if not rsm.eof then
message="用户名称已经存在,如果确定是你的邮箱,"
message=message&"请<a href='findpass.asp'>找回密码</a><br>"
else
sql = "insert into myuser(userid,pwd,realname,sex,mobile,phone,personid)"
sql = sql &" values('"&userid&"','"&pass&"','"&realname&"','"&sex&"','"&mobile&"','"&phone&"','"&personid&"')"
conn.execute sql
dim myrs
set myrs=conn.execute("select @@IDENTITY as newIDValue FROM myuser")
dim userautoid
userautoid=myrs("newIDValue")
closerecordset myrs
message="恭喜"&realname&",您已经注册为Lvzhi网络用户!"end if
rsm.close
set rsm = nothing
end if
shopclosedatabase conn
%>
<%
dim dbc,rs,query
shopopendatabase dbc
query = "select * from myorder where userid = " & session("userautoid") & " order by lasttime desc"
set rs = dbc.execute(query)
dim n
n=0
Do WHILE not rs.EOF
%>
<tr><td><atarget="_blank" href="OrderDetail.asp?id=<%=rs("autoid")%>"><%=rs("autoid")%></a></td><td><%=rs("realpay") 元</td><td><%=rs("lasttime")%></td><td><%=rs("recname")%> </td>
<td><%=rs("orderstatus")%></td>
</tr>
<%
n=n+1
rs.movenext
Loop
%>