shownews.asp

来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 139 行

<%@ codepage ="936" %><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                        │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/check_input.asp"-->
<script language="JavaScript" src="../inc/move.js"></script>
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<STYLE type=text/css>
<!--
td { font-family: "宋体"; font-size: 9pt; line-height: 14pt; }
-->
</STYLE>
<script language="javascript">
function show_sader(mylink)
{
window.open(mylink,'','top=50,left=50,width=500,height=480,scrollbars=no')
}
</script>
<%
on error resume next
dim newsid
dim hits
newsid=request("newsid")
hits=request("hits")
newsid=CheckInput(newsid,"i","1")
hits=CheckInput(hits,"i","1")
dim sql
dim sql1
dim rs
set rs=server.createobject("adodb.recordset")
sql1="update Commerce set hits=hits+1 where newsid="+cstr(newsid)+"" 
rs.open sql1,conn,1,1
%>
<%
sql="select * from Commerce where newsid="+cstr(newsid)+" order by newsID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
showContent
rs.close 
set rs=nothing
conn.close
set conn=nothing 
sub showContent
%>
<title><%=rs("title")%></title>
<center>
<p>
<iframe src="../adshj/Ad.asp" width=482 height=62 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe>
</p>
<table border="0" cellPadding="0" cellSpacing="0" align=center>
<tr>
<td valign="top">
<table border="0" width="550" cellspacing="1" style="border-collapse: collapse" cellpadding="0">
<tr>
<td align="center" width="550" height="49" bgcolor="#F3FAFA"><br><b>
<font color="#FF6600" class="f12">
<span style="font-size: 13.5pt; "><%=rs("title")%></span></font></b><span style="font-size: 10.5pt">&nbsp;</span><font color="gray"><br>
(发布日期：<%=rs("dateandtime")%>)</font><font color="#FF0000">&nbsp; </font>
<font color="#808080">浏览人数：</font><font color="#FF0000"><%=rs("hits")%></font></td>
</tr>
<tr>
<td align="center" width="550" height="7" bgcolor="#F3FAFA">
<p align="right">
<a href=javascript:initialize(); style="text-decoration: none">
<font color="#800000"><img src=../pict/dotitem.gif widht=10 height=12 border=0 alt='点此滚屏'></font></a><font color="#800000">鼠标双击自动滚屏&nbsp;</font></td>
</tr>
<tr>
<TD background=images/bg_b.gif style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#F3FAFA" height="1"><IMG 
height=1 src="" width=1></TD>
</tr>
<tr>
<td width="550" valign="top" height="221" bgcolor="#F3FAFA">
<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="97%" id="AutoNumber1">
<tr>
<td width="100%" align=center><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as";
google_ad_type = "text_image";
google_ad_channel = "";
google_color_border = "C3D9FF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_text = "000000";
google_color_url = "008000";
//--></script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
</tr>
<tr>
<td width="100%">
&nbsp;&nbsp;&nbsp; <%=Replace(rs("content"),chr(13),"<br><br>&nbsp;&nbsp;")%>
<a href="<%=rs("Path")%>">
<%if rs("FileName")<>"" then response.write"资料下载：["&rs("FileName")&"]" else response.write"" end if
%></a></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<TD background=images/bg_b.gif style="color: #000; font-family: 宋体; font-size: 12px; line-height:100%" bgcolor="#F3FAFA" height="1"><IMG 
height=1 src="" width=1></TD>
</tr>
<tr>
<td align="right" width="550" height="20" bgcolor="#F3FAFA"><a href="sendmail.asp?newsid=<%=rs("newsid")%>">
<img border="0" src="../hyxx/images/emailtofriend.gif" alt="把本篇文章推荐给我的好友"></a>&nbsp;&nbsp;&nbsp;<a href="javascript:window.print();"><img border="0" src="../hyxx/images/print.gif" alt="打印本篇文章"></a>&nbsp;&nbsp;&nbsp;<a href="javascript:window.close()"><img border="0" src="../hyxx/images/back.gif" alt="关闭窗口"></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
%>