📄 xbqq1_function.asp
字号:
<% sub index_down () %>
<div align="center">
<table border="0" width="208" height="154" cellpadding="0" cellspacing="0">
<%
set rsdown=server.createobject("adodb.recordset")
sqldown="select top 7 * from soft ORDER BY soft_id DESC"
rsdown.open sqldown,conn,1,1
if Rsdown.eof or Rsdown.bof then
response.write"<div align='center'>还没有添加图片<div>"
end if
do while not rsdown.eof
title = rsdown("soft_name")
%>
<tr>
<td width="4%" height = 22 valign="top">
<img src="xbqq_img/jt10.gif" align="left" ></td>
<td width="73%" height = 22 valign="top"><a href="showdown.asp?soft_id=<%response.write rsdown(0)%>" title="<%=title%>">
<%
if Getlen(title)>27 then
response.write LeftStr(title,24)
response.write ".."
else
response.write ""&title&""
end if
%></a> </td>
</tr>
<%
rsdown.movenext
loop
Rsdown.Close
Set Rsdown=Nothing
%>
</table>
</div>
<% end sub
%>
<%
'//友情连接链接调用
Function xbqq_links()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/xbqq_skin/gaobei_shardh.gif>"
response.write "<tr>"
response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style='letter-spacing: 3px'>友情链接</span></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write"<MARQUEE direction='up' id=Gaobei_links onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=150>"
sql="select top 6 fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<div align=center>"
Response.Write "<TABLE cellPadding=3>"
do while not rs.eof
Response.Write "<TR>"
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' title='"&rs("fl_name")&"'></a>" & vbCrLf
Response.Write "</TD>"
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=middle><font color=""#666666"">当前没有链接</font></TD></TR>"
end if
Response.Write "</TABLE>"
Response.Write "</div>"
Response.Write "</MARQUEE>"
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//左侧栏目调用
Function xbqq_Ldaohang()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/xbqq_skin/gaobei_shardh.gif>"
response.write "<tr>"
response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style='letter-spacing: 3px'>左侧栏目</span></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
response.write "<tr>"
response.write "<td>"
'调用内容开始
response.write "<br>"
'Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where ((B_id=0 or daohang<>'') and hide<>true) and Ldaohang=true order by order_2"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write "<center>没有栏目</center>"
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" Sort.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
response.write "<p style='line-height: 50%;margin-left:30px'>"
if RsTopSort("blank")=true then
Response.Write("<img border=0 src='Images/Gaobei_doc.gif'> <A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
else
Response.Write("<img border=0 src='Images/Gaobei_doc.gif'> <A href='"&daohang&"'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
end if
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
'调用内容结束
response.write "<p>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//底部栏目调用
Function xbqq_Fdaohang()
'Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from Sort where ((B_id=0 or daohang<>'') and hide<>true) and Fdaohang=true order by order_3"
Set RsTopSort=conn.execute (TopSortSql)
With RsTopSort
if .eof and .bof then
Response.write " | 没有栏目"
else
do while not .eof
'==================
if RsTopSort("daohang")<>"" then
daohang=RsTopsort("daohang")
else
daohang=" Sort.asp?SortID="&RsTopSort("ID")&" "
end if
'==================
if RsTopSort("blank")=true then
Response.Write(" | <A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
else
Response.Write(" | <A href='"&daohang&"'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("Names") & "</span></Font></a>")
end if
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
End Function
%>
<%
'//文章信息调用
Function xbqq_articleInfo(s_num,nums,Linenum,S_info,Show_date)
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/xbqq_skin/gaobei_shardh.gif>"
response.write "<tr>"
response.write "<td height=33 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style='letter-spacing: 3px'>热门文章</span></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=100 style='border-left: 1px solid #CECFCE; border-right: 1px solid #CECFCE; border-bottom: 1px solid #CECFCE' bgcolor=#F7F7F7>"
response.write "<tr>"
response.write "<td valign=top>"
'------------主要内容开始
response.write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"">"& vbCrLf
Select case s_num
case 1 '热门
InfoSql="select top "&nums&" * from Info order by hits desc,ID desc"
case 2 '新信息
InfoSql="select top "&nums&" * from Info order by AddDate desc,ID desc"
case 3 '大类热门
InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by hits desc,ID desc"
case 4 '小类热门
InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by hits desc,ID desc"
case 5 '大类
InfoSql="select top "&nums&" * from Info where Sort1="&S_info&" order by AddDate desc,ID desc"
case 6 '小类
InfoSql="select top "&nums&" * from Info where Sort2="&S_info&" order by AddDate desc,ID desc"
Case 7 '推荐
InfoSql="select top "&nums&" * from Info Where Pw_Good=True ORDER BY id DESC"
Case else '其它
InfoSql="select top "&nums&" * from Info order by hits desc"
End Select
Set InfoRs=Conn.Execute(InfoSql)
if InfoRs.eof or InfoRs.bof then
response.write"<tr><td align='center'>没有信息...</td></tr>"
end if
while not Infors.eof
set title=Infors("title")
set id=Infors("id")
response.write "<tr><td width=""8%""align=""right""><img src=""Images/xbqq_skin/Gaobei_ico.gif"" width=""12"" height=""11"" align=""absmiddle""></td><td width=""92%""><p style='line-height: 150%'>"& vbCrLf
response.write "<a href='ViewInfo.asp?id="&id&"'title='"&title&"'>"
if GetLen(title)>Linenum then
response.write ""&LeftStr(title,Linenum-2)&""
response.write "..."
else
response.write ""&title&""
end if
if Show_date=1 then
response.write " "
response.write DateTimeFormat(Infors("AddDate"),3)
End if
response.write "</a></td></tr>"
Infors.movenext
wend
Infors.close
set Infors=nothing
response.write "</table>"
'-----------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//新闻图片调用
Function xbqq_NewsShowPic(Gaobei_NewsPic,Gaobei_NewsInfoID,Gaobei_NewsTitle,Gaobei_NewsWith,Gaobei_NewsHeight,Gaobei_Newslong)
response.write "<table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"
response.write "<TABLE border=0 align=center cellPadding=0 cellSpacing=0>"
response.write "<TR><TD height=8><IMG height=8 src='Images/table/bg_0ltop.gif' width=8></TD>"
response.write "<TD background=Images/table/bg_01.gif height=8></TD>"
response.write "<TD height=8><IMG height=8 src='Images/table/bg_0rtop.gif' width=8></TD></TR>"
response.write "<TR><TD width=8 background=Images/table/bg_03.gif></TD>"
response.write "<TD width=50 height=90 align=center bgColor=#ffffff><a href=NewsInfo.asp?id="&Gaobei_NewsInfoID&" Title='"&Gaobei_NewsTitle&"'><img src="&Gaobei_NewsPic&" border=0 width="&Gaobei_NewsWith&" height="&Gaobei_NewsHeight&" ></a></TD>"
response.write "<TD width=8 background=Images/table/bg_04.gif></TD>"
response.write "</TR><TR><TD height=8><IMG height=8 src='Images/table/bg_0lbottom.gif' width=8></TD>"
response.write "<TD background=Images/table/bg_02.gif height=8></TD>"
response.write "<TD height=8><IMG height=8 src='Images/table/bg_0rbottom.gif' width=8></TD>"
response.write "</TR></TABLE>"
response.write "</td></tr><tr><td align=center height=18>"
response.write "<a href=NewsInfo.asp?id="&Gaobei_NewsInfoID&" title='"&Gaobei_NewsTitle&"'>"
if GetLen(Gaobei_NewsTitle)>Gaobei_Newslong then
response.write LeftStr(Gaobei_NewsTitle,Gaobei_Newslong-2)
response.write "..."
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -