📄 soft.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="home1.asp"-->
<%
dim zhuid,typeid
zhuid = Request.QueryString("zhuid")
typeid = Request.QueryString("typeid")
id = Request.QueryString("id")
if zhuid="" then
Response.Write("错误参数")
Response.End
else
if id="" then
Response.Write("错误参数")
Response.End
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from zhu where zhuid="&zhuid
rs2.open sql2,conn,1,1
zhu=rs2("zhu")
rs2.close
set rs3=server.createobject("adodb.recordset")
sql3="select * from type where typeid="&typeid
rs3.open sql3,conn,1,1
types=rs3("type")
rs3.close
set rs=server.createobject("adodb.recordset")
sql="select * from learning where articleid="&id
rs.open sql,conn,1,1%><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">
<script language="javascript">
<!--
function Listen(ListenURL)
{
var Listen = window.open(ListenURL,"Listen","scrollbars=no,width=424,height=360");
return false;
}
//-->
</script>
<script language="javascript">
<!--
function popwin2(id)
{ window.open("review.asp?id="+id,"","height=400,width=430,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</script>
<body marginwidth="0" leftmargin="0" bgcolor="#191d20" topmargin="2" marginheight="0" background="tian/ditu.gif" >
<center>
<form name="form1" method="post" action="search.asp?typename=<%=types%>&zhuname=<%=zhu%>">
<table width="750" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="750" border="0" cellspacing="0" cellpadding="0" background="IMAGES/cd.jpg" height="21" class="zbj">
<tr>
<td width="407"><a href="<%=rs1("url")%>"><%=rs1("homes")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><a href="index.asp"><%=rs1("home")%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><a href="sort.asp?zhuid=<%=zhuid%>"><%=zhu%></a><img src="IMAGES/MORE.GIF" width="29" height="9"><%=types%></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>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="zybj">
<tr valign="top">
<td><%
sql="SELECT * FROM type WHERE zhuid='"&zhuid&"' Order By zhuid DESC"
Set rs2=Conn.Execute(sql)%> <%
do while not rs2.bof and not rs2.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" background="tian/dh-di.jpg">
<tr align="center">
<td> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%> <%if not RS2.EOF then%><a href="sort.asp?typeid=<%=RS2("typeID")%>&zhuid=<%=zhuid%>"><font color=#ffffff><%=rs2("type")%></font></a><%RS2.MoveNext%><%end if%>
</td>
</tr>
<%RS2.MoveNext%>
</table>
<br>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%> </td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="100%" align="center">
<tr>
<td width="175" valign="top" >
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#999999">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#333333">
<tr background="882.jpg">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20" background="888.jpg"> □
周点播排行<%=rs1("newshu")%> <FONT face=Arial
color=#c0c0c0><SMALL>WEEKTOP</SMALL></FONT> </td>
</tr>
<tr bgcolor="">
<td> <%
dim bentop7,strSQL1,top7
strSQL1 ="SELECT * FROM learning WHERE typeid="&typeid&" and 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'>本周内新软件没被下载</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> ( <font color=red><%=bentop7("hits")%></font> )
</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>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr background="888.jpg">
<td background="888.jpg"> □ 本类影视排行<%=rs1("reshu")%>
<font face=Arial
color=#c0c0c0><small>SOFTTOP</small></font> </td>
</tr>
<tr>
<td> <%
dim bentop,strSQLq,top
strSQLq ="SELECT * FROM learning WHERE typeid="&typeid&" 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' class='3dfont'>没有软件提供下载</font>"
else
do while not bentop.eof
if not bentop.eof then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>□ <a href=soft.asp?id=<%=bentop("articleid")%>&typeid=<%=bentop("typeid")%>&zhuid=<%=bentop("zhuid")%> target="_blink"><%=bentop("title")%></a> ( <font color=red><%=bentop("hits")%></font> )
</td>
</tr>
</table>
<%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>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<a href='3344520.asp?url=<%=rs("url")%>&id=<%=rs("articleid")%>'>
</a> </td>
<td valign="top" width="381">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#999999">
<tr>
<td colspan="2" valign="top">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -