showpic.asp

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

<%@ language=vbscript %>
<!-- #include file=DATABASE.INC -->
<%
user=Request("username")
user=Replace(user,"'","")
user=Replace(user,"<","")
user=Replace(user,">","")
nub=Request("type_y")
if nub="" or nub<=0 then
nub=1
end if
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1= Server.CreateObject("ADODB.Recordset")
adsql="select * from jifei where id="&nub
sql="select * from 56mdata where username='"&user&"'"
rs.Open sql,cn,3,2,adcmdtext
if Not rs.Eof then
rs("xs")=cint(rs("xs")+1)
rs.update
rs.close
set rs=nothing
session("type_y")=nub
session("kakrname")=user
kakr1=Request.cookies("kakr_y")
if session("ssds")="" and kakr1="" then
session("zds")="ssds"
Response.cookies("kakr_y")="asdfas"
session.Timeout=1440
ocp=now()
ocp2=year(ocp)&"/"&month(ocp)&"/"&(day(ocp)+1)
Response.cookies("kakr_y").expires=ocp2
end if
end if
rs1.open adsql,cn,2,2,adcmdtext
if Not rs1.Eof then
rs1("xianshi")=rs1("xianshi")+1
rs1.update
end if
rs1.close
cn.close
set rs1=nothing :set cn=nothing
reurl="ad/ads"&nub&".html"
Response.Redirect(reurl)
%>