<%@ Language=VBScript %> <% strTitle = "系统大栏目信息" If Request.QueryString ("Action") <> "" Then Dim intCheckBoxValue intCheckBoxValue = Request.Form ("checkbox") If intCheckBoxValue = "" Then Response.Write "" End If Call SetConn() Dim arrValue arrValue = split (intCheckBoxValue,",") Dim i For i = 0 To Ubound(arrValue) Conn.Execute ("Delete From tManBigBorder where ID = " & arrValue(i) & "") Next Call ClearConn () End If %>
<% = strTitle %> 类别

<% Call SetConn () sql = "Select * From tManBigBorder order by ID" Set objTemp = Conn.Execute (sql) Do while not objTemp.Eof %> <% objTemp.MoveNext Loop objTemp.Close Set objTemp = Nothing Call ClearConn () %>
  <% = strTitle %> 类别 说明 操作
"> <% = objTemp ("tName") %>   <% = objTemp ("tDescription") %> ">修改