<%@ Language=VBScript %> <% strTitle = "系统大栏目信息" If Request.QueryString ("id") = "" Then Response.Write "" Else iTypeID =Request.QueryString ("id") End If Call SetConn () If Request.Form ("submit") <> "" Then strCatalog = Trim (Request.Form ("catalog")) strDescription = Trim (Request.Form ("description")) sql = "Update tManBigBorder Set tName = '" & strCatalog & "',tDescription = '" & strDescription & "' where ID = " & iTypeID & "" 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 sql = "Select * From tManBigBorder where ID = " & iTypeID & "" Set objTemp = Conn.Execute (sql) If not objTemp.Eof Then strCatalog = objTemp("tName") strDescription = objTemp ("tDescription") End If objTemp.Close Set objTemp = Nothing %>

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

添加 <% = strTitle %> 信息

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

<% Call ClearConn () %>