%
If request.querystring("action")="down" then
If request.querystring("id")<>"" then
If not c77dw.isInteger(request.querystring("id")) then
founderr=true
Response.Write ""
End If
End If
Dim wgid
wgid=cint(request.querystring("id"))
sql="select hits,url from Gq_soft where id="&wgid
set rs=conn.execute(sql)
Dim url
url=rs("url")
sql="UPDATE Gq_soft SET hits = hits + 1 where id="&wgid
conn.execute(sql)
rs.close
set rs=nothing
call CloseConn()
response.redirect url
End If
If request.querystring("action")="go" then
If request.querystring("id")<>"" then
If not c77dw.isInteger(request.querystring("id")) then
founderr=true
Response.Write ""
End If
End If
Dim sfid
sfid=cint(request.querystring("id"))
sql="select hits,homepage from Gq_sfdata where id="&sfid
set rs=conn.execute(sql)
Dim homepage
homepage=rs("homepage")
sql="UPDATE Gq_sfdata SET hits = hits + 1 where id="&sfid
conn.execute(sql)
rs.close
set rs=nothing
call CloseConn()
response.redirect homepage
End If
%>