%
username=request.QueryString("username")
gjz1=request("gjz")
record_id=request.QueryString("id")
jg_id=request.QueryString("iddd")
web_page = request.QueryString("web")
'response.Write(jg_id)
dim rss,num
Set rss=Server.CreateObject("ADODB.Recordset")
rss.Open "select * from nxtable where id="&record_id&"",conn,1,3
rss.movefirst
if username = "" then
username = rss("users")
end if
num=rss("num_research")
rss("num_research")=num+1
'response.Write rss.recordcount&"
"
'response.Write num&"
"
'response.Write rss("num_research")&"
"
rss.Update
rss.Close
Set rss=Nothing
if (web_page <> "") then
response.Redirect(web_page)
end if
%>