📄 default.asp
字号:
value=http://www.kfinfo.ha.cn>开封</OPTION>
<OPTION
value=http://www.nanyang.gov.cn>南阳</OPTION>
<OPTION
value=http://www.wh.gov.cn>武汉</OPTION>
<OPTION
value=http://www.xiangtan.gov.cn>湘潭</OPTION>
<OPTION
value=http://www.zjj.gov.cn>张家界</OPTION>
<OPTION
value=http://www.gz.gov.cn>广州</OPTION>
<OPTION
value=http://www.shenzhen.gov.cn>深圳</OPTION>
<OPTION
value=http://www.haikou.gov.cn>海口</OPTION>
<OPTION
value=http://www.chengdu.gov.cn>成都</OPTION>
<OPTION
value=http://www.mianyang.gov.cn>绵阳</OPTION>
<OPTION
value=http://www.gygov.gov.cn>贵阳</OPTION>
<OPTION
value=http://www.zunyi.gov.cn>遵义</OPTION>
<OPTION
value=http://www.kmpg.gov.cn>昆明</OPTION>
<OPTION
value=http://www.yuxi.gov.cn>玉溪</OPTION>
<OPTION
value=http://www.xian.gov.cn>西安</OPTION>
<OPTION
value=http://www.yanan.gov.cn>延安</OPTION>
<OPTION
value=http://www.lz.gansu.gov.cn>兰州</OPTION>
<OPTION
value=http://www.xining.gov.cn>西宁</OPTION>
<OPTION
value=http://www.guilin.gov.cn>桂林</OPTION>
<OPTION
value=http://www.shigatse.gov.cn>日喀则</OPTION>
<OPTION
value=http://www.urumqi.gov.cn>乌鲁木齐</OPTION>
<OPTION
value=http://www.yinchuan.gov.cn>银川</OPTION>
<OPTION
value=http://www.cj.gov.cn>昌吉</OPTION>
</SELECT>
<br>
<br>
<br>
</p> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<br></td>
<td align="center" valign="top" bordercolorlight="#F1F0EE" bordercolordark="#CCCECD"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/doom.gif" width="455" height="9"></td>
</tr>
</table>
<table width="445" border="0" cellpadding="3" cellspacing="0">
<tr>
<td width="583" align="center" class="11v style2 style5">
<% rs_column.movenext
sqlStr="select id,fldtopic,fldphoto,fldtext from tblessay where fldcolumn='首页新闻' order by fldorder desc"
Set rs_news = Server.CreateObject("ADODB.Recordset")
rs_news.open sqlStr,dataConn,1,1
response.write rs_news("fldtopic")
length = InStr(1,rs_news("fldphoto")," ")
photo00 = left(rs_news("fldphoto"),length)
%>
</td>
<td width="151" rowspan="2" align="center" ><img src="photoes/<%=photo00%>" width="154" height="102" ></td>
</tr>
<tr>
<td class="11v style3"><%
response.write " " &Left(rs_news("fldtext"),78)
%></td>
</tr>
<tr>
<td align="right" valign="top" class="9vGrey"><img src="images/read.gif" width="11" height="11"> <span class="9v"><a href="showText02.asp?id=<%=rs_news("id")%>">阅读全文</a></span></td>
<td width="151" align="center" class="11v style2"> </td>
</tr>
<tr>
<td height="1" align="right" valign="middle" class="9vGrey"><img src="images/dotline1.gif" width="280" height="1"></td>
<td align="center" class="11v style2"></td>
</tr>
</table>
<table width="445" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="275" height="24" class="9vGrey"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<% rs_news.close
set rs_news=nothing
sqlStr="select id,fldtopic,fldtext from tblessay where fldcolumn='工作动态' order by fldorder desc"
Set rs_dynamic = Server.CreateObject("ADODB.Recordset")
rs_dynamic.open sqlStr,dataConn,1,1
for i = 1 to 4
%>
<tr>
<td width="15" align="center"><img src="images/yellow_dot.gif" width="11" height="11"></td>
<td class="11vGrey"><span class="9v">
<a href="showText02.asp?id=<%=rs_dynamic("id")%>"><%=rs_dynamic("fldtopic")%></a> </span></td>
</tr>
<%
rs_dynamic.movenext
if rs_dynamic.eof=true then
exit for
end if
next
%>
<tr>
<td width="15" align="center"> </td>
<td align="right" class="11vGrey"><span class="9v"><a href="template1.asp?column=工作动态">更多>></a> </span></td>
</tr>
</table></td>
<td width="160" rowspan="4" valign="top"><table width="160" border="0" cellpadding="0" cellspacing="0" class="9vGrey">
<tr>
<td><img src="images/people.gif" width="160" height="23"></td>
</tr>
<%
sqlStr="select fldsubcolumn from tblcolumn where fldcolumn='玉环人大' and fldsubcolumn<>'—' order by fldpriviledge desc"
Set rs_renda = Server.CreateObject("ADODB.Recordset")
rs_renda.open sqlStr,dataConn,1,1
for i = 1 to 2
%>
<tr>
<td height="24" valign="bottom" bgcolor="#F8F3F9"> <img src="images/yellow_arrow.gif" width="10" height="10" hspace="3"><a href="template4.asp?subcolumn=<%=rs_renda("fldsubcolumn")%>"><%=rs_renda("fldsubcolumn")%></a></td>
</tr>
<%
rs_renda.movenext
next
rs_renda.close
set rs_renda=nothing
%>
<tr>
<td height="18" align="right" valign="top" bgcolor="#F8F3F9"><span class="9v"><a href="template3.asp?column=玉环人大">更多>></a> </span></td>
</tr>
<tr>
<td valign="top"><img src="images/people_line.gif" width="160" height="5"></td>
</tr>
</table></td>
</tr>
</table>
<br>
<TABLE width=390 border=0 cellPadding=1 cellSpacing=0 bgColor=#CE0000>
<TBODY>
<TR>
<TD vAlign=top align=right><TABLE cellSpacing=0 cellPadding=0 width=390 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width="390" height="42" vAlign=middle bgcolor="#F1F0EE">
<table width="378" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form3" method="post" action="searchDelegate.asp">
<tr>
<td height="30" align="center" bgcolor="#F8E9A8">
<input name="name" type="text" class="9v" size="30">
</td>
<td valign="middle" bgcolor="#F8E9A8">
<input name="imageField" type="image" src="images/lookup.gif" width="36" height="20" border="0">
<a href="template5.asp"><img src="images/adv_lookup.gif" width="59" height="20" hspace="5" border="0"></a></td>
</tr></form>
</table></TD>
</TR>
<TR>
<TD height="37" vAlign=middle bgcolor="#F1F0EE"><table width="376" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#CCCECD" bordercolordark="#F1F0EE" class="9v">
<tr>
<td height="29" ><img src="images/big_arrow.gif" width="11" height="12" hspace="3"><strong>消息树：</strong><marquee behavior="scroll" width=298 height=12 scrollamount=2 scrolldelay=100>
<%sqlStr="select id, fldtext from tblessay where fldtopic='消息树' order by fldorder desc"
Set rs_message = Server.CreateObject("ADODB.Recordset")
rs_message.open sqlStr,dataConn,1,1
'response.write "<a href=showText02.asp?id=" & rs_message("id") & ">" & rs_message("fldtext") & "</a>"
response.write "<font color=red>" & rs_message("fldtext") & "</font>"
rs_message.close
set rs_message=nothing
%>
</marquee></td>
</tr>
</table> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<br>
<table width="370" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/yellow_line.gif" width="372" height="1"></td>
</tr>
<tr bgcolor="#FFF7F8">
<form name="form4" method="post" action="">
<td width="300" height="27" align="center" class="11vGrey">
<span class="style7"> <span class="style7"><strong>></strong></span> <a href="mail.asp" ><strong><font color=#E94F00>人</font></strong><font color=#E94F00>·</font><span class="style7"><strong><font color=#E94F00>大</font></strong><font color=#E94F00>·</font><strong>信</strong></span><font color=#E94F00>·</font><strong><font color=#E94F00>箱</font></strong></a> <span class="style7"><strong><</strong></span> </td>
</form>
</tr>
<tr>
<td><img src="images/yellow_line.gif" width="370" height="2"></td>
</tr>
<tr>
<td height="11" class="9v"> </td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table>
<%dim total(7),hit(7)
for i=1 to 7
total(i)=0
hit(i)=0
next
sqlStr = "select fldtype,sum(fldcheck) As total, sum(fldhit) As hit from tblMail group by fldtype,fldcheck,fldhit"
Set rs_mail = Server.CreateObject("ADODB.Recordset")
rs_mail.open sqlStr,dataConn,1,1
do while not rs_mail.eof
j = rs_mail("fldtype")
total(j) = total(j) + rs_mail("total")
hit(j) = hit(j) + rs_mail("hit")
rs_mail.movenext
loop
%>
<table width="370" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><table width="360" border="0" cellspacing="0" cellpadding="0" class=11v>
<tr>
<td bgcolor="#E76a18" class=11v><table width="360" border="0" cellpadding="0" cellspacing="1" class="9v">
<tr align="center" valign="middle" bgcolor="#FBC98C">
<td width="100" height="19">问题分类</td>
<td width="100" height="19">问题数</td>
<td width="100" height="19">点击次数</td>
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE">
<%if total(1)>0 then
response.write "<a href='showMail_tt.asp?type=1'>民主政治</a>"
else
response.write "民主政治"
end if%> </td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(1)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(1)%></td>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE">
<%if total(2)>0 then
response.write "<a href='showMail_tt.asp?type=2'>文教卫体</a>"
else
response.write "文教卫体"
end if%> </td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(2)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(2)%></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -