class_add_chk.asp

来自「一套企业全站」· ASP 代码 · 共 30 行

<!--#include file=inc/conn.asp-->
<!--#include file=../../inc/checkadmin.asp-->


<%
title=request("title")


if title="" then
	Response.Write("<script>alert(""请添写完整信息"");history.go(-1);</script>")
else
openconn()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sys_data_xxprod_class",conn,1,3


rs.addnew
rs("news_type_name")=title
rs("smallpic")=request("simagePath")

rs.update
rs.close
set rs=nothing
call closeconn()
	Response.Write("<script language=javascript>alert(""添加成功"");location.href=""admin_news_class.asp"";</script>")

end if


%>