admin.asp

使用前请您先阅读以下条款

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Buffer = True
Response.Expires = 0
session.timeout=60
%>
<!--#include file="conn.asp"-->
<!--#include file="asptbsys.asp"-->
<!--#include file="adminft.asp"-->
<!--#include file="asptbcom.asp"-->
<title>后台管理系统</title>
<link href="css.css" rel="stylesheet" type="text/css">
<%
if Cint(userzhiwu)=100 then

   sys = request("sys")
   editinfo=request("editinfo")
   gk= request("gk")
   user = request("user")
   mb = request("mb")
   htm = request("htm")
   '生成html
   if htm<>"" then
      ind = request("ind")
      letf = "<a href=admin.asp?htm=1&ind=1>生成主页</a>"
      if ind<>"" then
	     call htmlindex(htmlinfo)
	  end if
      call adtop(admintop,letf,htmlinfo)
      response.write(admintop)   
   end if
   '修改模板
   if mb<>"" then
      Submit=request.Form("Submit")
      if Submit<>"" then
         tabletop = trim(request.Form("tabletop"))
         tableind = trim(request.Form("tableind"))
         tableind2 = trim(request.Form("tableind2"))
         tablelist = trim(request.Form("tablelist"))
         tableshow = trim(request.Form("tableshow"))
         tablebottom = trim(request.Form("tablebottom"))
         conn.Execute("update asptbtable set tabletop='"&tabletop&"',tableind='"&tableind&"',tableind2='"&tableind2&"',tablelist='"&tablelist&"',tableshow='"&tableshow&"',tablebottom='"&tablebottom&"'")
      end if
      letf = "<a href=admin.asp?mb=1>修改模板</a>"
      call mbform(mbinfo)
      call adtop(admintop,letf,mbinfo)
      response.write(admintop)
   end if
   '会员
   if user<>"" then
      yn=0
	  del=request("del")
	  edu=request("edu")
      Submit=request.form("Submit")
	  Submit1=request.form("Submit1")
	  if del<>"" then
	     call deluser(del,userinfo)
	  end if
	  if edu<>"" then
	     if Submit1<>"" then
            call samduser(userinfo)
		 else
		    eder="select * from asptbuser where idu="&edu&"" 
            set rsue=server.createobject("adodb.recordset")
            rsue.open eder,conn,1,1
		    userid=rsue("userid")
		    username=rsue("username")
		    call mduser(userinfo,userid,username,edu)
		    rsue.close
		    set rsue=nothing
		 end if
	  end if
	  if Submit <> "" then
         call adduser(userinfo)
	  end if 
      if Submit="" and edu="" and Submit1="" and del="" then
	     call useredit(userinfo)
	  end if
	     letf = "<a href=admin.asp?user=1>会员管理</a>"
         call adtop(admintop,letf,userinfo)
         response.write(admintop)
   end if
   '系统修改
   if sys<>"" then
      Submit=request.Form("Submit")
      if Submit<>"" then
         mwebname = request.Form("webname")
         mweburl = request.Form("weburl")
         mweblogo = request.Form("weblogo")
         mwebcopy = request.Form("webcopy")
         mmedes = request.Form("medes")
         mmekey = request.Form("mekey")
         conn.Execute("update asptbsys set webname='"&mwebname&"',weburl='"&mweburl&"',weblogo='"&mweblogo&"',webcopy='"&mwebcopy&"',medes='"&mmedes&"',mekey='"&mmekey&"'")
     end if
     letf = "<a href=admin.asp?gk=1>广告设置</a>"
     call sysform(sysinfo)
     call adtop(admintop,letf,sysinfo)
     response.write(admintop)
   end if
   '广告
   if gk<>"" then
      Submit=request.Form("Submit")
      if Submit<>"" then
         webguang1 = request.Form("webguang1")
         webguang2 = request.Form("webguang2")
         webguang3 = request.Form("webguang3")
         conn.Execute("update asptbsys set webguang1='"&webguang1&"',webguang2='"&webguang2&"',webguang3='"&webguang3&"'")
      end if
      letf = "<a href=admin.asp?gk=1>广告设置</a>"
      call gkform(gkinfo)
      call adtop(admintop,letf,gkinfo)
      response.write(admintop)
   end if
'分类编辑
   if editinfo<>"" then
      call adtop(admintop,letf,righ)
      response.write(admintop)
      ids=request("editinfo")
      idl=request("idl")
      page=request("page")
      saveinfo=request.Form("saveinfo")
      stitle=Trim(request.form("stitle"))
      skey=Trim(request.form("skey"))
      fromuser=Trim(request.form("fromuser"))
      fromedit=Trim(request.form("fromuser"))
      fromurl=Trim(request.form("fromurl"))
      asptbinfo=rtrim(request.form("asptbinfo"))
      pic=Trim(request.form("pic"))
      if saveinfo=1 then
         call saveedit(asptbinfo,fromurl,frommedit,fromuser,skey,stitle,idl,pic,ids,edityn,erra)
         if edityn=0 then
            response.redirect"admin.asp?fenlei=1&idl="&idl&"&Page="&page&""
         end if
      else
         idl=request("idl")
         editinfo="select * from asptbinfo where ids="&editinfo&"" 
         set rsedit=server.createobject("adodb.recordset")
         rsedit.open editinfo,conn,1,1
         idl=rsedit("idl")
         ids=rsedit("ids")
         skey=rsedit("skey")
         stitle=rsedit("stitle")
         asptbinfo=rsedit("asptbinfo")
         fromuser=rsedit("fromuser")
         fromedit=rsedit("fromedit")
         fromurl=rsedit("fromurl")
        pic=rsedit("pic")
       end if
   end if
'删除文章
   delinfo=request("delinfo")
   if  delinfo<>"" then
       idl=request("idl")
       page=request("page")
       call delids(delinfo)
       response.redirect"admin.asp?fenlei=1&idl="&idl&"&page="&page&""
   end if
'推荐文章
   tuijianinfo=request("tuijianinfo")
   if  tuijianinfo<>"" then
       idl=request("idl")
       tj=request("tj")
       page=request("page")
       call settuijianinfo(tuijianinfo,tj)
       response.redirect"admin.asp?fenlei=1&idl="&idl&"&page="&page&""
   end if 
'填加文章
   addwz=request("addwz")
   if addwz<>"" then
      idl=request("idl")
	  Submit4 = request.Form("Submit4")
	  if Submit4<>"" then
         stitle=Trim(request.form("stitle"))
         skey=Trim(request.form("skey"))
         fromuser=Trim(request.form("fromuser"))
         fromedit=Trim(request.form("fromedit"))
         fromurl=Trim(request.form("fromurl"))
         asptbinfo=lTrim(request.form("asptbinfo"))
         pic=Trim(request.form("pic"))
         if len(stitle)>1 and len(asptbinfo)>1 and len(skey)>1 then
            call addwzinfo(asptbinfo,fromurl,fromedit,fromuser,skey,stitle,idl,pic,addyn,erra)
            if Cint(addyn)=1 then
              erradd="填加失败："&erra
            else
              erradd="已填加成功"
              response.redirect"admin.asp?fenlei=1&idl="&idl&""
           end if
        else
           erradd="填加文章失败：带星号*字符长度必等于或大于2"
        end if
	end if
   end if
  '设置分类首页推荐

   tuijian=request("tuijian")
   if tuijian<>"" then
      idl=request("idl")
      call fltj(tuijian,idl)
      response.redirect"admin.asp?fenlei=1&idl="&idl&""
   end if
 '删除分类
   delfenlei=request("delfenlei")
   if delfenlei<>"" then
      call adtop(admintop,letf,righ)
      response.write(admintop)
      call delfenl(delfenlei,delyn)
      if delyn=1 then
         delinf="<font color=#FF0000>>>>此分类下还有子类不能删除</font>"
      else
         delinf="删除成功"
         response.redirect"admin.asp?fenlei=1"
      end if
   end if
 '新加分类
   addfn=request("addfn")
   if Cint(addfn)=1 then
      addfname=Trim(request.form("addfname"))
      addfs=Trim(request.form("addfs"))
      call addfenlei(addfname,addfs,addyn)
      if addyn=1 then
	      call adtop(admintop,letf,righ)
          response.write(admintop)
         response.write"<font color=#FF0000>填加失败："&addfname&""&addfs&"</font> <a href=admin.asp?fenlei=1>返回</a>"
      else
         response.redirect"admin.asp?fenlei=1"
      end if
   end if

   idl=request("idl")
   call admifen(fname)
   if idl<>"" then
      idl=request("idl")
      call zlei(zfname,idl)
      call admininfo(wslist,idl)
      call zfenlei(ffname,idl)
   end if
'修改分类
    mdf=request("mdf")
   if mdf<>"" then
      call adtop(admintop,letf,righ)
      response.write(admintop)
      call mdfnam(mdf,mdfform)
      response.Write(mdfform)
   end if
    fenlei=request("fenlei")
   if Cint(fenlei)=1 then
      call adtop(admintop,letf,righ)
      response.write(admintop)  
      call shfenlei(showfenlei)
      response.Write(showfenlei)
   end if
   if request("addwz")<>"" then
      call adtop(admintop,letf,righ)
      response.write(admintop)
      call addinfoform(infoform)
      response.Write(infoform)
   end if
   '编辑文章
   if editinfo<>"" then
      ids=request("editinfo")
      idl=request("idl")
      call editinfoform(editform)
      response.Write""&editform&""
   end if
else '管理员登陆
   response.write""& asptbtop &""
   response.write"<div align=center>"
   response.write"<form name=form1 method=post action=admin.asp?login=1>"
   response.write"登陆ID：" 
   response.write"<input name=userid type=text size=10><br>"
   response.write"密&nbsp;&nbsp;码：" 
   response.write"<input name=userpwl type=password size=10>"
   response.write"<br><input type=submit name=Submit value=登陆></form></div>"
end if
login=request("login")
if login=1 then
   userid=trim(request.form("userid"))
   userpwl=trim(request.form("userpwl"))
   userpwl=md5(userpwl)
   ccn="select * from asptbuser where userid='"&userid&"' and userpwl='"&userpwl&"'"
   set rsn=server.createobject("adodb.recordset")
   rsn.open ccn,conn,1,1
   if not rsn.eof then 
      userid=rsn("userid")
      username=rsn("username")
      userzhiwu=rsn("userzhiwu")
      session("idu")=rsn("idu")
      response.redirect"admin.asp?sys=1"
   else
      response.write"用户名与密码不对"
   end if
end if
logout=request("logout")
if Cint(logout)=1 then
   session("idu")=""
   username="游客"
   userzhiwu=0
   response.redirect"./"
end if
call asptbvc(asptbcopy)
response.Write""&asptbcopy&""
Response.Flush 
%>