%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>
<% id =request.querystring("id") %>
<%
dim connews
set connews=server.createobject("ADODB.Connection")
connews.open "DBQ="+server.mappath("../data/wham.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
sqldot="update news set dotnum=dotnum+1 where id="&id
'sqlStr="SELECT * FROM news where (id="&id&")"
sqlStr = "SELECT * FROM news where model='jdtg' and not isdel order by id desc"
'connews.execute(sqldot)
set rs=connews.execute(sqlStr)
newskey=rs("newskey")
newsid=rs("id")
message=rs("message")
%>