<%@ Language=VBScript %> <% If Request.QueryString ("id") = "" Then Response.Write "" Else iSubCatalogID =Request.QueryString ("id") End If Call SetConn () If Request.Form ("submit") <> "" Then intCatalogID = CInt (Request.Form ("tManBigBorder")) strCatalog = Trim (Request.Form ("catalog")) strDescription = Trim (Request.Form ("description")) strUrlName = Replace (Trim (Request.Form ("urlName")), "'", "''") sql = "Update tManBorder Set tUrlName = '" & strUrlName & "',ParentID = " & intCatalogID & ", tName = '" & strCatalog & "', tDescription = '" & strDescription & "' where ID = " & iSubCatalogID & "" Conn.Execute (sql) If Err.number <> 0 Then Call ClearConn () Response.Write "" Else Call ClearConn () Response.Write "" Response.Redirect "ListBorder.asp" End If End If sql = "Select * From tManBorder where ID = " & iSubCatalogID & "" Set objTemp = Conn.Execute (sql) If not objTemp.Eof Then iCatalogID = objTemp ("ParentID") strCatalog = objTemp("tName") strDescription = objTemp ("tDescription") strUrlName = objTemp ("tUrlName") End If objTemp.Close Set objTemp = Nothing %>

" method="post" onsubmit="return check ()" name="catalog">

修改小栏目信息

大栏目信息	<% Call SelTypeInfo ("tManBigBorder", iCatalogID) %>
小栏目信息	(* <15)
对应文件名模块	(* <50)
说明	<% = strDescription %> (<100)

<% Call ClearConn () %>