smallclassset.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 smallclassorder,smallclassma,smallclassview,smallclassname,bigclassid,smallclasszs
	for i=1 to request.form("smallclassid").count
	smallclassid=replace(request.form("smallclassid")(i),"'","")
	smallclassorder=replace(request.form("smallclassorder")(i),"'","")
	smallclassma=replace(request.form("smallclassma")(i),"'","")
	smallclassview=replace(request.form("smallclassview")(i),"'","")
	smallclassname=replace(request.form("smallclassname")(i),"'","")
	bigclassid=replace(request.form("bigclassid")(i),"'","")
	smallclasszs=replace(request.form("smallclasszs")(i),"'","")

if replace(request.form("smallclassorder")(i),"'","")="" then
%>
<script language=javascript>
history.back()
alert("请填写小类排序！")
</script>
<%
Response.End
end if
if replace(request.form("smallclassma")(i),"'","")="" then
smallclassma="无"
else
master=split(replace(request.form("smallclassma")(i),"'",""),"|")
 for k=0 to ubound(master)
	set rs=server.createobject("adodb.recordset")
	sql="Select * from admin where oskey='smallmaster' 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
smallclassma="无"
end if
	rs.close
	set rs=nothing
 next
end if
	conn.execute("update smallclass set smallclassorder="&smallclassorder&",smallclassma='"&smallclassma&"',smallclassview="&smallclassview&",smallclassname='"&smallclassname&"',bigclassid="&bigclassid&",smallclasszs='"&smallclasszs&"' where smallclassid="&smallclassid)
	Set nrs = Server.CreateObject("ADODB.Recordset")
    sqln="select * from news where smallclassid="&smallclassid
    nrs.open sqln,conn,3,3
    while not nrs.EOF
    nrs("bigclassid")=bigclassid
    nrs.MoveNext
    wend
    nrs.close
    set nrs=nothing
    next
end if



if request("action")="add" then
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," "," ") 
    changechr=replace(changechr,"'","&acute;")
    changechr=replace(changechr,mid(" "" ",2,1),"&quot;")
end function

smallclasszs=request.form("smallclasszs")
smallclassname=changechr(trim(request("smallclassname")))
smallclassorder=request.form("smallclassorder")
smallclassma=request.form("smallclassma")
smallclassview=request.form("smallclassview")
bigclassid=request.form("bigclassid")
typeid=request.form("typeid")

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

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from smallclass"
rs.open sql,conn,3,3
rs.addnew
rs("smallclassname")=smallclassname
rs("smallclasszs")=smallclasszs
rs("bigclassid")=bigclassid
rs("typeid")=typeid
if smallclassorder="" then
rs("smallclassorder")=0
else
rs("smallclassorder")=smallclassorder
end if
rs("smallclassview")=smallclassview
if smallclassma="" then
rs("smallclassma")="无"
else
rs("smallclassma")=smallclassma
end if
rs.update
bigclassid=rs("bigclassid")
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=smallclass.asp?bigclassid="&bigclassid&""">"
%>