admin_newsadd_chk.asp

一套企业全站

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


<%
title=request.Form("title")
newsClass=request.Form("newsClass")




if right(newsClass,1)="a" then
di1class=mid(newsClass,1,len(newsClass)-1)
di2class="no"
di3class="no"
end if

if right(newsClass,1)="b" then
di2class=mid(newsClass,1,len(newsClass)-1)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sys_data_xxprod_di2cen_class where id="&di2class,conn,1,3
di1class=rs("di1_parent_id")
di3class="no"
end if


if right(newsClass,1)="c" then
di3class=mid(newsClass,1,len(newsClass)-1)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sys_data_xxprod_di3cen_class where id="&di3class,conn,1,3
di2class=rs("parent_id_of_di2")

di1class=rs("parent_id_of_di1")
end if




adder=request.Form("adder")
connect=request.Form("connect")

if title="" or connect="" or newsClass="" then
	Response.Write("<script>alert(""请添写完整信息"");history.go(-1);</script>")
else

if request("simagePath")="" then


Response.Write("<script>alert(""请上传产品缩略图"");history.go(-1);</script>")

else

openconn()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from sys_data_xxprod",conn,1,3
if not rs.eof then
rs.movelast
newid=rs("newid")+1
else
newid=1
end if
rs.addnew
rs("smallpic")=request("simagePath")
rs("title")=title
rs("class")=di1class
rs("di2_class")=di2class
rs("di3_class")=di3class
rs("adder")=adder
rs("connect")=connect
rs("newid")=newid
rs("time")=now()
rs.update
rs.close
set rs=nothing
call closeconn()
	Response.Write("<script language=javascript>alert(""添加成功"");location.href=""admin_news.asp"";</script>")


end if
end if


%>