📄 index.asp
字号:
width="100%">
<TBODY>
<TR>
<TD width="9%">
<DIV align=center><IMG height=12
src="images/mzxgljtp1.gif"
width=13></DIV></TD>
<TD width="72%">民政相关链接</TD>
<TD
width="19%"><img src="images/more.gif" width="40" height="13" border="0"></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>
<TR>
<TD height=157 vAlign=top width="48%">
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<%
dim links,j
j=0
sql="select webaddr,zwname from aboutlink"
set rs=conn.execute(sql)
links=rs.getrows
for i=0 to ubound(links,2)
if j=2 then
response.write"<tr>"
j=1
else
j=j+1
end if
%>
<TD height=20 width="30">
<DIV align=center><IMG height=11
src="images/tp1.gif" width=11></DIV></TD>
<TD height=20><A
href="<%=links(0,i)%>" target=_blank><%=links(1,i)%></A> </TD>
<% next %>
</TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top width=173>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="12%"> </TD>
<TD width="88%"><IMG src="images/wsbs.gif"
width=100%></TD>
</TR>
<TR>
<TD height=80> </TD>
<TD vAlign=top>
<TABLE
width="97%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#ededed">
<TBODY>
<% dim works
sql="select top 6 id,nettitle from worknet order by nettime desc"
set rs=conn.execute(sql)
if not rs.eof then
works=rs.getrows
if ubound(works,2)<5 then
maxcount=ubound(works,2)
else
maxcount=5
end if
for i=0 to maxcount
%>
<TR>
<TD height=20><SPAN ><a href="worknet.asp?id=<%=works(0,i)%>">
<li><%=works(1,i)%></a></SPAN></TD>
</TR>
<% next
else
response.write"<tr><td><li>暂无内容</td></tr>"
end if%>
<TR>
<TD height=10>
<div align="right"><a href="listworknet.asp" target="_blank">--更多</a></div></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="12%"> </TD>
<TD width="88%"><IMG height=32
src="images/mjzzgg.gif" width=100%></TD>
</TR>
<TR>
<TD height=60> </TD>
<TD vAlign=top>
<TABLE
width="97%" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#ededed">
<TBODY>
<% dim mjzj
sql="select top 5 title,id from allarti where frominto=15 order by times desc"
set rs=conn.execute(sql)
if not rs.eof then
mjzj=rs.getrows
if ubound(mjzj,2)<4 then
maxcount=ubound(mjzj,2)
else
maxcount=4
end if
for i=0 to maxcount
%>
<TR>
<TD height=20> <a href="listarti.asp?id=<%=mjzj(1,i)%>"><%=mjzj(0,i)%></a></TD>
</TR>
<% next
else
response.write"<tr><td>暂无记录</td></td>"
end if
%>
<TR>
<TD height=10>
<DIV
align=right><a href="sorts.asp?id=15" target="_blank">--更多</a></DIV></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width="12%"> </TD>
<TD width="88%"><IMG height=32
src="images/wsdc.gif" width=100%></TD>
</TR>
<TR>
<TD height=162> </TD>
<TD height=162 vAlign=top>
<TABLE bgColor=#f6f6f6 border=0 cellPadding=0
cellSpacing=0 width="100%">
<FORM action="votes.asp?action=poll" method=post>
<INPUT name=voteID type=hidden value=6>
<TBODY>
<TR>
<% dim stat,statid
sql="select title,id from stat where isvote='true'"
set rs=conn.execute(sql)
if not rs.eof then
stat=rs("title")
statid=rs("id")
else
stat="暂无调查信息"
statid=""
end if
%>
<TD align="center"> <%=stat%> <input type="hidden" name="statid" value="<%=statid%>">
</TD>
</TR>
<TR>
<TD> <TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<% if statid<>"" then
sql="select voteid,votetitle from votes where fromid="&statid&" order by counts desc"
set rs=conn.execute(sql)
if not rs.eof then
do while not rs.eof
%>
<TR>
<TD height=20 width="29%"> <DIV align=center>
<INPUT name=rv type=radio value=<%=rs("voteid")%>>
</DIV></TD>
<TD height=20 width="71%"><%=rs("votetitle")%></TD>
</TR>
<% rs.movenext
loop
else
response.write"<tr><td colspan='2'>暂无调查需要</td></tr>"
end if
%>
</TBODY>
</TABLE></TD>
</TR>
<TR valign="top">
<TD> <TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD vAlign=top></TD>
<TD></TD>
</TR>
<TR>
<TD vAlign=top> <DIV align=center>
<INPUT height=21 src="images/tp.gif" type=image width=60>
</DIV></TD>
<TD vAlign=top> <DIV align=center><a href="#" onclick="window.open('votes.asp?action=look','','width=400,height=300,top='+(screen.availHeight-240)/2+',left='+(screen.availWidth-400)/2)"><IMG border=0 height=21 src="images/ck.gif" width=60></a>
</DIV></TD>
</TR>
<% end if %>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</FORM>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height=52 width="12%"> </TD>
<TD height=52 vAlign=top width="88%">
<TABLE border=0 cellPadding=0 cellSpacing=0
width="100%">
<TBODY>
<TR>
<TD><A href="index.asp#"
onclick="javascript:window.open('index.asp','_blank','width=800,height=600,menu=0')"><IMG
border=0 height=52
src="images/mzywrjxz.gif"
width=147></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<% call mzfoot() %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -