usercenter.asp

一个不错的个人商务网站的源码

<!--#include file="chk.asp" -->
<%
dim dbpath
dbpath="../"
%>
<!--#include file="../db_conn.asp"-->
<!--#include file="../comm/comm.asp"-->
<!--#include file="../comm/sub.asp"-->
<!--begin TOP-->
<%
'说明 head(a,b,c)
'a为页标题
'b为页描述
'c为页关键字
call head(r(26)&"-会员控制面板-管理首页",r(27),r(28))
%><!--end TOP-->
<%
userids=session("chk_id")
sql1="select count(id) as num1 from message_yqj where userid="&userids
set rs1=conn.execute (sql1)
num1=rs1("num1")
rs1.close
set rs1=nothing	

sql2="select count(id) as num2 from buyer where userid='"&session("chk_name")&"' and zt='尚未处理'"
set rs2=conn.execute (sql2)
num2=rs2("num2")
rs2.close
set rs2=nothing

sql3="select count(id) as num3 from buyer where userid='"&session("chk_name")&"' and zt='等待货款'"
set rs3=conn.execute (sql3)
num3=rs3("num3")
rs3.close
set rs3=nothing

sql4="select count(id) as num4 from buyer where userid='"&session("chk_name")&"' and zt='已经发货'"
set rs4=conn.execute (sql4)
num4=rs4("num4")
rs4.close
set rs4=nothing


numsp=num2+num3+num4

%>
<div align="center">
<table border="0" width="760" class="li_table" cellspacing="0">
		<tr>
		<td class="maincolor" height="26" align=center width="758" colspan="2">会 员 控 制 面 板</td>
	</tr>
	<tr>
		<td width="127" align="right" height="175" valign="top">
		<p align="left"><!--#include file="left.asp"--></td>
		<td width="629" height="175" valign="top">
							<table border="0" width="100%" id="table4" cellspacing="1">
						<tr>
							<td>·您是第 <font color="#FF0000"><%=session("log_nums")%></font> 次登录本系统</td>
						</tr>
						<tr>
							<td>·一共有 <font color="#FF0000"><%=num1%></font> 条反馈留言</td>
						</tr>
						<tr>
							<td>·一共有订单数 <font color="#FF0000"><%=numsp%></font>，其中尚未处理  
							<font color="#FF0000"><%=num2%></font>，等待货款  
							<font color="#FF0000"><%=num3%></font>，已经发货  
							<font color="#FF0000"><%=num4%></font>。</td>
						</tr>
						</table>
					</td>
	</tr>
</table>
</div>
<!--begin end-->
<%call boot()%><!--end end-->