<% '==================================== '齐动网 www.77dw.com 开发设计 '欢迎购买商业版程序 联系QQ:948276906 '==================================== 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=int(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=clng(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 + "&c77dw.sfhits&" where id="&sfid conn.execute(sql) rs.close set rs=nothing call CloseConn() response.redirect homepage End If %>