del_kithe.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 32 行

<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%

  If Not IsNumeric(Request.QueryString("KitID")) Then
    Response.Write("<script language=javascript>history.go(-1)</script>")
	Response.End
  End If

  If CLng(Request.QueryString("KitID"))=0 Then
    Response.Write("<script language=javascript>history.go(-1)</script>")
	Response.End
  End If

  Dim KitID
    KitID=cLng(Request.QueryString("KitID"))

  Dim mRs
   Set mRs=Server.CreateObject("Adodb.RecordSet")
   Set mRs=Conn.Execute("Delete From m_Kithe Where ID="&KitID)
    Set mRs=Conn.Execute("update m_config set tray_show2=0")
	'Set Rs6=Conn.Execute("update m_config set tray_show2=1")
   Set mRs=Nothing

  Response.Redirect "Index_Kithe.Asp"
%>