typeset.asp

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

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

<%
IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF


if request("action")="update" then
dim typeorder,typemaster,mode,typename,typecontent,typeview
	for i=1 to request.form("typeid").count
	typeid=replace(request.form("typeid")(i),"'","")
	mode=replace(request.form("mode")(i),"'","")
	typename=replace(request.form("typename")(i),"'","")
	typecontent=replace(request.form("typecontent")(i),"'","")
	typeorder=replace(request.form("typeorder")(i),"'","")
	typemaster=replace(request.form("typemaster")(i),"'","")
	typeview=replace(request.form("typeview")(i),"'","")
if replace(request.form("typeorder")(i),"'","")="" then
%>
<script language=javascript>
history.back()
alert("请填写总栏排序！")
</script>
<%
Response.End
end if
if replace(request.form("typemaster")(i),"'","")="" then
typemaster="无"
else
master=split(replace(request.form("typemaster")(i),"'",""),"|")
 for k=0 to ubound(master)
	set rs=server.createobject("adodb.recordset")
	sql="Select * from admin where oskey='typemaster' 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
typemaster="无"
end if
	rs.close
	set rs=nothing
 next
end if
	conn.execute("update type set typeorder="&typeorder&",typemaster='"&typemaster&"',mode="&mode&",typeview="&typeview&",typename='"&typename&"',typecontent='"&typecontent&"' where typeid="&typeid)
	next
end if



if request("action")="add" then

typecontent=request.form("typecontent")
typename=trim(request("typename"))
mode=request("mode")
typeorder=request("typeorder")
typeview=request("typeview")
typemaster=request("typemaster")

If mode="0" Then
response.write "请选择模板！<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if

If typeorder="" Then
response.write "总栏排序不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if
If typename="" Then
response.write "总栏名称不能为空！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,3,3
do while not rs.eof
if rs("typename")=typename then
response.write "已经存在这个总栏名称！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if
rs.movenext
loop
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from type"
rs.open sql,conn,3,3
do while not rs.eof
if rs("typeorder")=typeorder then
response.write "已经存在这个总栏顺序！请<a href=javascript:history.go(-1)>返回重新填写</a>！"
response.end
end if
rs.movenext
loop
rs.close
set rs=nothing

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from type"
rs.open sql,conn,3,3
rs.addnew
rs("typename")=typename
rs("mode")=mode
rs("typecontent")=typecontent
rs("typeorder")=typeorder
rs("typeview")=typeview
if typemaster="" then
rs("typemaster")="无"
else
rs("typemaster")=typemaster
end if
rs.update
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=typemanage.asp"">"
%>