www.gusucode.com > 云枫企业网站源代码第二版 2.0源码程序 > newsinfo.asp
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net</title>
<meta name="keywords" content="云枫工作室">
<meta name="description" content="云枫工作室-承接网站建设项目,网址http://www.yunfengshop.net">
<meta name="Author" content="李锋,281373943@qq.com">
<link rel="stylesheet" href="css.css" type="text/css">
<SCRIPT src="js.js" type=text/javascript></SCRIPT>
</head>
<noscript><iframe src=*.html></iframe></noscript>
<!--#include file="conn.asp"-->
<%
id=cint(request("id"))
set rs=server.createobject("adodb.recordset")
sql="SELECT * from sortname where classid="&id
rs.Open sql,conn,1,3
bigid=rs("classid")
rs.close
set rs=nothing
%>
<BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 oncopy="nocopy()">
<!--#include file="top.asp"-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="146" height="441" valign="top" background="images/13.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" background="images/10.jpg" class="STYLE6"> News Center </td>
</tr>
<tr>
<td>
<table width='94%' height="20" border=0 align="center" cellpadding=2 cellspacing=0 class=tf>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "Select * From newsname order by sortname", conn, 1,1
if not(rs1.eof or rs1.bof) then
do while not rs1.eof
%>
<tr>
<td height=20 background="images/11.jpg"> <A class="a3" href="news.asp?id=<%=rs1("id")%>"><%=rs1("sortnamee")%></A> </td>
</tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
else
%>
<% end if%>
</table></td>
</tr>
<tr>
<td height="12" background="images/12.jpg"></td>
</tr>
<!--#include file="leftxm.asp"-->
</table></td>
<td width="632" valign="top" background="images/15.jpg" bgcolor="#D8E8FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" valign="bottom" background="images/14.jpg"><table width="100%" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="29">
News Center</td>
</tr>
</table></td>
</tr>
<tr></tr>
</table>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<% dim rs,id
set rs=server.CreateObject("adodb.recordset")
if id="" then
response.Write("非法参数")
else
rs.open "select * from news where id="& id,conn,1,3
if rs.eof and rs.bof then
response.write("数据出错")
else
%>
<tr>
<td align="center" valign="top"><table width="100%" border="1" cellpadding="2" cellspacing="3" bordercolor="#DFE6F9">
<tr>
<td width="81%" height="32" align="center" bordercolor="#DFE6F9"><span class="STYLE13"><%=rs("titlee")%></span></td>
</tr>
<tr>
<td align="center" bordercolor="#DFE6F9" >This information was read <span class="STYLE13"><%=rs("counter")%></span> times!</td>
</tr>
<tr>
<td height="418" align="left" valign="top" bordercolor="#DFE6F9"><%=rs("contente")%></td>
</tr>
</table></td>
</tr>
<%
rs("counter")=rs("counter")+1
rs.update
rs.close
set rs=nothing
%>
</table></td>
</tr>
<%end if%>
<%end if%>
</table></td>
<td width="222" background="images/03.jpg"> </td>
</tr>
</table>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="778" height="10" valign="top" background="images/08.jpg"></td>
<td width="222" background="images/03.jpg"></td>
</tr>
</table>
<!--#include file="xia.asp"-->
</body>
</html>