delgroup.asp

来自「电子商务网络购物系统」· ASP 代码 · 共 28 行

<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Server.ScriptTimeout =  1000

Dim intStartGroupID
Dim intDeleteUserGroupID

intDeleteUserGroupID = CInt(Request.QueryString("gid"))
If intDeleteUserGroupID <> "" Then
	strSQL = "SELECT timesgrp.grpid FROM timesgrp WHERE timesgrp.startgrp = True;"
	rsConn.Open strSQL, adoCon
	intStartGroupID = CInt(rsConn("grpid"))
	strSQL = "UPDATE timesuser SET "_
	 	 & "timesuser.grpid = " & intStartGroupID & " "_
	         & "WHERE timesuser.grpid = " & intDeleteUserGroupID & ";"
	adoCon.Execute(strSQL)
	strSQL = "DELETE FROM timesaccess WHERE timesaccess.grpid ="  & intDeleteUserGroupID & ";"
	adoCon.Execute(strSQL)
	strSQL = "DELETE FROM timesgrp WHERE timesgrp.grpid ="  & intDeleteUserGroupID & ";"
	adoCon.Execute(strSQL)
	rsConn.Close
End If
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
Response.Redirect("disgroup.asp")
%>