admin_news.asp

来自「电子商城代码」· ASP 代码 · 共 43 行

<!--#include file="conn.asp"-->
<%
admintop()
Select Case Request("action")
	Case "addnews" : addnews()
	Case "addsort" : addsort()
	Case "delsort" : delsort()
	Case "modisort" : modisort()
	Case "newsadd" : newsadd()
	Case "sortlist" : sortlist()
	Case "sortdel" : sortdel()
	Case "sortmodi" : sortmodi()
 	Case "modisort" : modisort()
	Case "modinews" : modinews()
	Case "delnews" : delnews()
	Case "newsmodi" : newsmodi()
	Case Else
		newslist()
	End Select
set rs=server.createobject("adodb.recordset")

Sub     addnews
 
        admin_flag=",37,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	Else
	
	    syxs=request("syxs")
	    If syxs="1" Then
	        syxs=1
	    Else
	        syxs=0
	    End If 
		If Safereplace(trim(request("subject")))="" Then 
		         response.write"<SCRIPT language=JavaScript>alert('璇疯緭鍏ユ爣棰橈紒');javascript:history.go(-1)</SCRIPT>"
                 response.End
        End If 
        set rs=server.CreateObject("adodb.recordset")
        rs.open "select * from [56770_news]", conn, 1, 3
        rs.addnew
        rs("subject")=Safereplace(trim(request("subject")))
        rs("message")=Replace(request("message"),"'","鈥