📄 fenlei.asp
字号:
<!--#include file="newadd.asp"-->
<table width=770 border="0" align="center" cellpadding="5" cellspacing="0" bgColor=#f1f1f1 class="table-xia">
<TR><TD bgColor=#ffffff colspan=5 height=1></TD><TR>
<%
'dim i
set rs_sheng=server.CreateObject("adodb.recordset")
rs_sheng.open "select * from szsheng order by shengorder ",conn,1,1
if rs_sheng.eof and rs_sheng.bof then
response.write "目前还没有新闻!"
else
i=0
while not rs_sheng.eof
%>
<tr>
<td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%>
<td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%>
<td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%>
<td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%> <td colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%rs_sheng.movenext
if rs_sheng.eof then
response.write " "
else
%>
<td width="80" colspan="2" STYLE='PADDING-LEFT: 18px'> <font color="#009999"><a href=meng.asp?shengid=<%=rs_sheng("shengorder")%> target="_blank"><font color="#009999"><%=rs_sheng("shengname")%></font></a></font></td>
<%
rs_sheng.movenext
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
wend
end if
%>
</tr>
</table>
<% rs_sheng.close
set rs_sheng=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -