<!#include File="connasp">
<%
Dim id
Dim RsSql
id = Replace(Trim(RequestQueryString("id"))"""")
If Session("id"&id)<>"" Then
Set Rs = ServerCreateObject("ADODBRecordset")
Sql = "Select * From News Where id="&id
RsOpen SqlConn
If RsEof And RsBof Then
ResponseWrite("NoData")
Else
ResponseWrite("Dig")
ResponseWrite("")
ResponseWrite(Rs("Dig"))
End If
Else
Set Rs = ServerCreateObject("ADODBRecordset")
Sql = "Select * From News Where id="&id
RsOpen SqlConn
If RsEof And RsBof Then
ResponseWrite("NoData")
Else
Dim Dig
Dig =Rs("Dig")
Dig = Dig +
Rs("Dig") = Dig
RsUpdate
RsClose
Set Rs = Nothing
Session("id"&id) = id
ResponseWrite(Dig)
End If
End If
%>
