shenghe.asp

中国缘网新闻系统

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

articleid=request("id")
set rs=server.createobject("adodb.recordset")
sql="update article set shenghe=1 where newsID="&articleid
rs.open sql,conn,1,1   
rs.close
conn.close
response.redirect "newschk.asp"
%>