📄 function.asp

📁 夏茂政府网站
💻 ASP
📖 第 1 页 / 共 5 页
字号:
    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_Search5()
	
 response.write"<TABLE cellSpacing=0 cellPadding=0 width=212 border=0>"
 response.write"<form name=""search"" method=""post"" action=""search.asp"">"
 response.write"<TBODY>"
 response.write"<TR>"
 response.write"<TD align=middle height=30><img src=""images/2/search.gif"" width=""206"" height=""30 ""alt=""""></TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=middle height=40>"
 response.write"<div align=""center"">"
 response.write"<input name=txtitle type=Text id=txtitle size=20 maxlength=50 />"
 response.write"</div>"
 response.write"</TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=""center"" height=30><INPUT type=image style=""border:0px;"" src=""images/2/search1.gif""width=""54"" height=""21"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=""javascript:document.form.reset();""><INPUT type=image style=""border:0px;""  src=""images/2/search2.gif"" width=""53"" height=""21""></a></TD>"			
 response.write"</TR>"
 response.write"</TBODY>"
 response.write"</form>"
 response.write"</TABLE>"		
	End sub
%>


<%
'//宽屏内页OA登陆
    Sub zf11_login5()
	
 response.write"<TABLE cellSpacing=0 cellPadding=0 width=212 border=0>"
 response.write"<form name=""search"" method=""post"" action=""oa/login.asp"">"
 response.write"<TBODY>"
 response.write"<TR>"
 response.write"<TD align=middle height=30><img src=""images/2/index_30.gif"" width=""206"" height=""30 ""alt=""""></TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=middle height=40>"
 response.write"<div align=""center"">"
 response.write"<input name=txtitle type=Text id=txtitle size=20 maxlength=50 />"
 response.write"</div>"
 response.write"</TD>"
 response.write"</TR>"
 response.write"<TR>"
 response.write"<TD align=""center"" height=30><INPUT type=image style=""border:0px;"" src=""images/2/index_43.gif""width=""54"" height=""19"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href=""javascript:document.form.reset();""><INPUT type=image style=""border:0px;""  src=""images/2/index_45.gif"" width=""53"" height=""19""></a></TD>"			
 response.write"</TR>"
 response.write"</TBODY>"
 response.write"</form>"
 response.write"</TABLE>"		
	End sub
%>

<%
Sub zf11_tianqi()
response.write"<TABLE cellSpacing=0 cellPadding=0 width=212 border=0 bgcolor=""#ffffff"">"
response.write"<TBODY>"
response.write"<TR>"
response.write"<TD align=middle height=32><img src=""images/2/index_066.gif""width=""215"" height=""32"" alt=""""></TD>"
response.write"</TR>"
response.write"<tr>"
response.write"<td align=middle height=55 ><iframe src=""http://weather.cncn.com/weather/58826.htm?time="" width=""170"" height=""50"" frameborder=""0"" marginwidth=""0"" marginheight=""0"" scrolling=""no""></iframe></td>"
response.write"</tr>"
response.write"</TBODY>"
response.write"</TABLE>"
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 "&nbsp;<img border=0 src='images/+.gif'><font class=""title"">"&rs("piccat_name")&"</font><br>"
    else
    response.write "&nbsp;<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 "当前没有分类&nbsp;"
    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'>&nbsp;&nbsp;&nbsp;&nbsp;<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>&nbsp;&nbsp;&nbsp;&nbsp;</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>"
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -