bigclassset.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

<!--#INCLUDE FILE="Conn.asp" --><!--#include file=../include/config.asp--><!--#include file="chkuser.asp" -->

<%
IF request.cookies("KEY")="" THEN
response.redirect "index_face.asp"
response.end
END IF


if request("action")="update" then
dim bigclassorder,bigclassmaster,bigclassview,bigclassname,typeid,bigclasszs
	for i=1 to request.form("bigclassid").count
	bigclassid=replace(request.form("bigclassid")(i),"'","")
	bigclassorder=replace(request.form("bigclassorder")(i),"'","")
	bigclassmaster=replace(request.form("bigclassmaster")(i),"'","")
	bigclassview=replace(request.form("bigclassview")(i),"'","")
	bigclassname=replace(request.form("bigclassname")(i),"'","")
	bigclasszs=replace(request.form("bigclasszs")(i),"'","")
	typeid=replace(request.form("typeid")(i),"'","")
if replace(request.form("bigclassorder")(i),"'","")="" then
%>
<script language=javascript>
history.back()
alert("请填写大类排序！")
</script>
<%
Response.End
end if
if replace(request.form("bigclassmaster")(i),"'","")="" then
bigclassmaster="无"
else
master=split(replace(request.form("bigclassmaster")(i),"'",""),"|")
 for k=0 to ubound(master)
	set rs=server.createobject("adodb.recordset")
	sql="Select * from admin where oskey='bigmaster' and username='"&trim(master(k))&"'"
	rs.open sql,conn,1,3
if trim(master(k))<>"无" then
	if rs.eof then
%>
<script language=javascript>
history.back()
alert("大类管理员中无“<%=trim(master(k))%>”用户！请重新选择该大类的管理员！")
</script>
<%
Response.End
end if
else
bigclassmaster="无"
end if
	rs.close
	set rs=nothing
 next
end if

	conn.execute("update bigclass set bigclassorder="&bigclassorder&",bigclassmaster='"&bigclassmaster&"',bigclassview="&bigclassview&",bigclassname='"&bigclassname&"',typeid="&typeid&",bigclasszs='"&bigclasszs&"' where bigclassid="&bigclassid)
    Set nrs = Server.CreateObject("ADODB.Recordset")
    sqln="select * from news where bigclassid="&bigclassid
    nrs.open sqln,conn,3,3
    while not nrs.EOF
    nrs("typeid")=typeid
    nrs.MoveNext
    wend
    nrs.close
    set nrs=nothing

	next
end if



if request("action")="add" then
bigclasszs=request.form("bigclasszs")
bigclassname=trim(request("bigclassname"))
bigclassorder=request.form("bigclassorder")
bigclassmaster=request.form("bigclassmaster")
bigclassview=request.form("bigclassview")
typeid=request.form("typeid")

If bigclassorder="" Then
response.write "大类排序不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if
If bigclassname="" Then
response.write "大类名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from BigClass"
rs.open sql,conn,3,3
rs.addnew
rs("bigclassname")=bigclassname
rs("bigclasszs")=bigclasszs
rs("typeid")=typeid
if bigclassorder="" then
rs("bigclassorder")=0
else
rs("bigclassorder")=bigclassorder
end if
rs("bigclassview")=bigclassview
if bigclassmaster="" then
rs("bigclassmaster")="无"
else
rs("bigclassmaster")=bigclassmaster
end if
rs.update
typeid=rs("typeid")
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from type where typeid="&typeid
rs.open sql,conn,3,3
dim typename
typename=rs("typename")
rs.close
set rs=nothing
end if

conn.close
set conn=nothing
response.write "<p align=center><font color=red>恭喜您!设置成功!<br>"&freetime&"秒钟后返回上页!</font>"
response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=bigclass.asp?typeid="&typeid&""">"
%>