📄 cust.asp
字号:
<!--#include file="head.asp"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" background="/imgs/beijing.png">
<!--DWLayoutTable-->
<tr>
<td width="6" height="800"></td>
<td width="184" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="181" valign="top" height="800"><!--#include file="left.asp"--></td>
<td width="1" bgcolor="#D7D7D7"></td>
</tr>
</table></td>
<td width="585" valign="top"><table width="584" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="584" height="800"><table width="595" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="1" bgcolor="#D7D7D7"></td>
<td width="591" height="145" align="left">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="590" height="160">
<param name="movie" value="mb/kehu.swf">
<param name="quality" value="high">
<embed src="mb/kehu.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="590" height="160"></embed>
</object></td>
</tr>
<tr>
<td bgcolor="#D7D7D7"></td>
<td valign="top"><%
dim strFileName
strFileName="cust.asp"
pageno=1
%>
<table width="591" cellspacing="0" cellpadding="0">
<tr>
<td width="589"><table width="589" align="right" cellpadding="0" cellspacing="0">
<tr>
<td width="1" bgcolor="#D7D7D7"></td>
<td width="586" height="630" valign="top"><table width="586" cellspacing="0" cellpadding="0">
<tr>
<td width="584"><img src="images/tt_cust.gif" width="584" height="35"></td>
</tr>
<tr>
<td align="center">
<%
If request.Cookies("UserId")="" then
%><br><!--#include file="loginpage.asp" -->
<%else%>
<table width="563" 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 width="553"><table width="541" 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>
</table></td>
</tr>
<tr>
<td height="1" background="images/1.gif"></td>
</tr>
<%
rs.movenext
next
%>
</table>
<table width="92%" 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="551" 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 width="529"><table width="94%" 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="91%" 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>
</tr>
</table></td>
</tr>
</table>
</td>
<td width="1" bgcolor="#D7D7D7"></td>
</table>
</td>
<td width="3"> </td>
</tr>
</table>
<!--#include file="foot.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -