📄 admin_listhotstyle.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% >"
strSQL="SELECT * FROM [VideoStyle] ORDER BY VS_RentCount_N DESC"
Set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open strSQL,objConn,1,3
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=30% height=25% >"
Response.Write "<tr><th id=tabletitlelink height=25 style=font-weight:normal align=center colspan=2><b>近期热门影片列表</b></th></tr>"
Response.Write "<tr><td class=TableBody2 align=center width=2% >排位"&tmpTD&"类型名</tr>"
For i=1 To objRS.RecordCount
Response.Write "<tr><td class=TableBody2 align=center width=2% >"&i&tmpTD&"<a href=index.asp?viewarea="&objRS("VS_ID_N")&" target=_blank>"&objRS("VS_Description_S")&"</a></tr>"
objRS.MoveNext
Next
objRS.Close
Response.Write "</table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -