xh_look.asp

DWMX+ACCESS打造企业新闻系统源代码没有密码大家随便下

<!--#include file="conn.asp"-->
<%
	if not isempty(request.querystring("id")) then
	id=request.querystring("id")
	else
	id=1
	end if
%>
<%
function xhhtml(content)
xhhtml=content
if content<>"" then
xhhtml=replace(xhhtml,chr(13),"<br>")
xhHtml=replace(xhHtml,chr(34),"&quot;")
xhHtml=replace(xhHtml,chr(32),"&nbsp;")
end if
end function
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from erennew where id="&id
rs.open sql,db,1,3
rs("xhcount")=rs("xhcount")+1
rs.update
%>
<style type="text/css">
<!--
table {
	font-size: 9pt;
	text-decoration: none;
	border: 1px solid #000000;
}
-->
</style>
<title>新闻显示页面</title>
<table width="500" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr align="center" bgcolor="#0099CC"> 
    <td colspan="3"><strong><font color="#FFFFFF">标题:<%=rs("title")%></font></strong></td>
  </tr>
  <tr align="center"> 
    <td colspan="3"><font color="#006699"><%=rs("xhtime")%>发表该新闻已被浏览过<%=rs("xhcount")%>次&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;作者:<font color="#FF0000"><%=rs("name")%></font></font><br> <hr width="88%" size="1"></td>
  </tr>
  <tr> 
    <td colspan="3"><table width="88%" border="0" align="center" cellspacing="8" style="word-break:break-all">
        <tr>
          <td><%=xhhtml(rs("content"))%></td>
        </tr>
      </table>
      <div align="center"><br>
        <input type="button" name="Submit" value="关闭窗口" onClick="javascritp:window.close()">
      </div></td>
  </tr>
</table>
    
<div align="center"><br>
  <!--#include file="xh_wei.asp"-->
</div>