📄 html_list_save.asp

📁 很好的企业网站管理系统!可以适应各种不同的小型企业!

💻 ASP

字号:

<%@ LANGUAGE = VBScript.Encode %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title>晓宇听幽网站内容管理系统</title>
</head>
<body>
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if

if request("xoYuStudioID")="" then
response.write("<script>alert('错误:拜托~ 先选个文章再确定好不好!');history.go(-1)</script>")
response.end
elseif request("xoYuStudioDo")="生成" then
xoYuStudioID=replace(request("xoYuStudioID")," ","")
response.redirect "makehtmlall.asp?type=xoYuStudioID&xoYuStudioID="&xoYuStudioID&""
response.end
elseif request("xoYuStudioDo")="移动" then
xoYuStudioID=replace(request("xoYuStudioID")," ","")
response.redirect "move.asp?xoYuStudioMoveType=id&xoYuStudioID="&xoYuStudioID&""
response.end
end if
%>
<!--#include file="check.asp"-->
<!--#include file="mdb_path_info.asp"-->
<%
if request("xoYuStudioDo")="删除" then
conn.execute("delete from info where id in("&request("xoYuStudioID")&")")
conn.close
set conn=nothing
response.redirect "Html_Listlb.asp?id="&request("id")&"&page="&request("page")&"&k="&request("k")&""
response.end
end if
%>
</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -