📄 soft.asp
字号:
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<%
start="软件下载"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
menu=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
menu="all"
end if
set rs = server.createobject("adodb.recordset")
call head()
%>
<TABLE cellSpacing=1 cellPadding=7 width=984 align=center bgColor=#990000 border=0>
<tr bgcolor=#039DD8>
<td width="8%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">所属游戏</font></b></td>
<td width="19%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">软件名称</font></b></td>
<td width="46%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">软件简介</font></b></td>
<td width="13%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">更新日期</font></b></td>
<td width="6%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">人气</font></b></td>
<td width="8%" align="center" bgcolor="#FF9900"><b><font color="#FFFFFF">下载软件</font></b></td>
</tr>
<%
sql="select * from Gq_soft where top=True order by wgtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
else
do while not rs.eof
%>
<tr bgColor=#FFFF00 onmouseover=javascript:this.bgColor='#FFFFFF' onmouseout=javascript:this.bgColor='#FFFF00'>
<td align="center"><%=rs("wgtype")%></td>
<td align="center"><a href="open.asp?action=down&id=<%=rs("id")%>"><%=left(rs("title"),15)%></a></td>
<td> <%=left(rs("content"),28)%> <a title="<%=rs("content")%>"><FONT color=#0000FF>查看详细介绍~</FONT></a></td>
<td align="center"><%if rs("wgtime")<>"" then response.write year(rs("wgtime"))&"月"&month(rs("wgtime"))&"月"&day(rs("wgtime"))&"日"%>更新</td>
<td align="center"><%=rs("hits")%></td>
<td align="center"><a href="open.asp?action=down&id=<%=rs("id")%>">点击下载</a> </td>
</tr>
<%
rs.movenext
loop
rs.close
end if
%>
<%
sql="select * from Gq_soft where top=False order by wgtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"soft.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"soft.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"soft.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
%>
<TR bgColor=#FFFFFF onmouseover=javascript:this.bgColor='#FFCCCC' onmouseout=javascript:this.bgColor='#FFFFFF'>
<td align="center"><%=rs("wgtype")%></td>
<td align="center"><a href="open.asp?action=down&id=<%=rs("id")%>"><%=left(rs("title"),15)%></a></td>
<td> <%=left(rs("content"),28)%> <a title="<%=rs("content")%>"><FONT color=#0000FF>查看详细介绍~</FONT></a></td>
<td align="center"><%if rs("wgtime")<>"" then response.write year(rs("wgtime"))&"月"&month(rs("wgtime"))&"月"&day(rs("wgtime"))&"日"%>更新</td>
<td align="center"><%=rs("hits")%></td>
<td align="center"><a href="open.asp?action=down&id=<%=rs("id")%>" target="_blank">点击下载</a> </td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
%>
</table>
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<tr><form method=Post action="&filename&"?menu="&menu&"><td colspan=8 align=right>"
if CurrentPage<2 then
response.write "<font color=#FFFFFF>共"&totalnumber&"条记录 首页 上页 </font>"
else
response.write "<font color=#FFFFFF>共"&totalnumber&"条记录 <a href="&filename&"?page=1&menu="&menu&"><font color=#FFFFFF>首页</font></a> </font>"
response.write "<font color=#FFFFFF><a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&"><font color=#FFFFFF>上页</font></a> </font>"
end if
if n-currentpage<1 then
response.write "<font color=#FFFFFF>下页 尾页</font>"
else
response.write "<font color=#FFFFFF><a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&"></font>"
response.write "<font color=#FFFFFF>下页</font></a> <a href="&filename&"?page="&n&"&menu="&menu&"><font color=#FFFFFF>尾页</font></a>"
end if
response.write "</select></td></form></tr>"
end function
set rs=nothing
conn.close
set conn=nothing
call footer()
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -