delmoy.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 56mdata where id="&request("id")
rs.Open sql,cn,3,2,adcmdtest
if not rs.eof then
rs("y_monny")=rs("y_monny")+rs("qzf")
rs("qzf")=0
rs.update
end if
rs.close
cn.close
set rs=nothing: set cn=nothing
Response.Redirect("user.asp")
%>