news.asp

程序介绍： 1、内嵌式投票系统

<%
''''''''''''''''''''''''''''''''''''''''''''
'
'  TXSite / 通用网站系统
'
'  版本    ：v1.8.20
'
'  制作人  ：milp([e-mail])
'
'  版权所有：源码之家(http://www.21tx.com)
'
'  主页地址：http://www.21tx.com
'            http://www.bestnets.net
'            http://www.soucn.com
'
'  技术支持：http://www.21tx.com/bbs
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
%>
<!--#include file="base.asp"-->
<%
rs.open "select * from news where id="&request("id"),conn,1,3
if rs.bof and rs.eof then PrintMsg("未指定所需参数!")
rs("click")=rs("click")+1
rs.update

response.write filesArr(6)
%>
<TABLE border=0 cellPadding=1 cellSpacing=2 width=754>
<TBODY><TR><TD width=15%></TD><TD vAlign=top width="70%">
<CENTER><BR><B><FONT size=3><%=rs("name")%></FONT></B><BR><%=rs("addate")%></CENTER>
<BLOCKQUOTE>
<BR>&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("content")%>
<BR><BR>
<p align=right>已有<b><%=rs("click")%></b>人阅读</p>
</BLOCKQUOTE></TD><TD width=15%></TD></TR></TBODY></TABLE>
<%response.write filesArr(8)  '调用通用页面底部文件%>
<table width="754" border="0" cellspacing="0" cellpadding="0">
<TR><td align="center"><%=bottomadv%></TD></TR>
<tr><td align=center><script language=javascript src="count.asp?s=1&id=7"></script></td></tr></table></body></html>
<%Call objend()%>