del.asp

来自「7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。」· ASP 代码 · 共 22 行

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-01   HTTP://wap.czhome.net
' E-Mail: [e-mail]  QQ:316801451
'=================================================
%>
<%
	if session("flag")>2 then
		response.write "<br/><p align='center'>&#x60A8;&#x6CA1;&#x6709;&#x64CD;&#x4F5C;&#x7684;&#x6743;&#x9650;</p>"
		response.end
  end if
%>
<!--#INCLUDE FILE="conn.asp" -->
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="update article set Nkey=Nkey-1 where articleID="&request("zuti")
sql2="Delete * from ping where id="&request("id")
conn.execute(sql)
conn.execute(sql2)
response.redirect "ping.asp?articleid="&request("zuti")&""
%>