ql.asp

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

<%@ language=vbscript %>
<%
set cn=server.createobject("adodb.connection")
pat=server.mappath("../data/union.mdb")
cn.open "provider=microsoft.jet.oledb.4.0; data source="&pat&";jet oledb:database"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from jifei where id="&request("id")
rs.Open sql,cn,3,2,adcmdtest
rs(2)=0
rs(3)=0
rs(4)=0
rs.Update
rs.close
cn.close
set rs=nothing: set cn=nothing
Response.Redirect("ad.asp")
%>