checkclassadd.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 23 行

<!--#include file="conn.asp" -->
<!--#include file="setting.asp"-->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from bigclass"
rs.Open sql,conn,3,2
%>
<%
if trim(Request("newclass"))=""  then
response.Redirect("admin_wrong.asp?url=classadd.asp&reason=你可能没填写分类标题!")
end if

rs.addnew
rs("bigclassname")=request.form("newclass")
rs.update
rs.close
set rs=nothing
%>
<%
if trim(Request("Action2"))="Modify2"  then
response.Redirect("admin_right.asp?url=classadd.asp&reason=分类添加成功,系统将转入刚才页面")
end if
%>