adminsave.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 71 行

ASP
71
字号
<!--#include file="conn.asp"-->
<!-- #include file="char.asp" -->
<% 	if request("action")="add" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from article" 
	rs.open sql,conn,1,3
	rs.addnew
	rs("title")=request("title")
	rs("content")=request("content")
	rs("Nclassid")=request("Nclassid")
	rs("classid")=request("classid")
        rs("ding")=request("ding")
        rs("articleon")=request("articleon")
	rs("hits")=0
	rs("writer")=request("writer")
	rs("dateandtime")=now
	rs.update
        rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "zjok.asp"
        end if
   if request("action")="edit" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from article where articleid="&request("id")
	rs.open sql,conn,1,3
	rs("title")=request("title")
	rs("content")=request("content")
        rs("ding")=request("ding")
        rs("articleon")=request("articleon")
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "ejok.asp"
        end if
if request("action")="xuxe" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from article where articleid="&request("id")
	rs.open sql,conn,1,3
	rs("content")=rs("content")+request("ccontent")
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "bjok.asp"
        end if
if request("action")="yidong" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from article where articleid="&request("yid")
	rs.open sql,conn,1,3
	rs("classid")=request("cid")
	rs("nclassid")=request("nid")
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
        response.redirect "y_en.asp"
        end if
   if request("types")="del" then
        sql="delete from article where articleid="&request("id")
        sql2="delete * from sheet where zuti="&request("id")
        conn.execute sql
        conn.execute sql2
        response.redirect "sccg.asp"
   end if
%>

⌨️ 快捷键说明

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