📄 function1.asp
字号:
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 Sub
%>
<%
'//文章搜索调用
Sub zf11_Search()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=160 height=100 >"
response.write "<tr>"
response.write "<td height=28 width=160 background=images/index_41.jpg ></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=160 height=70 >"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""2"">"& vbCrLf
response.write "<form name=""search"" method=""post"" action=""search.asp""> "& vbCrLf
response.write "<tr><td height=""22"" colspan=""2"" align=""center"">"& vbCrLf
response.write "<input name=txtitle type=Text id=txtitle size=20 maxlength=50>"
response.write "</td></tr>"& vbCrLf
response.write "<tr><td width=""49%""align=""right"">"& vbCrLf
response.write "<input type=""submit"" value=""查 询"" name=""title2"" class=""buttonface""></td>"& vbCrLf
response.write "<td width=""51%"" align=""center"">"& vbCrLf
response.write "<input type=""reset"" name=""Submit3"" value=""清 除""></td></tr>"& vbCrLf
response.write "</form></table>"& vbCrLf
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End sub
%>
<%
'//文章搜索调用
Sub zf11_Search3()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=171 height=100 >"
response.write "<tr>"
response.write "<td height=22 width=171 background=images/07_03a.gif ></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=160 height=70 >"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""2"">"& vbCrLf
response.write "<form name=""search"" method=""post"" action=""search.asp""> "& vbCrLf
response.write "<tr><td height=""22"" colspan=""2"" align=""center"">"& vbCrLf
response.write "<input name=txtitle type=Text id=txtitle size=20 maxlength=50>"
response.write "</td></tr>"& vbCrLf
response.write "<tr><td width=""49%""align=""right"">"& vbCrLf
response.write "<input type=""submit"" value=""查 询"" name=""title2"" class=""buttonface""></td>"& vbCrLf
response.write "<td width=""51%"" align=""center"">"& vbCrLf
response.write "<input type=""reset"" name=""Submit3"" value=""清 除""></td></tr>"& vbCrLf
response.write "</form></table>"& vbCrLf
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End sub
%>
<%
'//文章搜索调用
Sub zf11_Search2()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=160 height=100 >"
response.write "<tr>"
response.write "<td height=28 width=160 background=images/search.jpg ></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=160 height=70 >"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write "<table width=""100%"" border=""0"" cellspacing=""3"" cellpadding=""2"">"& vbCrLf
response.write "<form name=""search"" method=""post"" action=""search.asp""> "& vbCrLf
response.write "<tr><td height=""22"" colspan=""2"" align=""center"">"& vbCrLf
response.write "<input name=txtitle type=Text id=txtitle size=20 maxlength=50>"
response.write "</td></tr>"& vbCrLf
response.write "<tr><td width=""49%""align=""right"">"& vbCrLf
response.write "<input type=""submit"" value=""查 询"" name=""title2"" class=""buttonface""></td>"& vbCrLf
response.write "<td width=""51%"" align=""center"">"& vbCrLf
response.write "<input type=""reset"" name=""Submit3"" value=""清 除""></td></tr>"& vbCrLf
response.write "</form></table>"& vbCrLf
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End sub
%>
<%
'//图片展示分类调用
Function zf11_picsort()
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='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=170 height=90 >"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
sql="select piccat_id,piccat_name from zf11_pic"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<TABLE cellSpacing=0 cellPadding=0 align=left><TBODY><TR>" & vbCrLf
response.write "<TD valign='top'>"
do while not rs.eof
if request("piccat_id")=cstr(rs("piccat_id")) then
response.write " <img border=0 src='images/+.gif'><font class=""title"">"&rs("piccat_name")&"</font><br>"
else
response.write " <img border=0 src='images/+.gif'><a href='?piccat_id="&rs("piccat_id")&"'>"&rs("piccat_name")&"</a><br>"
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "当前没有分类 "
rs.close
end if
dim totalpic,Currentpage,totalpages,i
sql="select id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from zf11_p_news order by id DESC"
if request.querystring("piccat_id")<>"" then
sql="select id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from zf11_p_news where piccat_id="&request.querystring("piccat_id")&" order by id DESC"
elseif request("keyword")<>"" then
sql="select id,pic_name,pic_spic,pic_count,pic_url,pic_date,pic_desc from zf11_p_news where "&request("select")&" like '%"&request("keyword")&"%'order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
response.write "</TD></TR></TBODY></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=170 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//友情连接链接调用
Function zf11_links()
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"<MARQUEE direction='up' id=zf11_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 zf11_vote()
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=34 width=180 background=images/index_50.gif> </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 s bgcolor=#ffffff>"
'-----------主要内容开始
response.write "<tr>"
response.write "<td height=1></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<center>"
response.write "<IFRAME ID=""vote"" SRC=""Vote/index.htm"" FRAMEBORDER=""0"" SCROLLING=""no"" WIDTH=""180"" HEIGHT=""180""></IFRAME> "& vbCrLf
response.write "</center>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td height=0></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_561.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=180 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%>
<%
'//公告调用
Function zf11_Marquee()
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>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=180 height=139 >"
response.write "<tr>"
response.write "<td height=43 width=180 background=images/index_9.gif> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=right>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=179 height=65 bgcolor=#ffffff>"
response.write "<tr>"
response.write "<td>"
'-----------主要内容开始
response.write "<p style='line-height: 150%; margin-left: 8px; margin-right: 6px; '>"
response.write"<MARQUEE direction='Up' id=scrollarea onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=126>"
sql="select * from zf11_gonggao ORDER BY taxis ASC"
set rs=conn.execute(sql)
if Rs.eof or Rs.bof then
response.write "还没有任何滚动公告..."
end if
do while not Rs.eof
response.write"<center><b>"
response.write rs("Title")
response.write"</b>"
response.write"<br> "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -