del.asp

admin/admin.asp是WAP的后台管理登陆页面

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%
	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")&""
%>