?? admin_expertdel.asp
字號:
<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Dim IDToDel
IDToDel = Request.Form("IDToDel")
If IDToDel<>"" And IsNumeric(IDToDel) Then
Dim RS
Set RS = Conn.Execute("Select * From [Expert] Where ID="&IDToDel)
If Not RS.EOF And Not RS.BOF Then
RS.Close
'刪除他的所有記錄
Conn.Execute("Delete * From [Registration] Where ExpertID="&IDToDel)
'刪除專家
Conn.Execute("Delete * From [Expert] Where ID="&IDToDel)
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('專家已刪除!');" &Chr(13)
Response.write "location = 'Admin_Expert.asp'"&Chr(13)
Response.write "</script>" &Chr(13)
Response.End
Else
RS.Close
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('專家不存在!');" &Chr(13)
Response.write "location = 'Admin_Expert.asp'"&Chr(13)
Response.write "</script>" &Chr(13)
Response.End
EnD If
Else
Response.write "<script language='javascript'>" &Chr(13)
Response.write "alert('參數錯誤!');" &Chr(13)
Response.write "location = 'Admin_Expert.asp'"&Chr(13)
Response.write "</script>" &Chr(13)
Response.End
End If
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -