📄 admin_zhuanti.asp

📁 电子商城代码

💻 ASP

字号:

<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Utf-8">
<link href=css.css rel=STYLESHEET type=text/css>
</head>
<%
On Error Resume next
admintop()
BigClassName=Safereplace(trim(request("BigClassName")))
SmallClassName=Safereplace(trim(request("SmallClassName")))
Select Case Request("action")
	Case "add" : add()
	Case "savenews" : savenews()
	Case "newsmodi" : newsmodi()
	Case "modinews" : modinews()
	Case "del" : del()
	Case "addbigclass" : addbigclass()
	Case "addsmall" : addsmall()
	Case "modibig" : modibig()
	Case "bigmodi" : bigmodi()
	Case "modismall" : modismall()
	Case "smallmodi" : smallmodi()
        Case "delbig" : delbig()
        Case "delsmall" : delsmall()
        Case "sortlist" : sortlist()
	Case Else
		list()
	End Select
sub savenews
Dim admin_flag
admin_flag=",19,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
title=Safereplace(trim(request("title")))
BigClassName=Safereplace(trim(request("BigClassName")))
SmallClassName=Safereplace(trim(request("SmallClassName")))
Content = Replace(Request("Content"),"'","鈥

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -