📄 xbqq.asp
字号:
<!--#include file="gaobei_head.asp" -->
<%
sub navigation()
response.write " >> "
response.write "网站首页"
end sub
%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#FFFFFF">
<tr>
<td width="218" valign="top">
<% call userlogin() %>
<% Call gaobei_Marquee() %>
<% call gaobei_Search() %>
<% call gaobei_vote() %>
<% call gaobei_links() %>
</td>
<td width="560" valign="top">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/gaobei_indexnews.gif">
<tr>
<td width="470" style='FILTER: DropShadow(Color=#E4F3FF, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px">本站新闻</span> </td>
<td width="57" valign="bottom">
<a href="news.asp">
<img border="0" src="images/gaobei_skin/gaobei_touminglink.gif" width="55" height="17"></a></td>
<td width="23"> </td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #2C94EC">
<tr>
<td bgcolor="#E4F3FF" width="179">
<!--推荐图片新闻开始-->
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="10" height="10">
<tr>
<td>
<%
set RsPic=server.createobject("adodb.recordset")
sql="select top 1 * from News where Ispic=1 and New_tuijian=True ORDER BY id DESC"
RsPic.open sql,conn,1,1
if RsPic.eof or RsPic.bof then
Call NoPic("暂无图文新闻")
end if
do while not RsPic.eof
Call gaobei_NewsShowPic(RsPic("Pic"),RsPic(0),RsPic("Title"),150,113,18)
RsPic.movenext
loop
RsPic.CLOSE
SET RsPic=Nothing
%>
</td>
</tr>
</table>
</div>
<!--推荐图片新闻结束-->
</td>
<td bgcolor="#E4F3FF" width="369">
<!-- 新闻列表开始-->
<table width="100%" border="0" cellspacing="2" cellpadding="1">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 6 * from news ORDER BY id DESC"
rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
response.write"<div align='center'>还没有添加新闻<div>"
end if
do while not rs.eof
title = rs("title")
%>
<tr>
<td width="4%" height = 22><img src="Images/gaobei_Guide.gif" width="11" height="11"></td>
<td width="96%" height = 22><a href="NewsInfo.asp?id=<%response.write rs(0)%>" title="<%=title%>">
<%
if Getlen(title)>42 then
response.write LeftStr(title,36)
response.write "..."
else
response.write ""&title&""
end if
%></a> <font color='#808080'><%=rs("time")%></font></td>
</tr>
<%
rs.movenext
loop
Rs.Close
Set Rs=Nothing
%>
</table>
<!-- 新闻列表结束-->
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="60" style="border: 1px solid #2C94EC">
<tr>
<td>
<% Call gaobei_AD(1) %></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<%
dim sqlsort,RsSort,hangpicnum
sqlsort="select * from Sort where B_id=0 and setting < 4 and Indexshow=True order by S_order"
Set RsSort=conn.execute (sqlsort)
RsSort.Open sql,Conn,1,1
Response.Write"<table border='0' cellspacing='0'>"
if RsSort.eof and RsSort.bof then
response.write "<div align=center>还没有任何栏目</div>"
else
response.write"<tr>"
do while not rs.eof
for hangpicnum=1 to 2
if RsSort.eof then exit for
Response.Write"<td>"
%>
<table><tbody><td>
<table border="0" cellpadding="0" cellspacing="0" width="271" height="98">
<tr>
<TD height=20>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="271" height="20" background="images/gaobei_skin/gaobei_kind.gif">
<tr>
<td width="191" style='FILTER: DropShadow(Color=#E4F3FF, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px"><%=RsSort(1)%></span></td>
<td width="58" valign="bottom">
<a href="Sort.asp?SortID=<%=RsSort(0)%>">
<img border="0" src="images/gaobei_skin/gaobei_touminglink.gif" width="55" height="17"></a></td>
<td width="22"> </td>
</tr>
</table>
</div>
</TD>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td style="border: 1px solid #2C94EC" height=135 valign="top" bgcolor="#E4F3FF"><% Call gaobei_ShowInfo(5,6,23,RsSort("id"),1) %></td>
</tr>
</table>
</td></tbody></table>
<%
Response.Write"</td>"
RsSort.movenext
next
Response.Write"</tr>"
if RsSort.eof then exit do
loop
end if
RsSort.Close
set RsSort=nothing
Response.Write"</table>"
%>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="550" height="60" style="border: 1px solid #2C94EC">
<tr>
<td>
<% Call gaobei_AD(2) %></td>
</tr>
</table>
</div>
<div align="left">
<table border='0' cellspacing='0'>
<tr>
<!-- ///////////// -->
<% if switch_softdown = "1" then %>
<td>
<table><tbody><td>
<table border="0" cellpadding="0" cellspacing="0" width="271" height="98">
<tr>
<TD height=20>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="271" height="20" background="images/gaobei_skin/gaobei_kind.gif">
<tr>
<td width="191" style='FILTER: DropShadow(Color=#E4F3FF, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px">最新下载</span></td>
<td width="58" valign="bottom">
<a href="Down.asp">
<img border="0" src="images/gaobei_skin/gaobei_touminglink.gif" width="55" height="17"></a></td>
<td width="22"> </td>
</tr>
</table>
</div>
</TD>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td style="border: 1px solid #2C94EC" height=135 valign="top" bgcolor="#E4F3FF">
<!--////调用最新下载开始-->
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<%
sql="select top 6 soft_id,soft_name,soft_joindate from soft order by soft_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td width="8%"align="right"><img src="Images/gaobei_skin/gaobei_ico.gif" width="12" height="11" align="absmiddle"></td><td width="92%"><p style='line-height: 150%'>
<a href='showdown.asp?soft_id=<%=rs("soft_id")%>' target='_blank' Title='<%=rs("soft_name")%>'><%=left(rs("soft_name"),14)%> <font color="#808080"><%=rs("soft_joindate")%></font></a><br>
</td></tr>
<%
rs.movenext
loop
if rs.eof and rs.bof then
%>
<tr><td align='center'><div align=center><br>当前还没有下载<br><br></div></td></tr>
<% end if %>
</table>
<!--////调用最新下载结束-->
</td>
</tr>
</table>
</td></tbody></table>
</td>
<% end if %>
<% if switch_picshow = "1" then %>
<td>
<table><tbody><td>
<table border="0" cellpadding="0" cellspacing="0" width="271" height="98">
<tr>
<TD height=20>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="271" height="20" background="images/gaobei_skin/gaobei_kind.gif">
<tr>
<td width="191" style='FILTER: DropShadow(Color=#E4F3FF, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style="letter-spacing: 3px">最新图片</span></td>
<td width="58" valign="bottom">
<a href="picshow.asp">
<img border="0" src="images/gaobei_skin/gaobei_touminglink.gif" width="55" height="17"></a></td>
<td width="22"> </td>
</tr>
</table>
</div>
</TD>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td style="border: 1px solid #2C94EC" height=135 valign="top" bgcolor="#E4F3FF">
<!--////调用最新图片开始-->
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<%
sql="select top 6 pic_id,pic_name,pic_date from pic order by pic_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr><td width="8%"align="right"><img src="Images/gaobei_skin/gaobei_ico.gif" width="12" height="11" align="absmiddle"></td><td width="92%"><p style='line-height: 150%'>
<a href='showpic.asp?pic_id=<%=rs("pic_id")%>' target='_blank' Title='<%=rs("pic_name")%>'><%=left(rs("pic_name"),14)%> <font color="#808080"><%=rs("pic_date")%></font></a><br>
</td></tr>
<%
rs.movenext
loop
if rs.eof and rs.bof then
%>
<tr><td align='center'><div align=center><br>当前还没有图片<br><br></div></td></tr>
<% end if %>
</table>
<!--////调用最新图片结束-->
</td>
</tr>
</table>
</td></tbody></table>
</td>
<% end if %>
<!-- ///////////// -->
</tr>
</table>
</div>
<!-- 全部内容结束 -->
</td>
</tr>
</table>
</div>
<!--#include file="xbqq_foot.asp" -->
<% if switch_onlingQQ ="1" then %>
<!--#include file="gaobei_qqOline.asp" -->
<% end if %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -