userinfo.asp

2.0版修正了以前版本的bug,高速获取数据

<!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table cellpadding="0" cellspacing="0" class="all_t1">
<tr><td class="all_l_td" valign="top">
<!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div>
</td>
<td valign="top" class="all_c_td">
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置： <a href="index.asp">首页</a> >>&nbsp;用户信息</td></tr>
</table>


<table border="0" cellpadding="0" cellspacing="0" class="useri">
<tr><td height="150">
<%if Request.Cookies("venshop")("user_name")="" then
response.redirect "login.asp?comurl=userinfo.asp"
response.end
else%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%user_name=Request.Cookies("venshop")("user_name")
chklogin(user_name)
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_user where username='"&user_name&"'"
rs.open sql,conn,1,1
if rs.eof then
response.redirect "login.asp?comurl=userinfo.asp"
response.end
else%>
<tr><td width="20%" align="right" class="cartshow0">用户名：</td><td width="80%" class="cartshow0"><%=rs("username")%></td></tr>
<%if rs("user_type")="" then
zhekou=100
usertype_name="未登录用户"
else
user_type=rs("user_type")
set rsz=server.createobject("adodb.recordset")
sql="select * from venshop_usertype where usertype_id="&user_type&""
rsz.open sql,conn,1,1
if rsz.eof then
zhekou=100
usertype_name="一般用户"
else
zhekou=rsz("usertype_zhekou")
usertype_name=rsz("usertype_name")
end if
rsz.close
set rsz=nothing
end if%>
<tr><td align="right" class="cartshow1">积分：</td><td><%=rs("savemoney")%></td></tr>
<tr><td align="right" class="cartshow0">等级：</td><td class="cartshow0"><%=usertype_name%></td></tr>
<tr><td align="right" class="cartshow1">享受折扣：</td><td><%=zhekou%>%</td></tr>
<tr><td align="right" class="cartshow0">订单数：</td><td class="cartshow0"><%=Conn.Execute("select count(*) from venshop_sub where sub_name='"&user_name&"'")(0)%>（<a href="orders.asp">进入管理</a>）</td></tr>
<tr><td align="right" class="cartshow1">注册IP：</td><td><%=rs("user_regip")%></td></tr>
<tr><td align="right" class="cartshow0">注册时间：</td><td class="cartshow0"><%=rs("regtime")%></td></tr>
<tr><td align="right" class="cartshow1">登录次数：</td><td><%=rs("degree")%></td></tr>
<tr><td align="right" class="cartshow0">E-mail：</td><td class="cartshow0"><%=rs("usermail")%></td></tr>
<tr><td align="right" class="cartshow1">真实姓名：</td><td><%=rs("user_namec")%></td></tr><%end if
rs.close
set rs=nothing%></table><%end if%>
</td></tr></table>
</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->