📄 default.asp
字号:
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE"><%if total(3)>0 then
response.write "<a href='showMail_tt.asp?type=3'>工业经济</a>"
else
response.write "工业经济"
end if%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(3)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(3)%></td>
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE"><%if total(4)>0 then
response.write "<a href='showMail_tt.asp?type=4'>社会保障</a>"
else
response.write "社会保障"
end if%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(4)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(4)%></td>
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE"><%if total(5)>0 then
response.write "<a href='showMail_tt.asp?type=5'>农林水利</a>"
else
response.write "农林水利"
end if%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(5)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(5)%></td>
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE"><%if total(6)>0 then
response.write "<a href='showMail_tt.asp?type=6'>环境保护</a>"
else
response.write "环境保护"
end if%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(6)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(6)%></td>
</tr>
<tr align="center" valign="middle">
<td width="100" height="19" bgcolor="#FFECCE"><%if total(7)>0 then
response.write "<a href='showMail_tt.asp?type=7'>其它</a>"
else
response.write "其它"
end if%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=total(7)%></td>
<td width="100" height="19" bgcolor="#FFF8E8"><%=hit(7)%></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
</table>
</td>
<td width="162" align="right" valign="top" bgcolor="#E7E7E7"><TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD>
<%
if rs_column("fldimage")<>"" then
response.write "<img src='images/" & rs_column("fldimage") & "'>"
else
response.write rs_column("fldcolumn")
end if
%></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=1 width=150 bgColor=#CE0000 border=0>
<TBODY>
<TR>
<TD vAlign=top align=right>
<TABLE cellSpacing=0 cellPadding=0 width=151 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width="151" vAlign=top><TABLE width=151 border=0 cellPadding=0 cellSpacing=0 class="9v">
<TBODY>
<TR align="center" vAlign=top bgcolor="#FFF8E8" class="9v">
<TD height=8 colspan="2" valign="middle" class="9v"></TD>
</TR>
<%
sqlStr="select id,fldtopic from tblessay where fldcolumn='" & rs_column("fldcolumn") & "' order by fldorder desc"
Set rs_temp = Server.CreateObject("ADODB.Recordset")
rs_temp.open sqlStr,dataConn,1,1
for i=1 to 5
%>
<TR align="center" vAlign=top bgcolor="#FFF8E8" class="9v">
<TD height=18 align="left" valign="middle" class="9v"><img src="images/yellow_bullet.gif" width="10" height="10" hspace="2"></TD>
<TD height=18 align="left" valign="middle" class="9v"><%response.write "<a href='" & rs_column("fldtemplate") & "?id=" & rs_temp("id") & "'>" & rs_temp("fldtopic") & "</a>"%></TD>
</TR><%
rs_temp.movenext
next
%>
<TR align="center" vAlign=top bgcolor="#FFF8E8" class="9v">
<TD width="12" height=16 align="left" valign="middle" class="9v"></TD>
<TD align="right" valign="middle" class="9v"><a href="template1.asp?column=<%=rs_column("fldcolumn")%>">更多>></a> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<table width="153" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD><%
rs_column.movenext
if rs_column("fldimage")<>"" then
response.write "<img src='images/" & rs_column("fldimage") & "'>"
else
response.write rs_column("fldcolumn")
end if
%></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=1 width=150 bgColor=#CE0000 border=0>
<TBODY>
<TR>
<TD vAlign=top align=right>
<TABLE cellSpacing=0 cellPadding=0 width=151 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width="151" vAlign=top><TABLE width=151 border=0 cellPadding=0 cellSpacing=0 class="9v">
<TBODY>
<%
sqlStr="select id,fldtopic from tblessay where fldcolumn='" & rs_column("fldcolumn") & "' order by fldorder desc"
Set rs_temp = Server.CreateObject("ADODB.Recordset")
rs_temp.open sqlStr,dataConn,1,1
for i=1 to 4
%>
<TR vAlign=top>
<TD width="11" align="center" valign="middle"><img src="images/bullet.gif" width="8" height="7"></TD>
<TD height=18 valign="bottom" class="9v" ><%response.write "<a href='" & rs_column("fldtemplate") & "?id=" & rs_temp("id") & "'>" & rs_temp("fldtopic") & "</a>"%></TD>
</TR><%
rs_temp.movenext
next
%>
<TR vAlign=top>
<TD align="center" valign="middle"></TD>
<TD height=12 align="right" valign="top" class="9v" ><a href="template1.asp?column=<%=rs_column("fldcolumn")%>">更多>></a> </TD>
</TR>
<TR vAlign=top>
<TD height="12" colspan="2" align="center" valign="middle">
<%rs_column.movenext
if rs_column("fldimage")<>"" then
response.write "<img src='images/" & rs_column("fldimage") & "' border=0>"
else
response.write rs_column("fldcolumn")
end if
%> </TD>
</TR><%
sqlStr="select id,fldtopic,fldphoto from tblessay where fldcolumn='" & rs_column("fldcolumn") & "' order by fldorder desc"
Set rs_temp = Server.CreateObject("ADODB.Recordset")
rs_temp.open sqlStr,dataConn,1,1
photolist = trim(rs_temp("fldPhoto"))
star = Instr(1,photolist," ")
star = Instr(star+2,photolist," ")
photolist = Trim(Left(photolist,star))
rs_temp.movenext
photolist = photolist & " " & trim(rs_temp("fldPhoto"))
rs_temp.movefirst
'photolist = trim(rs_temp("fldPhoto"))
Dim photo()
start = InStr(1,photolist," ")
if start = 0 then
photo_num = 1
else
photo_num = 0
end if
do while start>1
photo_num = photo_num+1
start = InStr(start,photolist," ") + 1
loop
Redim photo(photo_num)
for i = 0 to photo_num-1
start = InStr(1,photolist," ") + 1
if start <> 1 then
photo(i) = left(photolist,start)
photolist = right(photolist,len(photolist)-start)
else
photo(i) = photolist
end if
next
i=0
do while not rs_temp.eof
%>
<TR vAlign=top>
<TD height="60" colspan="2" valign="left"><a href='showText02.asp?id=<%=rs_temp("id")%>'><img src="photoes/<%=photo(i)%>" width="63" height="49" hspace="9" vspace="3" border=0><img src="photoes/<%=photo(i+1)%>" width="63" height="49" hspace="0" vspace="3" border=0></a></TD>
</TR>
<TR vAlign=top>
<TD width="11" height="36" valign="left"> <br>
<br></TD>
<TD height="36" valign="left"><a href='showText02.asp?id=<%=rs_temp("id")%>'><%=rs_temp("fldtopic")%></a><%
i=i+2
rs_temp.movenext
loop
%></TD>
</TR>
<TR vAlign=top>
<TD height="24" colspan="2" align="center" valign="left"><table width="140" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" class="9vGrey"> </td>
</tr>
<tr>
<td height=6 align="right" valign="top" class="9vGrey"></td>
</tr>
<tr>
<td height="18" align="right" valign="top" class="9vGrey"><a href="template1.asp?column=<%=rs_column("fldcolumn")%>">更多>><br>
</a> </td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
<table width="148" border="0" align="center" cellpadding="0" cellspacing="0">
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="789" height="18" align="center" bgcolor="#C41208" class="white9v">Copyright 2004, Yuhuan Municipal People's Congress. All Right Reserved </td>
</tr>
<tr>
<td height="18" align="center" bgcolor="#E7E7E7" class="9vGrey">玉环县人大版权所有 未经许可严禁复制或镜像</td>
</tr>
</table>
<%
rs_temp.close
set rs_temp=nothing
rs_column.close
set rs_column=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -