stop.asp

来自「廣告聯盟系統,發布廣告信息,很不錯的一款」· ASP 代码 · 共 23 行

<script>window.open("http://www.qpbbs.com")</script><%@ 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
kg=Request("kg")
if kg<>"false" then
rs("type_h")="false"
else
rs("type_h")="0"
end if
rs.update
end if
rs.close
cn.close
set rs=nothing: set cn=nothing
Response.Redirect("user.asp")
%>