<%@ Language=VBScript %> <% 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 = "Insert Into tManBorder (ParentID, tName,tDescription, tUrlName) values (" & intCatalogID & ", '" & strCatalog & "', '" & strDescription & "', '" & strUrlName & "')" 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 %>

添加小栏目信息

大栏目信息	<% Call EnumTypeInfo ("tManBigBorder") %>
小栏目信息	(* <50)
对应文件名模块	(* <50)
说明	(<100)

<% Call ClearConn () %>