📄 news.asp
字号:
<%
if newsid<>"" then
call chk(rst("newsid"),"id")
end if
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<html>
<head>
<TITLE><%=webname%>--首页---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
</HEAD>
<BODY>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760>
<tr>
<td height="5"></td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760 bgcolor=<%=bgcolor%>>
<TBODY>
<TR>
<TD vAlign=top width=240>
<!--#include file="news_left.asp"--></td>
<TD width=2 bgcolor=<%=bgcolor%>></TD>
<TD vAlign=top>
<TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
<TR>
<TD bgcolor=<%=bgcolor%>>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR class=yellow_bg>
<TD colSpan=3 height=2></TD></TR>
<TR>
<TD class=yellow_bg width=140> <font class=fblack><b>查看新闻</b></font></TD>
<TD width=20 class=yellow_bg>
<IMG height=22 src="images/conner.gif" width=20></TD>
<TD align=middle vAlign=bottom class=huise_bg> </TD></TR>
</TBODY></TABLE><BR>
<TABLE align=right border=0 cellPadding=2 cellSpacing=0 width=485>
<TBODY>
<%
if rst("newsid")<>"" then
set rsn=server.createobject("adodb.recordset")
sqln="select * from news where newsid="&rst("newsid")
rsn.open sqln,conn,1,1
If rsn.eof Then
response.write"没有可显示的新闻"
else
%>
<tr><td width=98%>
<table cellpadding=0 cellspacing=1 width=100% align=center class=tablebg>
<tr class=titletd><td align=center><B>标题：</b><font color=<%=rsn("newscolor")%>><%=rsn("newstitle")%></font></td></tr>
<tr class=td><td align=left> 内容：<%=rsn("newscontent")%></td></tr>
</table>
</td></tr>
<%
end if
rsn.close
set rsn=nothing
end if %>
<TR>
<TD width="485">
<table cellpadding=0 cellspacing=1 width=100% align=center class=tablebg>
<tr><td align=left class=titletd> <font class=fred>☆以下是本站新闻列表☆</font></td></tr>
<tr><td width=100% class=td>
<%
set rs_new=server.createobject("adodb.recordset")
sql="select * from news"
rs_new.open sql,conn,1,3
if rs_new.eof then
response.write"还没有新闻"
else
do while not rs_new.eof
response.write"<IMG height=12 src=images/star.gif width=13> <a href=news.asp?newsid="&rs_new("newsid")&" target=_blank>"
content=rs_new("newstitle")
if len(content)>20 then content=left(content,20)&"…"
response.write "<font color="&rs_new("newscolor")&">"&content&"</font></a><br>"
rs_new.movenext
loop
end if
rs_new.close
set rs_new=nothing
%>
</td></tr></table>
</TD>
</TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE></td>
</TR></TBODY></TABLE>
</CENTER>
</BODY></HTML>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -