📄 function1.asp
字号:
response.write"<font color='#808080'>[ "
response.write rs("time")
response.write" ]</font>"
response.write"</center>"
response.write"<img border=0 src='Images/zf11_ico.gif'>"
response.write rs("Content")
response.write"<br><center><font color='#C0C0C0'>---------------------</font></center>"
Rs.movenext
loop
response.write "</MARQUEE>"
Rs.close
set Rs=nothing
'-----------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td height=13 width=180 ><img border=0 src='images/index_25.gif'></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=200 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//下载分类调用
Function zf11_downclass()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=180 height=133 >"
response.write "<tr>"
response.write "<td height=19 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'><img border='0' src='Images/fendaohang.gif' width='170' height='19'></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=180 height=100 >"
response.write "<tr>"
response.write "<td valign='top'>"
'//主要内容开始
keyword=request("keyword")
cat_id=request("cat_id")
class_id=request("class_id")
colname=request("colname")
sql="SELECT id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM zf11_d_news order by id desc"
if cat_id<>"" and class_id="" then
sql="SELECT id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM zf11_d_news where soft_catid="&cat_id&" order by id desc"
elseif class_id<>"" and keyword="" then
sql="SELECT id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM zf11_d_news where soft_classid="&class_id&" order by id desc"
elseif keyword<>"" and colname<>"0" then
sql="select id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from zf11_d_news where "&colname&" like '%"&keyword&"%' order by id desc"
elseif keyword<>"" and colname="0" then
sql="select id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount from zf11_d_news where soft_name like '%"&keyword&"%' or soft_desc like '%"&keyword&"%' order by id desc"
else
sql="SELECT id,soft_name,soft_dcount,soft_rcount,soft_demo,soft_mode,soft_desc,isbest,soft_size,soft_commend,review,reviewcount FROM zf11_d_news order by id desc"
end if
set rssoft=server.createobject("adodb.recordset")
rssoft.open sql,conn,1,1
Set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="SELECT cat_id,cat_name FROM zf11_down"
rscat.OPEN sqlcat,Conn,1,1
do while not rscat.eof
if request("cat_id")=cstr(rscat("cat_id")) then
response.write " <font color=#808080><img border=0 src='images/+.gif'><span style='letter-spacing: 3px'>"&rscat("cat_name")&"</span></font><br>"
'小类开始循环
if not cat_id = "" then
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT cat_id,class_id,class_name FROM zf11_d_class where cat_id=" &cat_id& ""
rsclass.OPEN sqlclass,Conn,1,1
do while not rsclass.eof
if request("class_id")=cstr(rsclass("class_id")) then
response.write " <font color=#808080><img border=0 src='images/+-.gif'><img border=0 src='images/-.gif'><span style='letter-spacing: 3px'>"&rsclass("class_name")&"</span></font><br>"
else
response.write " <img border=0 src='images/+-.gif'><img border=0 src='images/-.gif'><a href='?cat_id="&rsclass("cat_id")&"&class_id="&rsclass("class_id")&"'><span style='letter-spacing: 3px'>"&rsclass("class_name")&"</span></a><br>"
end if
rsclass.movenext
loop
rsclass.close
set rsclass=nothing
end if
'小类结束循环
else
response.write " <img border=0 src='images/+.gif'><a href='?cat_id="&rscat("cat_id")&"'><span style='letter-spacing: 3px'>"&rscat("cat_name")&"</span></a><br>"
end if
rscat.movenext
loop
rscat.close
set rscat=nothing
'//主要内容结束
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=180 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//左侧栏目调用
Function zf11_Ldaohang()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=208 height=133 background=images/zf11_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 zf11_type where ((zf11_big_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=" type.asp?zf11id="&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/zf11_doc.gif'> <A href='"&daohang&"' target='_blank'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("zf11_names") & "</span></Font></a>")
else
Response.Write("<img border=0 src='Images/zf11_doc.gif'> <A href='"&daohang&"'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("zf11_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 zf11_Fdaohang()
'Dim TopSortSql,RsTopSort,daohang,hide
TopSortSql="select * from zf11_type where ((zf11_big_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=" type.asp?zf11id="&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("zf11_names") & "</span></Font></a>")
else
Response.Write(" | <A href='"&daohang&"'><FONT color=#1E1919><span style='letter-spacing: 2px'>" & RsTopSort("zf11_names") & "</span></Font></a>")
end if
.movenext
loop
end if
.close
End With
Set RsTopSort=Nothing
End Function
%>
<%
'//文章信息调用
Function zf11_articleInfo(s_num,nums,Linenum,S_info,Show_date)
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=170 height=133 >"
response.write "<tr>"
response.write "<td height=19 style='color:#ffffff;'><img border='0' src='Images/daodu.gif' width='170' height='19'></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=180 height=100 >"
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/daodu_bg.gif"" width=""9"" height=""11"" align=""absmiddle""></td><td width=""92%""><p style='line-height: 150%'>"& vbCrLf
response.write "<a href='typenews.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=180 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//文章单页信息调用
Function zf11_OnlyPage(Page_T,Page_C)
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=580 height=29 background='images/table_bg.gif'>"
response.write "<tr>"
response.write "<TD width='100%' height=29 style='FILTER: DropShadow(Color=#ffffff, OffX=1, OffY=1, Positive=1); PADDING-TOP: 2px'> <span style='letter-spacing: 3px'>"&Page_T&"</span></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=550 height=5>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<TABLE style='border: 0px solid #CECFCE' bgcolor='#FFFFFF' cellSpacing=0 cellPadding=0 width=""100%"" align=center border=0><TR>"& vbCrLf
response.write "<TR><TD height=34 colspan=""3"" align=middle>"& vbCrLf
response.write "<table width=""100%"" border=""0"" cellspacing=""4"" cellpadding=""8""><tr><td height=""185"" valign=""top"">"& vbCrLf
response.write Page_C
response.write "</td></tr></table>"& vbCrLf
response.write "</TD></TR></TABLE>"& vbCrLf
End Function
%>
<%
'/网站信息统计
sub SiteCount()
set rscount=server.createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -