?? ndel.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="qx.asp"-->
<%
'*******************************************************************
' 彈出對話框
'*******************************************************************
Sub Alert(message)
message = Replace(message,"'","\'")
message = Replace(message,Chr(13),"\n")
message = Replace(message,Chr(10),"")
Response.Write ("<script>alert('" & message & "')</script>")
End Sub
'*******************************************************************
' 返回上一頁,一般用在判斷信息提交是否完全之后
'*******************************************************************
Sub GoBack()
Response.write ("<script>history.go(-1)</script>")
Response.write ("<script>Location.refresh()</script>")
End Sub
%>
<%
dim SQL, Rs, contentID,CurrentPage
contentID=request("ID")
set rs=server.createobject("adodb.recordset")
sqltext="delete * from sa where id="& contentID
rs.open sqltext,conn,3,3
set rs=nothing
'response.redirect "like.asp"
'GoBack()
response.write("<script language=JavaScript>{window.alert('刪除成功,頁面關(guān)閉:)^_^!');window.close();}</script>")
'response.write("<script language=JavaScript>{window.alert('刪除成功,頁面關(guān)閉:)^_^!');javascript:history.back();}</script>")
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -