⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 laos_save.asp

📁 二月小说 看小说必备工具 默认的管理路径为:admin/index.asp 用户名：admin 密码：admin
💻 ASP
字号:
🔍 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><!--#include file="laos_checkuser.asp"--><!--#include file="laos_md5.asp"--><!--#include file="../inc/nocode.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>保存</title>
<link href="../images/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
'======================================================================
'=              Copyright (c) 2008-2010 ,老四(QQ7280091)开发          =
'=                      All rights reserved.                          =
'=--------------------------------------------------------------------=
'=                    　　　　 二月小说 v_1.0   　                    =
'=                    　　　　                  　                    =
'=                     演示网址：www.2yue.com.cn                      =
'=                     官方网址：vip.2yue.com.cn =
'=                     官方QQ群：7500701                              =
'=--------------------------------------------------------------------=
'=                     用   途：小说、小说连载                        =
'=                     最后更新：2008-11-1                            =
'======================================================================
Response.Buffer=True 
Server.ScriptTimeOut=90 
Session.CodePage=65001
dim act
act=request.querystring("act")
select case act
case "system"
if request("webname")="" then
response.write "<script language=javascript>alert('网站名称不能为空');location='laos_system.asp';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_system"
res.open sql,conn,1,3
res("webname")=trim(request.form("webname"))
res("webname2")=trim(request.form("webname2"))
res("description")=trim(request.form("description"))
res("keywords")=trim(request.form("keywords"))
res("url")=trim(request.form("url"))
res("qq")=trim(request.form("qq"))
res("mail")=trim(request.form("mail"))
res("beian")=trim(request.form("beian"))
res("link")=trim(request.form("link"))
res("foot")=trim(request.form("foot"))
res("foot2")=trim(request.form("foot2"))
res("wztj")=request("wztj")
res("adminby")=request("adminby")
res.update
res.close
conn.close
response.write "<script language=javascript>alert('修改成功了！');location='laos_system.asp';</script>"
response.End
case "pass"
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_admin where id=1"
res.open sql,conn,1,3
res("name")=trim(request.form("name"))
if request("pass")<>"" then
res("pass")=md5(trim(request.form("pass")))
end if
res.update
res.close
set res=nothing
response.write "<script>alert('修改成功了！');location='laos_pass.asp';</script>"
response.End
case "addclass"
if request("name")="" then
response.write "<script language=javascript>alert('分类名称不能为空！');location='laos_class.asp';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_class"
res.open sql,conn,1,3
res.addnew
res("name")=trim(request.form("name"))
res("ename")=trim(request.form("ename"))
if request("px")="" then
res("px")=0
else
res("px")=trim(request.form("px"))
end if
res.update
res.close
conn.close
response.write "<script>alert('添加成功');location='laos_class.asp';</script>"
response.End
case "Delclass"
set res=server.CreateObject("adodb.recordset")
sql="delete * from laos_class where lbid="&request("lbid")&""
conn.execute sql
response.write "<script>alert('删除成功啦！');this.location.href='laos_class.asp';</SCRIPT>"
response.End
conn.close
set conn=nothing
case "editclass"
if request("name")="" then
response.write "<script language=javascript>alert('分类名称不能为空！');location='laos_class.asp';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_class where lbid="&request("lbid")&""
res.open sql,conn,1,3
res("name")=trim(request.form("name"))
res("ename")=trim(request.form("ename"))
if request("px")="" then
res("px")=0
else
res("px")=trim(request.form("px"))
end if
res.update
res.close
conn.close
response.write "<script language=javascript>alert('编辑分类成功了!');location='laos_class.asp';</script>"
response.End


case "t"
if request("act")="t" then
   sql="update laos_shu set tj=1 where bid="&request("bid")
   conn.execute sql
   response.redirect "laos_shu.asp?page="&page&""
   response.end
end if
case "tj"
id=request("id")
page=request("page")
if request("act")="tj" then
   sql="update laos_shu set tj=2 where bid="&request("bid")
   conn.execute sql
   response.redirect "laos_shu.asp?page="&page&""
   response.end
end if
case "ttj"
id=request("id")
page=request("page")
if request("act")="ttj" then
   sql="update laos_shu set tj=3 where bid="&request("bid")
   conn.execute sql
   response.redirect "laos_shu.asp?page="&page&""
   response.end
end if
case "tttj"
id=request("id")
page=request("page")
if request("act")="tttj" then
   sql="update laos_shu set tj=0 where bid="&request("bid")
   conn.execute sql
   response.redirect "laos_shu.asp?page="&page&""
   response.end
end if
case "del"
id =request("id")
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_jie where bid="&id&" order by id desc"
res.open sql,conn,1,1
do while not res.eof
conn.execute "delete * from laos_jie where id ="&res("id")&""
res.movenext
loop
conn.execute "delete from laos_shu where bid in ("&id&")"
response.write "<script>alert('删除成功了');this.location.href='laos_shu.asp?page="&request("page")&"';</SCRIPT>"
response.end
case "add"
if request("lbid")="" then
response.write "<script language=javascript>alert('小说分类不能为空');location='laos_addshu.asp?name="&request("name")&"&ename="&request("ename")&"&bz="&request("bz")&"&zz="&request("zz")&"';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_shu where name='"&trim(request.form("name"))&"'"
set res=conn.execute (sql)
if not res.eof then
response.write "<script language=javascript>alert('本小说已存在');location='laos_addshu.asp?name="&request("name")&"&ename="&request("ename")&"&bz="&request("bz")&"&zz="&request("zz")&"';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_shu"
res.open sql,conn,1,3
res.addnew
res("name")=trim(request.form("name"))
res("bz")=trim(request.form("bz"))
res("lbid")=trim(request.form("lbid"))
res("zz")=trim(request.form("zz"))
if request("zt")<>"" then
res("zt")=trim(request.form("zt"))
end if
if request("sj")<>"" then
res("sj")=trim(request.form("sj"))
else
res("sj")=0
end if
res("pic")=trim(request("pic"))
res("qy")=ncode(request("content"))
if request("click")<>"" then
res("click")=request("click")
end if
if request("tj")<>"" then
res("tj")=request("tj")
end if
res.update
res.close
response.write "<script language=javascript>alert('添加成功了!');location='laos_shu.asp';</script>"
response.End
case "edit"
if request("lbid")="" then
response.write "<script language=javascript>alert('分类名称不能为空！');location='laos_editshu.asp?bid="&request("bid")&"';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_shu where bid="&request("bid")&""
res.open sql,conn,1,3
res("name")=trim(request.form("name"))
res("ename")=trim(request.form("ename"))
res("bz")=trim(request.form("bz"))
res("lbid")=trim(request.form("lbid"))
res("zz")=trim(request.form("zz"))
if request("zt")<>"" then
res("zt")=trim(request.form("zt"))
end if
res("pic")=trim(request("pic"))
if request("sj")<>"" then
res("sj")=trim(request.form("sj"))
else
res("sj")=0
end if
res("qy")=ncode(request("content"))
if request("click")<>"" then
res("click")=request("click")
else
res("click")=0
end if
if request("tj")<>"" then
res("tj")=request("tj")
else
res("tj")=0
end if
res.update
res.close
conn.close
response.write "<script>alert('成功啦！');this.location.href='laos_shu.asp?page="&request("page")&"';</SCRIPT>"
response.End
case "addjie"
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_jie"
res.open sql,conn,1,3
res.addnew
res("bid")=request("bid")
res("jid")=cint(request("jid"))
res("shujie")=trim(request.form("shujie"))
if request("sjname")<>"" then
res("sjname")=trim(request.form("sjname"))
end if
res.update
res.close
Laos_Folder("../laos_txt/"&request("bid"))
call Laos_SaveFile("../laos_txt/"&request("bid")&"/"&request("shujie")&".txt",ncode(request("content")))
set rs=server.CreateObject("adodb.recordset")
sql="select xgdate from laos_shu where bid="&request("bid")&""
rs.open sql,conn,1,3
rs("xgdate")=now()
rs.update
rs.close
response.write "<script language=javascript>alert('添加成功了!');location='laos_jie.asp?bid="&request("bid")&"&jid="&request("jid")&"';</script>"
response.End
case "deljie"
id =request("id")
set res=server.CreateObject("adodb.recordset")
conn.execute "delete from laos_jie where id in ("&id&")"
response.write "<script>alert('删除成功了');this.location.href='laos_jie.asp?bid="&request("bid")&"&jid="&request("jid")&"&page="&request("page")&"';</SCRIPT>"
response.end
case "editjie"
set res=server.CreateObject("adodb.recordset")
sql="select shujie,sjname,content from laos_jie where id="&request("id")&""
res.open sql,conn,1,3
res("shujie")=trim(request.form("shujie"))
if request("sjname")<>"" then
res("sjname")=trim(request.form("sjname"))
end if
res.update
res.close
Laos_Folder("../laos_txt/"&request("bid"))
call Laos_SaveFile("../laos_txt/"&request("bid")&"/"&request("shujie")&".txt",request("content"))
response.write "<script language=javascript>alert('成功了！');location='laos_jie.asp?bid="&cint(request("bid"))&"&jid="&request("jid")&"&page="&cint(request("page"))&"';</script>"
response.End
case "nosh"
id =request("id")
page=request("page")
if request("act")="nosh" then
sql="update laos_ly set sh=1 where id="&request("id")
conn.execute sql
end if
response.redirect "laos_ly.asp?page="&page&""
response.end
case "sh"
id =request("id")
page=request("page")
if request("act")="sh" then
sql="update laos_ly set sh=0 where id="&request("id")
conn.execute sql
end if
response.redirect "laos_ly.asp?page="&page&""
response.end
case "hfly"
id=request("id")
page=request("page")
if request("hf")="" then
response.write "<script language=javascript>alert('回复不能为空！');location='laos_hfly.asp?id="&id&"';</script>"
response.End
end if
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_ly where id="&id
res.open sql,conn,1,3
res("sh")=trim(request.form("sh"))
res("hf")=trim(request.form("hf"))
res.update
res.close
set res=nothing
response.write "<script>alert('回复成功啦!');location='laos_ly.asp?page="&page&"';</script>"
response.End
case "delly"
id =request("id")
set res=server.CreateObject("adodb.recordset")
conn.execute "delete from laos_ly where id in ("&id&")"
response.write "<script>alert('删除成功了');this.location.href='laos_ly.asp?page="&request("page")&"';</SCRIPT>"
response.end
case "addshujuan"
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_shujuan"
res.open sql,conn,1,3
res.addnew
res("bid")=cint(request("bid"))
res("sjpx")=cint(request("sjpx"))
res("shujuan")=trim(request.form("shujuan"))
res.update
res.close
set res=nothing
response.write "<script>alert('添加成功了');this.location.href='laos_shujuan.asp?bid="&cint(request("bid"))&"';</SCRIPT>"
response.End
case "editshujuan"
set res=server.CreateObject("adodb.recordset")
sql="select sjpx,shujuan from laos_shujuan where jid="&request("jid")&""
res.open sql,conn,1,3
res("sjpx")=cint(trim(request.form("sjpx")))
res("shujuan")=trim(request.form("shujuan"))
res.update
res.close
set res=nothing
response.write "<script>alert('编辑成功了');this.location.href='laos_shujuan.asp?bid="&cint(request("bid"))&"&page="&cint(request("page"))&"';</SCRIPT>"
response.End
case "delshujuan"
bid=request("bid")
jid=request("jid")
set res=server.CreateObject("adodb.recordset")
sql="select * from laos_jie where bid="&bid&" and jid="&jid&" order by id desc"
res.open sql,conn,1,1
do while not res.eof
conn.execute "delete * from laos_jie where id ="&res("id")&""
res.movenext
loop
conn.execute "delete * from laos_shujuan where jid in ("&jid&")"
response.write "<script>alert('成功了');this.location.href='laos_shujuan.asp?bid="&bid&"';</SCRIPT>"
response.End
end select
conn.close
set coon=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -