admin_js.asp

这是一个asp的“www.vqqq.com网页特效”系统

<!--#include file="inc/config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/jsubb.asp"-->
<!--#include file="inc/adminjs_body.asp"-->
<title><%=webname%>www.vqqq.com网页制作，设计，数据库，源码下载,黑客程序,系统资源,网页特效, 粗口舞曲, 中文舞曲, 街舞录象,MTV, 音乐, FLASH, 教程, 舞曲, 交友，社区,聊天,照片,酷站,连接,留言,统计,日记,文章,开发工具,免费,软件,合作,黑客,代码,ASP,PHP,主机,交流,免费留言本,免费日记,免费投票,免费下载,免费查询,IP查询,手机查询,身份证查询,网吧,电影,DJ，传奇世界外挂，传奇世界挂机外挂，传奇世界私服</title>
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='admin.asp'>重新登录</a>！"
  call diserror()
  response.end
else
if request.form("MM_insert") then
if request.form("action")="newjscat" then
sql="select * from script_type"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim jscatname
jscatname=trim(replace(request.form("jscat_name"),"'",""))
if jscatname="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写分类名称！"
else
  rs("title")=jscatname
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_js.asp?action=jscat"
end if
elseif request.form("action")="newjs" then
sql="select * from script_body"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim jscatid,jsname,jsurl,jsjs,jsdesc,jsisbest
jscatid=cint(request.form("jscatid"))
jsname=trim(replace(request.form("name"),"'",""))
'jsurl=trim(replace(request.form("url"),"'",""))
jsdesc=trim(replace(request.form("desc"),"々",""))
jsisbest=request.form("isbest")
if jsname="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写特效名称！"
else
  rs("title")=jsname
end if
if jscatid<1 then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须选择特效所属分类！"
else
  rs("type")=jscatid
end if
'if jsurl="" then
 ' founderr=true
 ' errmsg=errmsg+"<br>"+"<li>你必须填写特效地址！"
'else
 ' rs("js_url")=jsurl
'end if
if jsdesc="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写特效的简要说明！"
else
  rs("text")=jsdesc
end if
if cint(jsisbest)=1 then
  rs("isbest")=cint(jsisbest)
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  sql="update allcount set jscount = jscount + 1"
  conn.execute(sql)
  closedatabase
  response.redirect "admin_js.asp?action=js"
end if
elseif request.form("action")="editjs" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的特效id参数。"
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from script_body where id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
jscatid=cint(request.form("jscatid"))
jsname=trim(replace(request.form("name"),"'",""))
'jsurl=trim(replace(request.form("url"),"'",""))
jsjs=trim(replace(request.form("js"),"'",""))
jsdesc=trim(replace(request.form("desc"),"々",""))
jsisbest=request.form("isbest")
if jsname="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写特效名称！"
else
  rs("title")=jsname
end if
if jscatid<1 then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须选择特效所属分类！"
else
  rs("type")=jscatid
end if
'if jsurl="" then
 ' founderr=true
  'errmsg=errmsg+"<br>"+"<li>你必须填写特效地址！"
'else
 ' rs("js_url")=jsurl
'end if
if jsdesc="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写特效的简要说明！"
else
  rs("text")=jsdesc
end if
rs("isbest")=cint(jsisbest)

if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_js.asp?action=js"
end if
elseif request.form("action")="deljs" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的特效id参数。"
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from script_body where 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 jscount = jscount - 1"
  conn.execute(sql)
  closedatabase
  response.redirect "admin_js.asp?action=js"
elseif request.form("action")="editjscat" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的特效分类id参数。"
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from script_type where id="&cint(request.form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
jscatname=trim(replace(request.form("jscat_name"),"'",""))
if jscatname="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须填写分类名称！"
else
  rs("type")=jscatname
end if
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_js.asp?action=jscat"
end if
elseif request.form("action")="deljscat" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的特效分类id参数。"
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from script_type where 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_js.asp?action=jscat"
end if

end if

call adminjs_body()
end if
%>