📄 cust.asp
字号:
<!--#include file="top.asp" -->
<%
dim strFileName
strFileName="cust.asp"
pageno=1
%>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><table width="801" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="181" rowspan="2" valign="top"><!--#include file="left.asp" --></td>
<td width="1" bgcolor="#D7D7D7"></td>
<td valign="top"><!--#include file="body.asp" --></td>
</tr>
<tr>
<td bgcolor="#D7D7D7"></td>
<td height="630" valign="top"><table width="618" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/tt_cust.gif" width="618" height="35"></td>
</tr>
<tr>
<td align="center">
<%
If request.Cookies("UserId")="" then
%><br><!--#include file="loginpage.asp" -->
<%else%>
<table width="96%" border="0" align="center" cellpadding="10" cellspacing="1">
<%
dim rs,sql
sql="select * from cust,Users where cust.Uid=Users.Id and cust.userid='"&request.cookies("username")&"' order by cust.id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rscount=rs.recordcount
if rscount<1 then
%>
<BR><table width="96%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#e7e7e7">
<tr>
<td height="27" background="images/gradx.gif"> <font color=ff3300><b>产品服务</b></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><BR> 您尚未购买本公司的产品或服务...<br><br></td>
</tr>
</table>
<%
else
call showsql(pageno)
rs.move(rsno)
for i=1 to loopno
%>
<tr>
<td><table width="100%" align="center" cellpadding="2" cellspacing="1" bgcolor="#e7e7e7">
<tr>
<td height="27" colspan="4" background="images/gradx.gif"> <font color=ff3300><b><%=rs("sname")%></b></font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="15%" bgcolor="#F7f7f7"><div align="center">客 户 ID</div></td>
<td width="35%" bgcolor="#FFFFFF"> <%=rs("cust.userid")%> [<font color=#ff0000><%=rs("groups")%></font>] </td>
<td width="15%" bgcolor="#F7f7f7"><div align="center">真实姓名</div></td>
<td width="35%"> <%=rs("username")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">产品金额</div></td>
<td> <%=rs("srice")%></td>
<td bgcolor="#F7f7f7"><div align="center">已付金额</div></td>
<td> ￥<s><%=rs("sok")%></s></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">未付金额</div></td>
<td> ￥<%=rs("sno")%></td>
<td bgcolor="#F7f7f7"><div align="center">购买日期</div></td>
<td> ￥<%=rs("stime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">到期日期</div></td>
<td> <%=rs("etime")%></td>
<td bgcolor="#F7f7f7"><div align="center">业务人员</div></td>
<td> <%=rs("oper")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">服务状态</div></td>
<td> <font color=<%if rs("states")="开启" then%>#ff3300<%end if%><%if rs("states")="暂停" then%>#009900<%end if%><%if rs("states")="关闭" then%>#999999<%end if%>><%=rs("states")%></font></td>
<td bgcolor="#F7f7f7"><div align="center">登录次数</div></td>
<td> <%=rs("users.num")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">登陆时间</div></td>
<td> <%=rs("users.LastLoginTime")%></td>
<td bgcolor="#F7f7f7"><div align="center">提交时间</div></td>
<td> <%=rs("cust.Regtime")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#F7f7f7"><div align="center">备 注</div></td>
<td colspan="3"> <%if rs("cust.content")="" then%>没有备注...<%else%><%=ubbcode(rs("cust.content"))%><%end if%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" background="images/1.gif"></td>
</tr>
<%
rs.movenext
next
%>
</table>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td align="right" class="tablebody" colspan="2"><%call showpage(strFileName,rscount,pageno,false,true,"条服务")%></td>
</table>
<%
end if
rs.close
set rs=nothing
%>
<table width="96%" border="0" align="center" cellpadding="10" cellspacing="1">
<%
dim strFileName1
strFileName1="cust.asp"
pageno=5
dim urs
sql="select * from paylist where userid='"&request.cookies("username")&"' order by id desc"
set urs=server.CreateObject("adodb.recordset")
urs.open sql,conn,1,1
rscount=urs.recordcount
if rscount<1 then
%>
<BR><table width="96%" align="center" cellpadding="2" cellspacing="1" bgcolor="#e7e7e7">
<tr>
<td height="28" background="images/sr_bg.gif"> <font color=ffffff><b>交易记录</b></font></td>
</tr>
<tr bgcolor="#f7f7f7">
<td bgcolor="#FFFFFF"><br> 对不起，您还没有任何交易记录...<br><br></td>
</tr>
</table>
<%else%>
<tr>
<td><table width="100%" cellpadding="2" cellspacing="1" bgcolor="#e7e7e7">
<tr>
<td height="28" colspan="4" background="images/sr_bg.gif"> <font color=ffffff><b>交易记录</b></font></td>
</tr>
<tr bgcolor="#f7f7f7">
<td width="16%" bgcolor="#f7f7f7"><div align="center">交易日期</div></td>
<td width="16%"><div align="center">交易金额</div></td>
<td width="16%"><div align="center">支持方式</div></td>
<td width="52%" bgcolor="#f7f7f7"><div align="center">备注</div></td>
</tr>
<%
call showsql(pageno)
urs.move(rsno)
for i=1 to loopno
%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=urs("Idate")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=urs("Buyrice")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=urs("payment")%></div></td>
<td bgcolor="#FFFFFF"><div align="center">
<%if urs("content")="" then%>
没有备注...
<%else%>
<%=ubbcode(urs("content"))%>
<%end if%>
</div></td>
</tr>
<%
urs.movenext
next
%>
</table></td>
</tr>
<tr>
<td height="1" background="images/1.gif"></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td align="right" class="tablebody" colspan="2"><%call showpage(strFileName1,rscount,pageno,false,true,"条记录")%></td>
</table>
<%
end if
urs.close
set urs=nothing
%>
<%end if%>
</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="1" bgcolor="#D7D7D7"></td>
<td width="206" background="images/right_bg2.gif"> </td>
</tr>
</table>
<!--#include file="end.asp" -->
<!--#include file="ad.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -