onclick.asp

廣告聯盟系統,發布廣告信息,很不錯的一款

<%@ language=vbscript %>
<!-- #include file=DATABASE.INC -->
<%
user=session("kakrname")
type_y=session("type_y")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from 56mdata where username='"&user&"'"
Set rs1= Server.CreateObject("ADODB.Recordset")
adsql="select * from jifei where id="&type_y
rs.Open sql,cn,3,2,adcmdtext
rs1.open adsql,cn,2,2,adcmdtext
kakr=Request.cookies("kakr_y")
if session("zds")="" and kakr="" then
rs("sds")=cint(rs("sds")+1)
rs("zds")=cint(rs("zds")+1)
rs1("sds")=rs1("sds")+1
rs1("zds")=rs1("zds")+1
else
rs("zds")=cint(rs("zds")+1)
rs1("zds")=rs1("zds")+1
end if
rs.update
rs1.update
rs.close
rs1.close
cn.close
set rs=nothing:set rs1=nothing
set cn=nothing
select case type_y
case 1
reurl="http://www.9j455.com/movie"
case 2
reurl="http://www.9j455.com/movie"
case 3
reurl="http://www.9j455.com"
case 4
reurl="http://www.9j455.com"
end select
Response.Redirect(reurl)
%>