sort1.asp

来自「1. 在界面的开头显示新闻添加的位置」· ASP 代码 · 共 47 行

<!--#include file="conn.asp"-->
<% 
dim rs,articleid,sql,strsql,visitnum
articleid=request.QueryString("articleid")
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from article where articleid="&articleid
rs.open strsql,conn
visitnum=rs("visitnum")+1
%>
<!--#include file="head.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
  <tr>
    <td width="200"align="left" valign="top" scope="row">　
      <table width="100%" height="100%" border="0">
        <tr><td align="left" valign="top" scope="row"><!--#include file="ip.asp"--></td></tr>
		<tr><td align="center" valign="top" scope="row"><!--#include file="hot.asp"--></td></tr>
		<tr><td align="center" valign="top" scope="row"><!--#include file="tuijian.asp"--></td></tr>
	   </table>
	 </td>
	 <td width="490" align="center" valign="top">
	<table width="100%" align="center" cellpadding="0" cellspacing="0">
      <tr height="30"><td></td></tr><tr bgcolor="#003399" valign="top">
        <td valign="top">
		<font size="+1"><b><%=rs("title") %></b></font></td></tr><tr height="30"><td>(作者：<%=rs("author")%>&nbsp;发布时间:<%=rs("date")%>&nbsp;阅读次数：<%=visitnum%></td></tr>
		<tr>
          <td align="left"> <font size="2"><%=rs("content")%></font> 
          </td>
		</tr>
    </table>
	</td>
    </tr>
 </table>
 
 <!--#include file="foot.asp"-->
<%
rs.close
dim strvisit
strvisit="update article set visitnum=visitnum+1 where articleid="&articleid
rs.open strvisit,conn
%>
</body>
</html>