admin_edit.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 493 行 · 第 1/2 页
ASP
493 行
<%@ codepage ="936" %>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
'权限限制^^^^^^^^^^^^^^^^^^^^
dim ishavegant
ishavegant=false
in_str=split(session("masterflag"),",")
for each ins in in_str
if trim(ins)="101" then
ishavegant=true
end if
next
if ishavegant=false then
response.redirect "../err.asp"
response.end
end if
if replace_text(request("id"))="" then
Response.write("<script >alert('对不起！参数传递错误！');history.back(-1);</script>")
response.End()
end if
id=replace_text(request("id"))
action=request("action")
skinorder=request("skinorder")
if action="save" then
sql="select * from Yixiang_userskin where id="&id&""
set rs=server.Createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs("userskinname")=Hope_htmlAll_urli(request("userskinname"),HOPE_InstallDir)
rs("skinpic")=Hope_htmlAll_urli(request("skinpic"),HOPE_InstallDir)
if skinorder=0 or skinorder="" then
rs("skinmain")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=1 then
rs("skinuserlog")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=2 then
rs("SkinSupply")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=3 then
rs("SkinPtHall")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=4 then
rs("SkinPurInfo")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=5 then
rs("SkinCompanyInfo")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=6 then
rs("SkinCusApp")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=7 then
rs("SkinUnInfo")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=8 then
rs("SkinEmpInfo")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=9 then
rs("SkinCusMsg")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
elseif skinorder=10 then
rs("SkinCantact")=Hope_htmlAll_urli(request("content"),HOPE_InstallDir)
end if
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('修改成功');history.back();</script>"
end if
end if
'********************替换后台编辑器中的标签安装路径函数***** start *****************
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Yixiang_out(str,str1)
result=ReplaceTest( "href=([\042\']{0,}(\s+)?)#HOPE_InstallDir#",str,"href=$1"&str1)
result= ReplaceTest( "src=([\042\']{0,}(\s+)?)#HOPE_InstallDir#",result,"src=$1"&str1)
result= ReplaceTest( "background=([\042\']{0,}(\s+)?)#HOPE_InstallDir#",result,"background=$1"&str1)
yixiang_out=result
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Function Yixiang_in(str,str1)
result=ReplaceTest( "href=([\042\']{0,}(\s+)?)"&str1,str,"href=$1#HOPE_InstallDir#")
result=ReplaceTest( "src=([\042\']{0,}(\s+)?)"&str1,result,"src=$1#HOPE_InstallDir#")
result=ReplaceTest( "background=([\042\']{0,}(\s+)?)"&str1,result,"background=$1#HOPE_InstallDir#")
yixiang_in=result
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'替换匹配函数
Function ReplaceTest(patrn,str,replStr)
Dim regEx, str1 ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = false ' 设置是否区分大小写。
ReplaceTest = regEx.Replace(str, replStr) ' 作替换。
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'匹配内容函数
Function RegExpTest_url(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = False ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历匹配集合。
On Error Resume Next
RetStr = RetStr & Match.Value&"|"
Next
RegExpTest_url = RetStr
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^ 查出 ^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^
'1.替换href=后的#HOPE_InstallDir#
Function Hope_htmlAll_href(str,str1)
strInfo=RegExpTest_url("href=([\042\']{0,}(\s+)?)#HOPE_InstallDir#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)
str=yixiang_out( str,str1)
Next
End If
Hope_htmlAll_href=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'2.替换src=后的#HOPE_InstallDir#
Function Hope_htmlAll_src(str,str1)
strInfo=RegExpTest_url("src=([\042\']{0,}(\s+)?)#HOPE_InstallDir#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)
str=yixiang_out( str,str1)
Next
End If
Hope_htmlAll_src=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'3.替换background=后的#HOPE_InstallDir#
Function Hope_htmlAll_bg(str,str1)
strInfo=RegExpTest_url("background=([\042\']{0,}(\s+)?)#HOPE_InstallDir#", str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)
str=yixiang_out( str,str1)
Next
End If
Hope_htmlAll_bg=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'对查出来的模板中的#HOPE_InstallDir#进行安装路径的替换
Function Hope_htmlAll_url(str,str1)
result=Hope_htmlAll_href(str,str1) '替换href=后的
result=Hope_htmlAll_src(result,str1) '替换src=后的
result=Hope_htmlAll_bg(result,str1) '替换background=后的
Hope_htmlAll_url=result
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^ 查出 ^^^ end ^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'^^^^^^^^^^^^^^^^^^^^^^^^^^^ 存入 ^^^ start ^^^^^^^^^^^^^^^^^^^^^^^^^^^
'1.替换href=后的安装路径为#HOPE_InstallDir#
Function Hope_htmlAll_hrefi(str,str1)
strInfo=RegExpTest_url("href=([\042\']{0,}(\s+)?)"&str1, str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)
str=Yixiang_in( str,str1)
Next
End If
Hope_htmlAll_hrefi=str
End Function
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
'2.替换src=后的安装路径为#HOPE_InstallDir#
Function Hope_htmlAll_srci(str,str1)
strInfo=RegExpTest_url("src=([\042\']{0,}(\s+)?)"&str1, str) '调用函数(RegExpTest)匹配出所有str变量中的标签
If strInfo<>"" then
arrInfo=Split(strInfo,"|")
For i=0 To ubound(arrInfo)
str=Yixiang_in( str,str1)
Next
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?