admin_web.asp

主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if request.form("MM_insert") then
if request.form("action")="newcscat" then
sql="select * from cscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim cscatname
cscatname=trim(replace(request.form("cscat_name"),"'",""))
if cscatname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
  rs("cscat_name")=cscatname
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_web.asp?action=cscat"
end if
elseif request.form("action")="newcs" then
sql="select * from coolsites"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim cscatid,csname,csurl,cspic,csdesc,csisbest,csdanwei,cszhwei,csdianha,cschuanzhen,csdizhi,csdianyu,csbiaoti,csjianjie,csbg,csxpic,csxdizhi
cscatid=cint(request.form("cscatid"))
csname=trim(replace(request.form("name"),"'",""))
csurl=trim(replace(request.form("url"),"'",""))
cspic=trim(replace(request.form("pic"),"'",""))
csdesc=trim(replace(request.form("desc"),"'",""))
csisbest=request.form("isbest")
csdanwei=trim(replace(request.form("danwei"),"'",""))
cszhwei=trim(replace(request.form("zhwei"),"'",""))
csdianha=trim(replace(request.form("dianha"),"'",""))
cschuanzhen=trim(replace(request.form("chuanzhen"),"'",""))
csdizhi=trim(replace(request.form("dizhi"),"'",""))
csdianyu=trim(replace(request.form("dianyu"),"'",""))
csbiaoti=trim(replace(request.form("biaoti"),"'",""))
csjianjie=trim(replace(request.form("jianjie"),"'",""))
csbg=trim(replace(request.form("bgpic"),"'",""))
csxpic=trim(replace(request.form("xpic"),"'",""))
csxdizhi=trim(replace(request.form("xdizhi"),"'",""))
if csname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写你的姓名NAME！');history.back(1);</script>")
else
  rs("cs_name")=csname
end if
if cscatid<1 then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须选择名片所属分类！');history.back(1);</script>")
else
  rs("cscat_id")=cscatid
end if
if csurl="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写网站地址！');history.back(1);</script>")
else
  rs("cs_url")=csurl
end if
if cspic="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写头象的图片地址！');history.back(1);</script>")
else
  rs("cs_pic")=cspic
end if
if csdesc="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写你的简要说明！');history.back(1);</script>")
else
  rs("cs_desc")=csdesc
end if
if cint(csisbest)=1 then
  rs("isbest")=cint(csisbest)
end if
if founderr then
  call diserror()
  response.end
else
  rs("cs_danwei")=csdanwei
  rs("cs_zhwei")=cszhwei
  rs("cs_dianha")=csdianha
  rs("cs_chuanzhen")=cschuanzhen
  rs("cs_dizhi")=csdizhi
  rs("cs_dianyu")=csdianyu
  rs("cs_biaoti")=csbiaoti
  rs("cs_jianjie")=csjianjie
  rs("cs_bg")=csbg
  rs("cs_xpic")=csxpic
  rs("cs_xdizhi")=csxdizhi
  rs.update
  rs.close
  set rs=nothing
  sql="update allcount set coolsitescount = coolsitescount + 1"
  conn.execute(sql)
  
  response.redirect "admin_web.asp?action=sites"
end if
elseif request.form("action")="editcs" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的名片id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from coolsites where cs_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cscatid=cint(request.form("cscatid"))
csname=trim(replace(request.form("name"),"'",""))
csurl=trim(replace(request.form("url"),"'",""))
cspic=trim(replace(request.form("pic"),"'",""))
csdesc=trim(replace(request.form("desc"),"'",""))
csisbest=request.form("isbest")
csdanwei=trim(replace(request.form("danwei"),"'",""))
cszhwei=trim(replace(request.form("zhwei"),"'",""))
csdianha=trim(replace(request.form("dianha"),"'",""))
cschuanzhen=trim(replace(request.form("chuanzhen"),"'",""))
csdizhi=trim(replace(request.form("dizhi"),"'",""))
csdianyu=trim(replace(request.form("dianyu"),"'",""))
csbiaoti=trim(replace(request.form("biaoti"),"'",""))
csjianjie=trim(replace(request.form("jianjie"),"'",""))
csbg=trim(replace(request.form("bgpic"),"'",""))
csxpic=trim(replace(request.form("xpic"),"'",""))
csxdizhi=trim(replace(request.form("xdizhi"),"'",""))


if csname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写名片名称！');history.back(1);</script>")
else
  rs("cs_name")=csname
end if
if cscatid<1 then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须选择名片所属分类！');history.back(1);</script>")
else
  rs("cscat_id")=cscatid
end if
if csurl="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写网站地址！');history.back(1);</script>")
else
  rs("cs_url")=csurl
end if
if cspic="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写头象的图片地址！');history.back(1);</script>")
else
  rs("cs_pic")=cspic
end if
if csdesc="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写你的简要说明！');history.back(1);</script>")
else
  rs("cs_desc")=csdesc

end if
rs("isbest")=cint(csisbest)

if founderr then
  call diserror()
  response.end
else
  rs("cs_danwei")=csdanwei
  rs("cs_zhwei")=cszhwei
  rs("cs_dianha")=csdianha
  rs("cs_chuanzhen")=cschuanzhen
  rs("cs_dizhi")=csdizhi
  rs("cs_dianyu")=csdianyu
  rs("cs_biaoti")=csbiaoti
  rs("cs_jianjie")=csjianjie
  rs("cs_bg")=csbg
  rs("cs_xpic")=csxpic
  rs("cs_xdizhi")=csxdizhi
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_web.asp?action=sites"
end if
elseif request.form("action")="delcs" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的名片id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from coolsites where cs_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  sql="update allcount set coolsitescount = coolsitescount - 1"
  conn.execute(sql)
  
  response.redirect "admin_web.asp?action=sites"
elseif request.form("action")="editcscat" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的名片分类id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from cscat where cscat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
cscatname=trim(replace(request.form("cscat_name"),"'",""))
if cscatname="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
else
  rs("cscat_name")=cscatname
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_web.asp?action=cscat"
end if
elseif request.form("action")="delcscat" then
if request.Form("id")="" then
  founderr=true
  Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
    Response.Write("<script language=javascript>alert('非法的名片分类id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from cscat where cscat_id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  set rs=nothing
  response.redirect "admin_web.asp?action=cscat"
end if
end if%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>