open.asp

来自「短信平台 短信平台 短信平台」· ASP 代码 · 共 21 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="http://www.es123.com/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 path&"/"&filename
%>