openarticle.asp

文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化 2、增加网文周榜和推荐作品 3、增加每个栏目图片和栏目的导读 4、增加推荐作品和会员文集 5、增加会员个人管理中心 6

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="articleconn.asp"-->
<%response.buffer=false
dim sql
dim path
dim filename
dim rs
dim listname
dim articleid

articleid=request("id")
path=request("path")
filename=request("filename")
set rs=server.createobject("adodb.recordset")
sql="update article set hits=hits+1 where newsID="&articleid
rs.open sql,conn,1,1   
rs.close
conn.close
response.redirect "go.asp?id="&articleid
%>