<%@ Language=VBScript %> <% strTitle = "系统大栏目信息" Call SetConn () If Request.Form ("submit") <> "" Then strCatalog = Trim (Request.Form ("catalog")) strDescription = Trim (Request.Form ("description")) sql = "Insert Into tManBigBorder (tName,tDescription) values ('" & strCatalog & "', '" & strDescription & "')" Conn.Execute (sql) If Err.number <> 0 Then Call ClearConn () Response.Write "" Else Call ClearConn () Response.Write "" Response.Redirect "ListBigBorder.asp" End If End If %>
添加 <% = strTitle %> 信息

<% = strTitle %>    (* <15)
说明   (<100)
 
  
<% Call ClearConn () %>