open.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%
if request.querystring("action")="down" then
if request.querystring("id")<>"" then
  if not isInteger(request.querystring("id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  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")="ads" then
if request.querystring("id")<>"" then
  if not isInteger(request.querystring("id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  end if
end if
dim adsid
adsid=cint(request.querystring("id"))
sql="select hits,imgurl from Gq_ads where id="&adsid
set rs=conn.execute(sql)
dim imgurl
imgurl=rs("imgurl")
sql="UPDATE Gq_ads SET hits = hits + 1 where id="&adsid
conn.execute(sql)
rs.close
set rs=nothing
call CloseConn()
response.redirect imgurl
end if

if request.querystring("action")="go" then
if request.querystring("id")<>"" then
  if not isInteger(request.querystring("id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('参数非法');javascript:history.back();</script>"
  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
%>