📄 index.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("homes")%>=><%=rs1("home")%></title><link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body marginwidth="0" leftmargin="0" bgcolor="#191d20" topmargin="0" marginheight="0">
<center>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center" background="tian/bg.gif" height="10" >
<tr>
<td><form name="form1" method="post" action="search.asp">
<table width="696" border="0" cellspacing="0" cellpadding="0" background="IMAGES/cd.jpg" height="21" class="zbj">
<tr>
<td width="407"><font class=3dfont><a href="<%=rs1("url")%>"><%=rs1("homes")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><%=rs1("home")%></font>
</td>
<td width="407">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="right"> 搜索：
<input type="text" name=keyword size=14 maxlength="30" style="font-size:9pt;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000">
<input type="hidden" name="typeid" value="<%=typeid%>">
<input type="hidden" name="zhuid" value="<%=zhuid%>">
<input type="Image" src="images/ssearch.gif" tppabs="" align="absmiddle" width="20" height="20" title="查询" id=Image1 name=Image1>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table></form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="200" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="888.jpg">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="20" background=tian/lan1.jpg>
<tr>
<td width="60%">
<div align="left">□ <span style="background-color: #000000">
影视分类</span></div>
</td>
<td width="40%"><small><font face=Arial
color=#FFFF00>COMMEND</font></small></td>
</tr>
</table>
<!--#include file="lie.asp" --> </td>
</tr>
<tr>
<td background=tian/lan1.jpg>□<font color=#c0c0c0> <span style="background-color: #000000">总点播排行</span></font>
<SMALL><FONT face=Arial
color=#FFFF00>ALLTOP</FONT><FONT face=Arial
color=#c0c0c0><%=zhuinew("hits")%></FONT></SMALL></td>
</tr>
<tr>
<td><%
dim bentop,strSQLq,top
strSQLq ="SELECT * FROM learning ORDER BY hits DESC"
Set bentop = Server.CreateObject("ADODB.Recordset")
bentop.open strSQLq,Conn,0,1
top=1
if bentop.eof then
response.write "<font color='#ffffff'>没有软件提供下载</font>"
else
do while not bentop.eof
if not bentop.eof then
%></td>
</tr>
<tr>
<td>□ <a href=soft.asp?id=<%=bentop("articleid")%>&typeid=<%=bentop("typeid")%>&zhuid=<%=bentop("zhuid")%> target="_blink"><%=bentop("title")%></a>
</td>
</tr>
<tr>
<td><%bentop.movenext
end if
top=top+1
if bentop.eof or top>rs1("reshu") then
exit do
end if
loop
bentop.close
set bentop=nothing
end if%> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="888.jpg">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="47">
<tr>
<td height="20" background="tian/lan1.jpg"> □ <span style="background-color: #000000">
周点播排行</span> <SMALL><FONT face=Arial
color=#FFFF00>WEEKTOP</FONT></SMALL></td>
</tr>
<tr>
<td height="27"> <%
dim bentop7,strSQL1,top7
strSQL1 ="SELECT * FROM learning WHERE dateandtime>=date()-7 ORDER BY hits DESC"
Set bentop7 = Server.CreateObject("ADODB.Recordset")
bentop7.open strSQL1,Conn,0,1
top7=1
if bentop7.eof then
response.write "<font color='#ffffff' class='3dfont'>本周内新软件没被下载</font>"
else
do while not bentop7.eof
if not bentop7.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>□ <a href=soft.asp?id=<%=bentop7("articleid")%>&typeid=<%=bentop7("typeid")%>&zhuid=<%=bentop7("zhuid")%> target="_blink"><%=bentop7("title")%></a>
</td>
</tr>
</table>
<%bentop7.movenext
end if
top7=top7+1
if bentop7.eof or top7>rs1("newshu") then
exit do
end if
loop
bentop7.close
set bentop7=nothing
end if%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" background="888.jpg">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" background=tian/lan1.jpg>
<div align="left">□ <span style="background-color: #000000">
精品推荐</span> <SMALL><FONT face=Arial
color=#FFFF00>BESTEST</FONT></SMALL></div>
</td>
</tr>
<tr>
<td> <%
dim tuicool,strSQL2,cool
strSQL2 ="SELECT * FROM learning WHERE best = true ORDER BY articleid DESC"
Set tuicool = Server.CreateObject("ADODB.Recordset")
tuicool.open strSQL2,Conn,3,1
cool=1
if tuicool.eof then
response.write "<font color='#ffffff' class='3dfont'>没有软件提供下载</font>"
else
do while not tuicool.eof
if not tuicool.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>□ <a href=soft.asp?id=<%=tuicool("articleid")%>&typeid=<%=tuicool("typeid")%>&zhuid=<%=tuicool("zhuid")%> target="_blank"><%=tuicool("title")%></a>
</td>
</tr>
</table>
<%tuicool.movenext
end if
cool=cool+1
if tuicool.eof or cool>rs1("tuishu") then
exit do
end if
loop
tuicool.close
set tuicool=nothing
end if%> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="532" valign="top"> □ 最新更新 <img src="IMAGES/new.gif" width="28" height="11"><%if rs1("newjs")="1" then%>
<script language="JavaScript" src="news.js"></script>
<%else%> <%
dim zhuinew,strSQL,news
strSQL ="SELECT * FROM learning ORDER BY dateandtime DESC"
Set zhuinew = Server.CreateObject("ADODB.Recordset")
zhuinew.open strSQL,Conn,0,1
news=1
if zhuinew.eof then
response.write "<font color='#ffffff' class='3dfont'>没有软件提供下载</font>"
else
do while not zhuinew.eof
if not zhuinew.eof then
typeid=zhuinew("typeid")
sql="select * from type where typeid="&typeid
set brs=conn.execute (sql)
' type=brs("type")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="y">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="sx" height="20">
<tr bgcolor="#333333">
<td width="90%" background="tian/lm2.jpg"> □
<a href="soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%>"><%=zhuinew("title")%></a></td>
<td width="10%" background="tian/lm2.jpg"><img src="tian/hotnews.gif" width="70" height="22"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5" align="center" bordercolorlight="#000000" bgcolor="#303430">
<tr>
<td>
<table width="93%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="41%" align="center" height="147">
<table border="0" cellspacing="0" cellpadding="0" class="bk">
<tr>
<td>
<%if rs("images")<>"" then%>
<a href="soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%>" target="_blank"><img src="<%=zhuinew("images")%>" border="0" width="150"></a>
<%end if%>
</td>
</tr>
</table>
</td>
<td width="59%" height="147"> <font
color=#808080>□</font>影片名称：<a href="soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%>" target="_blink"><%=zhuinew("title")%></a>
<%if zhuinew("dateandtime")>=date() then response.write(" <image src=images/newz.gif>")%>
<br>
<font
color=#808080>□</font>推荐程度：<%=zhuinew("softlevel")%>
<%if zhuinew("best") = true then response.write("<font color=#ffffff> 强烈推荐</font>")%>
<br>
<font
color=#808080>□</font>所属类别：<%'=type%><br>
<font
color=#808080>□</font>加入时间：<%=zhuinew("dateandtime")%><br>
<font
color=#808080>□</font>影片大小：<%=zhuinew("dog")%><br>
<font
color=#808080>□</font>浏览次数：<%=zhuinew("hits")%> <br>
<font color=#808080>□</font>观看： <a href="soft.asp?id=<%=zhuinew("articleid")%>&typeid=<%=zhuinew("typeid")%>&zhuid=<%=zhuinew("zhuid")%>">点击此处进入影片</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<TD vAlign=center width="100%" background="888.jpg" colSpan=2
height=12><FONT color=#808080>
<P align=right><IMG
height=9 src="tian/more.gif"
width=38 border=0></P>
</FONT></TD>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%zhuinew.movenext
end if
news=news+1
if zhuinew.eof or news>rs1("sou") then
exit do
end if
loop
zhuinew.close
set zhuinew=nothing
end if%> <%end if%> </td>
</tr>
</table>
<br>
<table width="770" border="0" cellspacing="1" cellpadding="1">
<tr bgcolor="#303430">
<td>
<div align="center"><font
face=Arial>版权所有 丽都大酒店 DREAM工作室 <a href="login.asp">管理员入口</a></font> </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</body> </html> <%rs1.close
set rs1=nothing
conn.close
set conn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -