📄 admin_listhotmovie.asp

📁 本程序是一款比较完善的图书租赁系统

💻 ASP

字号:

<!--#include file="conn.asp"-->
<!--#include file="ChkErr.asp"-->
<!--#include file="ChkAdmin.asp"-->
<!--#include file="ChkSQL.asp"-->
<!--#include file="ResultMsg.asp"-->
<%
Dim tmpTD
tmpTD="<td class=TableBody2 align=center width=11% >"
If Request("RecentlyHotMovie")<>"" Then
	Dim DayOfHot
	If IsNumeric(Request("SearchStr"))=False Then
		Response.Write GetErr(11)
		Response.End
	End If
	DayOfHot=Request("SearchStr")
	strSQL="SELECT DISTINCT VI_ID_N,VI_Title_S,VI_RentCount_N FROM [Tenancy],[VideoInfo] WHERE TAC_VI_ID_FN=VI_ID_N AND TAC_ReserveTime_D BETWEEN #"&DateAdd("d",-DayOfHot,Now())&"# AND #"&Now()&"# ORDER BY VI_RentCount_N DESC"
Else
	strSQL="SELECT * FROM [VideoInfo] ORDER BY VI_RentCount_N DESC"
End If

Dim tmpRecordCount
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
If objRS.RecordCount=>20 Then
	tmpRecordCount=20
Else
	tmpRecordCount=objRS.RecordCount
End If

Response.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>"
Response.Write "<link href=style.css rel=stylesheet type=text/css>"
Response.Write "<table class=tableborder1 align=center cellspacing=1 cellpadding=3 width=50% height=25% >"
Response.Write "<tr><th id=tabletitlelink height=25 style=font-weight:normal align=center colspan=3><b>近期热门影片列表</b></th></tr>"
Response.Write "<tr>"&tmpTD&"排位"&tmpTD&"影片名"&tmpTD&"影片ID</tr>"
For i=1 To tmpRecordCount
	Response.Write "<tr>"&tmpTD&i&tmpTD&"<a href=dispmovie.asp?id="&objRS("VI_ID_N")&" target=_blank>"&objRS("VI_Title_S")&"</a>"&tmpTD&objRS("VI_ID_N")&"</tr>"
	objRS.MoveNext
Next
objRS.Close
Response.Write "</table>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -