shownews.asp

一个企业管理ASP源码.增加了一些新的功能.

<!--#Include File="inc/Check_Sql.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Skin_css.asp"-->
<!-- #include file="inc/config.asp" -->
<!-- #include file="Head.asp" -->
<!--#include file="inc/Function.asp"-->
<%owen=request("id")%>
<SCRIPT language=JavaScript>
var currentpos,timer;

function initialize()
{
timer=setInterval("scrollwindow()",50);
}
function sc(){
clearInterval(timer);
}
function scrollwindow()
{
currentpos=document.body.scrollTop;
window.scroll(0,++currentpos);
if (currentpos != document.body.scrollTop)
sc();
}
document.onmousedown=sc
document.ondblclick=initialize
</SCRIPT>
<% 
Set rsnews=Server.CreateObject("ADODB.RecordSet") 
sql="update news set hits=hits+1 where id="&cstr(request("id"))
conn.execute sql
sql="select * from news where id="&owen
rsnews.Open sql,conn,1,1
title=rsnews("title")
if rsnews.eof and rsnews.bof then
response.Write("数据库出错")
else
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="5" valign="top" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td height="72" valign="top" bgcolor="#FFFFFF"><table width="746" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left"  width="190" height="179" valign="top" ><!--#include file="left.asp"--></td>
          <td width="6"></td>
          <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;新 
                        闻 中 心</td>
                    </tr>
                  </table>
                  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td height="50" colspan="2" align="center" class="tit"><%= rsnews("title") %></td>
                    </tr>
                    <tr> 
                      <td width="40%" height="30" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">双击自动滚屏</td>
                      <td width="60%" align="center" style="border-top: 1 solid #666666;border-bottom: 1 solid #666666">发布者：<%= rsnews("user") %> 
                        发布时间：<%= rsnews("infotime") %> 阅读：<font color="#FF0000"><%= rsnews("hits") %></font>次</td>
                    </tr>
                    <tr> 
                      <td colspan="2"><br>
                        <div style='font-size:10.5pt'><%=rsnews("content") %></div></td>
                    </tr>
                    <tr align="right"> 
                      <td colspan="2">&nbsp;</td>
                    </tr>
                    <tr align="right"> 
                      <td colspan="2">&nbsp;</td>
                    </tr>
                    <% 
		end if
		rsnews.close
		set rsnews=nothing
		%>
                  </table> 
                  <br>
                  <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td align="right"> <img src="images/printer.gif" width="16" height="14" align="absmiddle"> 
                        <a href="javascript:window.print()">打印本页</a> | <img src="images/close.gif" width="14" height="14" align="absmiddle"> 
                        <a href="javascript:window.close()">关闭窗口</a></td>
                    </tr>
                  </table> </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="inc/foot.asp"-->