On Error Resume Next
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
Set Conn=Server.CreateObject("ADODB.connection")
ConnString="Driver={SQL SERVER};SERVER=IP;UID=username;PWD=password;DATABASE=WWW_domainname_com"
Conn.open ConnString
If Err.Number <> 0 Then
Response.write "系统日常维护中!"
Response.End()
end if
<!--#include file="ConnSQLDB.asp"-->
if request("Action")="Add_Cate" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from First_Category where CateId=" & CInt(CateId)
rs.open sql,conn,1,3
rs.AddNew
rs("CateName")=request("CateName")
rs.Update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "First_Category.asp"
end if