📄 detailinfo.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%if session("username")="" then
response.Write("<script language='javascript'>alert('对不起，您没有登陆或网络超时！');"&_
"history.go(-1);</script>")
else%>
<!--#include file="HMconnection.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--个人详细资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" HREF="style/style.css" TYPE="text/css">
</head>
<body bgcolor="#B2DBFD" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu=self.event.returnValue=false onselectstart="return false">
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E5E5E5">
<tr>
<td width="100%">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="98%">
<tr> <td align="center">
<!--#include file="webtop.asp"-->
</td></tr>
</table>
<table align="center" cellspacing=0 cellpadding=0 width="98%" border=0 bgcolor="#FFFFFF">
<tbody>
<tr>
<td bgcolor="#0000FF" width="1"> </td>
<td valign=top width=190 background="style/orange.jpg "> <!--#include file="webleft.asp"--> <img height=1 src="images/spacer.gif" width=1></td>
<td valign=top width="578"> <table cellspacing=0 cellpadding=0 width="100%" align=center
bgcolor=#ffffff border=0>
<tbody>
<tr>
<td align="center"><br>
<div align="center"><font color="#99CC00"><b>个人详细资料</b></font>
<hr noshade size="1" width="90%"></div><br>
<table width="80%" border="0" cellspacing="0" cellpadding="2">
<%dim userInfoRS
set userInfoRS=server.createobject("adodb.recordset")
userInfoRS.open "select * from User where UserName='"&session("username")&"'",conn,1,1
if userInfoRS.bof and userInfoRS.eof then
response.Write("<script language='javascript'>alert('对不起，数据库出错或用户名错误！');"&_
"history.go(-1);</script>")
else%>
<tr>
<td width="25%">用户名称：</td>
<td><font color="#99CC33"><%=userInfoRS("UserName")%></font></td>
</tr>
<tr>
<td>用户Email：</td>
<td><font color="#99CC33"><%=userInfoRS("EMail")%></font></td>
</tr>
<%if userInfoRS("paymethod")=2 then
response.Write("<tr><td>剩余点数：</td>"&_
"<td><font color='#99CC33'>"&userInfoRS("pricepoit")&"</font></td>"&_
"</tr><tr><td>已用点数：</td>"&_
"<td><font color='#99CC33'>"&userInfoRS("usedPoit")&"</font></td></tr>")
elseif userInfoRS("paymethod")=1 then
response.Write("<tr><td>到限日期：</td>"&_
"<td><font color='#99CC33'>"&userInfoRS("Regtime")&"</font></td></tr>")
else
response.Write("<tr><td colspan='2' align='center'><font color='red'>对不起您还没有付费！</font></td></tr>")
end if
%>
<tr>
<td>注册时间：</td>
<td><font color="#99CC33"><%=userInfoRS("Regtime1")%></font></td>
</tr>
<tr>
<td>上一次退出时间：</td>
<td><font color="#99CC33"><%=userInfoRS("logoutTime")%></font></td>
</tr>
<tr>
<td>曾经看过的影片：</td>
<td><font color="#99CC33"><%sawfilm(userInfoRS("id"))%></font></td>
</tr>
<tr>
<td colspan="2" align="center" ><br style="line-height:8px;"><input type="button" value="确 定" onClick="javasript:document.URL='index.asp';">
<input type="button" value="我要更改" onClick="javasript:document.URL='usermodify.asp';"> </td>
</tr>
<%end if
userInfoRS.close
set userInfoRS=nothing
set conn=noting
%>
</table>
</td>
</tr>
</tbody>
</table>
</td>
<td width="1" bgcolor="#0000FF"></td>
</tr>
</tbody>
</table>
<div align="center">
<!--#include file="webbottom.asp"-->
</div>
</td>
</tr>
</table>
</body>
</html>
<%end if
'观看电影详细列表
function sawfilm(id)
dim userID,sawfRS,yeshu_all,zjls,pagestart,i
pagestart=Trim(Request("qsy"))
if pagestart="" then pagestart=1
userID=id
set sawfRS=server.createobject("adodb.recordset")
sawfRS.open "select * from useDeteil where userID="&userID,conn,1,1
yeshu_all=(sawfRS.recordcount+10)/20
yeshu_all=cint(yeshu_all)
zjls=sawfRS.recordcount
i=1
sawfRS.move pagestart*20-20
response.Write("<table width='100%' border='0' bgcolor='#ddffff' cellspacing='0' cellpadding='0'>")
if sawfRS.bof and sawfRS.eof then
response.Write("<tr><td align='center'><font color='#99CC33'>您未看过本站任何电影！</font></td></tr>")
else
response.Write("<tr align='center'><td width='48%'><font color='#99CC33'>影片名称</font></td><td width='17%'><font color='#99CC33'>花费点数</font></td>"&_
"<td width='35%'><font color='#99CC33'>下载时间</font></td></tr>")
response.Write("<tr align='center'><td colspan='3'><hr size='1'noshade></td></tr>")
do while (not sawfRS.eof) and i<21
if len(sawfRS("filmName"))<12 then
response.Write("<tr align='center'><td><a href='showfilm.asp?id="&sawfRS("filmID")&"' title='"&sawfRS("filmName")&"'>"&sawfRS("filmName")&"</a></td>"&_
"<td>"&sawfRS("filmPrice")&"</td><td>"&sawfRS("seeTime")&"</td></tr>")
else
response.Write("<tr align='center'><td><a href='showfilm.asp?id="&sawfRS("filmID")&"' title='"&sawfRS("filmName")&"'>"&left(sawfRS("filmName"),11)&"…</a></td>"&_
"<td>"&sawfRS("filmPrice")&"</td><td>"&sawfRS("seeTime")&"</td></tr>")
end if
sawfRS.movenext
i=i+1
loop
end if
response.Write("<tr align='center'><td colspan='3'><hr size='1' noshade>")
response.Write(""&pagestart&"/<font color='#FF0000'>"&yeshu_all&"</font>页 您共观看了<font color='#FF0000'>"&zjls&"</font>部影片 ")
if pagestart>1 then
pagestart=pagestart-1
response.write "<a href=detailinfo.asp?qsy=1 target=_self>首页</a> <a href=detailinfo.asp?qsy="&pagestart&" target=_self>上一页</a>"
else
pagestart=pagestart-1
response.write "首页 上一页"
end if
pagestart=pagestart+1
if pagestart<yeshu_all then
pagestart=pagestart+1
response.write "<a href=detailinfo.asp?qsy="&pagestart&" target=_self>下一页</a> <a href=detailinfo.asp?qsy="&yeshu_all&" target=_self>尾页</a>"
else
response.write "下一页 尾页"
end if
response.Write("</td></tr></table>")
sawfRS.close
set sawfRS=nothing
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -