?? index.asp
字號:
<TD><INPUT name="keyword" size=10></TD></TR>
<TR>
<TD colSpan=2>
<DIV align=center><INPUT border=0 height=21
src="images/cx11.gif" type=image width=54>
</DIV></TD></TR></TBODY></TABLE></FORM></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=579>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=149 width=25></TD>
<TD vAlign=top width=574>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=548>
<TBODY>
<TR>
<TD height=32 vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top> <DIV align=center> </DIV>
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD>
<TABLE
width="100%" height="100" border=0 align="left" cellPadding=0 cellSpacing=0 bordercolor="#FFFFFF">
<TBODY>
<tr>
<td width="24%" height="22" background="images/title_7_1.gif"> 站內公告</td>
<td width="76%"> </td>
</tr>
<TR>
<TD height="72" colspan="2" vAlign=bottom>
<table width="100%" height="100%" border="1" cellpadding="1" cellspacing="1" bordercolor="#CCCCCC">
<tr>
<td> <%
sql="select top 1 title,body from affiche order by aftime desc"
set rs=conn.execute(sql)
if not rs.eof then
%> <marquee direction=up height=100% id=tt666
onMouseOut=tt666.start() onMouseOver=tt666.stop()
scrollamount=1 scrolldelay=10
width=95%>
<div align="center"><%=rs("title")%></div>
<br>
<%=rs("body")%> </marquee>
<% end if %> </td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD background=images/mzdt-tp2.gif vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<tr>
<td height="27" colspan="2" background="images/rj-bg4.gif">
<div align="center"><strong>最新國家政策</strong></div>
</td>
</tr>
<TR>
<% dim pytitle,pybody,nstitle
sql="select top 1 id,pytitle,pybody,pyimg from policy order by times desc"
set rs=conn.execute(sql)
if not rs.eof then
pytitle=rs("pytitle")
pybody=rs("pybody")
pyid=rs("id")
if rs("pyimg")="" or isnull(rs("pyimg")) then
pyimg="images/noname.gif"
else
pyimg="admingly/movie/"&rs("pyimg")
end if
if len(pybody)>200 then
pybody=left(pybody,200)&"...."
end if
else
pytitle="暫無規定"
pybody="暫無內容"
pyimg=""
end if
rs.close
%>
<TD> <IMG
src="<%=pyimg%>" width=100 height=100 border="0"></TD>
<TD align=left height=145 width="100%"><br><div align="center"><font size="5"><%=pytitle%></font></div><br> <a href="listpy.asp?id=<%=pyid%>" target="_blank"><%=pybody%></a> <BR>
<DIV align=right><A href="listallpy.asp" target=_blank>更多信息</A>
<IMG src="images/xxxx1.gif" width=15 height=15 align="absmiddle">
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD></TR>
<TR>
<TD><IMG height=16 src="images/mzdt-tp3.gif"
width=548></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE width="100%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=203 width=20></TD>
<TD vAlign=top width=555>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=546>
<TBODY>
<TR>
<TD height=177 vAlign=top width=389>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD background=images/zxzctp3.gif height=23
vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD height=22 width="9%">
<DIV align=center><IMG height=12
src="images/zxzctp1.gif"
width=13></DIV></TD>
<TD width="72%">民政新聞</TD>
<TD width="19%"><a href="listallns.asp?act=times"><IMG src="images/more.gif" width=40 height=13 border="0"></a></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE bgColor=#ebebeb border=0 cellPadding=0 cellSpacing=3
width="100%">
<TBODY>
<TR>
<TD bgColor=#f6f6f6 height=132 vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<% dim news,i,maxcount
sql="select top 8 nstitle,times,id from news order by times desc"
set rs=conn.execute(sql)
news=rs.getrows
if ubound(news,2)<7 then
maxcount=ubound(news,2)
else
maxcount=7
end if
for i=0 to maxcount
%>
<TR>
<TD height=20 width="10%"> <DIV align=center><IMG height=10
src="images/zczx-tp.gif" width=8></DIV></TD>
<TD height=20 width="90%"><a href="listnews.asp?id=<%=news(2,i)%>"><%=news(0,i)%>(<%=news(1,i)%>)</a> </TD>
</TR>
<% next
%>
<TR>
<TD height=20> <DIV align=center></DIV></TD>
<TD height=20><DIV align=right><A
href="listallns.asp?act=times" target=_blank>更多信息</A>
<IMG
src="images/xxxx1.gif" width=15 height=15 align="absmiddle">
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD background=images/zxzctp3.gif height=23
vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD height=22 width="9%">
<DIV align=center><IMG height=12
src="images/zxzctp1.gif"
width=13></DIV></TD>
<TD width="72%">熱點透視</TD>
<TD width="19%"><a href="sorts.asp"><IMG src="images/more.gif" width=40 height=13 border="0"></a></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE bgColor=#ebebeb border=0 cellPadding=0 cellSpacing=3
width="100%">
<TBODY>
<TR>
<TD bgColor=#f6f6f6 height=124 vAlign=top>
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<% dim hots
sql="select top 8 id,title,clickcount from allarti order by clickcount desc"
set rs=conn.execute(sql)
hots=rs.getrows
if ubound(hots,2)<7 then
maxcount=ubound(hots,2)
else
maxcount=7
end if
for i=0 to maxcount
%>
<TR>
<TD height=20 width="10%"> <DIV align=center><IMG height=10
src="images/zczx-tp.gif" width=8></DIV></TD>
<TD height=20 width="71%"><a href="listarti.asp?id=<%=hots(0,i)%>"><%=hots(1,i)%></a> </TD>
<TD width="19%">(<font color="#FF0000">人氣:<%=hots(2,i)%></font>)</TD>
</TR>
<% next %>
<TR>
<TD height=20> <DIV align=center></DIV></TD>
<TD height=20 colspan="2"><DIV align=right><a href="sorts.asp">更多信息</a>
<IMG src="images/xxxx1.gif" width=15 height=15 align="absmiddle">
</DIV></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE><BR>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD background=images/yellow.gif height=25>
<TABLE border=0 cellPadding=0 cellSpacing=0
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -