admin_skin.asp
来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 684 行 · 第 1/2 页
ASP
684 行
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
'权限限制^^^^^^^^^^^^^^^^^^^^
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
%>
<html>
<head>
<title>系统模版管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../css/style.css">
</head>
<SCRIPT language=javascript>
function unselectall()
{
if(document.form.chkAll.checked){
document.form.chkAll.checked = document.form.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</SCRIPT>
<%
dim action
Action=replace_text(request("Action"))
select case Action
case "outuser"
call outuser()
case "outuserok"
call outuserok()
case "inuser1"
call inuser1()
case "inuser2"
call inuser2()
case "inuserok"
call inuserok()
case "outsys"
call outsys()
case "outsysok"
call outsysok()
case "insys1"
call insys1()
case "insys2"
call insys2()
case "insysok"
call insysok()
end select
sub outuserok()
dim mdbname,rs,connskin,fso
dim skinid,i,rsout
mdbname=trim(request("mdbname"))
set fso=YXFSO
if fso.FileExists(Server.MapPath(mdbname))=False then
databasever="2000"
databasepath=server.mappath(mdbname)
Createdfile databasepath,databasever '创建数据库
mdbname1=Trim(Request("mdbname"))
Mbsql="Create table yixiang_userskin(id counter primary key,userskinname varchar(50),skinmain text,skinshowlog text,skinauthor varchar(50),skinauthorurl varchar(50),isdefault int,skinpic varchar(50),ispass int,SkinSupply text,SkinPtHall text,SkinPurInfo text,SkinCompanyInfo text,SkinCusApp text,SkinUnInfo text,SkinEmpInfo text,SkinCusMsg text,SkinCantact text)"
Call Createtable(mdbname1,Mbsql)
end if
Set connskin = Server.CreateObject("ADODB.Connection")
connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
set rsout=server.createobject("adodb.recordset")
rsout.open "select * from yixiang_userskin",connskin,1,3
if Trim(request("id"))="" then
call HOPE_err("操作错误","ID的值不能为空!","返回","javascript:history.go(-1)")
Response.end
end if
connskin.execute("Delete From yixiang_userskin")
skinid=split(request("id"))
for i=0 to ubound(skinid)
set rs=conn.execute("select * from Yixiang_userskin where id="&clng(skinid(i)))
rsout.addnew
rsout("userskinname")=rs("userskinname")
rsout("skinmain")=rs("skinmain")
rsout("skinauthor")=rs("skinauthor")
rsout("skinauthorurl")=rs("skinauthorurl")
rsout("isdefault")=rs("isdefault")
rsout("skinpic")=rs("skinpic")
rsout("ispass")=rs("ispass")
rsout("SkinSupply")=rs("SkinSupply")
rsout("SkinPtHall")=rs("SkinPtHall")
rsout("SkinPurInfo")=rs("SkinPurInfo")
rsout("SkinCompanyInfo")=rs("SkinCompanyInfo")
rsout("SkinCusApp")=rs("SkinCusApp")
rsout("SkinUnInfo")=rs("SkinUnInfo")
rsout("SkinEmpInfo")=rs("SkinEmpInfo")
rsout("SkinCusMsg")=rs("SkinCusMsg")
rsout("SkinCantact")=rs("SkinCantact")
rsout.update
next
rsout.close
set rsout=nothing
set rs=nothing
response.Write("<script language=javascript>alert('导出成功!');history.back();</script>")
response.end
end sub
sub inuserok()
dim mdbname,rs,connskin
dim skinid,i,rsin
mdbname=trim(request("mdbname"))
Set connskin = Server.CreateObject("ADODB.Connection")
connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
set rsin=server.createobject("adodb.recordset")
if not IsObject(conn) then link_database
rsin.open "select top 1 * from Yixiang_userskin",conn,2,3
skinid=split(request("id"))
for i=0 to ubound(skinid)
set rs=connskin.execute("select * from Yixiang_userskin where id="&clng(skinid(i)))
rsin.addnew
rsin("userskinname")=rs("userskinname")
rsin("skinmain")=rs("skinmain")
rsin("skinauthor")=rs("skinauthor")
rsin("skinauthorurl")=rs("skinauthorurl")
rsin("isdefault")=rs("isdefault")
rsin("skinpic")=rs("skinpic")
rsin("ispass")=rs("ispass")
rsin("SkinSupply")=rs("SkinSupply")
rsin("SkinPtHall")=rs("SkinPtHall")
rsin("SkinPurInfo")=rs("SkinPurInfo")
rsin("SkinCompanyInfo")=rs("SkinCompanyInfo")
rsin("SkinCusApp")=rs("SkinCusApp")
rsin("SkinUnInfo")=rs("SkinUnInfo")
rsin("SkinEmpInfo")=rs("SkinEmpInfo")
rsin("SkinCusMsg")=rs("SkinCusMsg")
rsin("SkinCantact")=rs("SkinCantact")
rsin.update
next
rsin.close
set rsin=nothing
set rs=nothing
response.Write("<script language=javascript>alert('导入成功!');history.back();</script>")
response.end
end sub
'=================================创建数据库Begin=====================================================
Function Createdfile(FilePath,Ver)
Dim Ca,dbver
select case ver
case "97"
dbver = "3.51"
case "2000"
dbver = "4.0"
end select
if dbver <> "" then
Set Ca = Server.CreateObject("ADOX.Catalog")
call Ca.Create("Provider=Microsoft.Jet.OLEDB." & dbver & ";Data Source=" & filepath)
end if
End Function
'=================================创建数据库End=====================================================
'=================================创建表Begin=====================================================
Function Createtable(mdbname,Mbsql)
Set connskin = Server.CreateObject("ADODB.Connection")
connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
connskin.execute(Mbsql)
End Function
'=================================创建表End=====================================================
sub outsysok()
skinid=Trim(Request("ID"))
IDSUm=split(skinid,",")
if skinid="" then
call HOPE_err("操作错误","ID的值不能为空!","返回","javascript:history.go(-1)")
Response.end
end if
dim mdbname,mdbname1,databasename,databasepath,fso
mdbname1=HOPE_InstallDir&"Databackup/Sys_skin"
mdbname=Trim(Request("mdbname"))
databasepath=Server.MapPath(Trim(Request("mdbname")))
databasever="2000"
set fsoFile=YXFSO
if (fsoFile.FileExists(Server.MapPath(Trim(Request("mdbname"))))) Then
Set connskin = Server.CreateObject("ADODB.Connection")
connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
connskin.execute("Delete From SyS_skins")
Set rsSkin=server.createobject("adodb.Recordset")
SqlSkin="select * from Sys_skins"
rsSkin.open SqlSkin,connskin,1,3
if rsSkin.eof then
for i=0 to ubound(IDSUm)
Set rsSkin1=server.createobject("adodb.recordset")
SqlSkin1="select * from yixiang_worldec_Temp Where id="&Cint(IDSUm(i))
rsSkin1.open SqlSkin1,Conn,1,1
rsSkin.addnew
rsSkin("home_index")=rsSkin1("home_index")
rsSkin("tradeinfo_index")=rsSkin1("tradeinfo_index")
rsSkin("seller_index")=rsSkin1("seller_index")
rsSkin("corporation_index")=rsSkin1("corporation_index")
rsSkin("productshow_index")=rsSkin1("productshow_index")
rsSkin("vipinfo_index")=rsSkin1("vipinfo_index")
rsSkin("expo_index")=rsSkin1("expo_index")
rsSkin("info_index")=rsSkin1("info_index")
rsSkin("tradeinfo_sort")=rsSkin1("tradeinfo_sort")
rsSkin("tradeinfo_type")=rsSkin1("tradeinfo_type")
rsSkin("tradeinfo_type2")=rsSkin1("tradeinfo_type2")
rsSkin("tradeinfo_detail")=rsSkin1("tradeinfo_detail")
rsSkin("seller_sort")=rsSkin1("seller_sort")
rsSkin("seller_type")=rsSkin1("seller_type")
rsSkin("seller_type2")=rsSkin1("seller_type2")
rsSkin("seller_detail")=rsSkin1("seller_detail")
rsSkin("corporation_sort")=rsSkin1("corporation_sort")
rsSkin("corporation_type")=rsSkin1("corporation_type")
rsSkin("corporation_type2")=rsSkin1("corporation_type2")
rsSkin("corporation_detail")=rsSkin1("corporation_detail")
rsSkin("productshow_sort")=rsSkin1("productshow_sort")
rsSkin("productshow_type")=rsSkin1("productshow_type")
rsSkin("productshow_type2")=rsSkin1("productshow_type2")
rsSkin("productshow_detail")=rsSkin1("productshow_detail")
rsSkin("vipinfo_detail")=rsSkin1("vipinfo_detail")
rsSkin("help_index")=rsSkin1("help_index")
rsSkin("help_list")=rsSkin1("help_list")
rsSkin("help_detail")=rsSkin1("help_detail")
rsSkin("feedback_index")=rsSkin1("feedback_index")
rsSkin("expo_type")=rsSkin1("expo_type")
rsSkin("expo_detail")=rsSkin1("expo_detail")
rsSkin("expoinfo_type")=rsSkin1("expoinfo_type")
rsSkin("expoinfo_detail")=rsSkin1("expoinfo_detail")
rsSkin("info_list")=rsSkin1("info_list")
rsSkin("info_detail")=rsSkin1("info_detail")
rsSkin("yx_tempname")=rsSkin1("yx_tempname")
rsSkin("yx_check")=rsSkin1("yx_check")
rsSkin("yx_selected")=rsSkin1("yx_selected")
rsSkin("job_index")=rsSkin1("job_index")
rsSkin("yx_member")=rsSkin1("yx_member")
rsSkin.update()
rsSkin1.close
set rsSkin1=nothing
next
end if
rsSkin.close
set rsSkin=nothing
call HOPE_err("操作成功","导出系统模板成功!<br>位置:网站根目录下<span style='color:red'>"&HOPE_InstallDir&"databackup/SyS_skin.asp</span>文件","返回","admin_skin.asp?action=outsys")
Response.end
else
databasever="2000"
Createdfile databasepath,databasever '创建数据库
Createtable mdbname,"create table Sys_skins(id counter primary key,home_index text,tradeinfo_index text,seller_index text,corporation_index text,productshow_index text,vipinfo_index text,expo_index text,info_index text,tradeinfo_sort text,tradeinfo_type text,tradeinfo_type2 text,tradeinfo_detail text,seller_sort text,seller_type text,seller_type2 text,seller_detail text,corporation_sort text,corporation_type text,corporation_type2 text,corporation_detail text, productshow_sort text,productshow_type text,productshow_type2 text,productshow_detail text,vipinfo_detail text,help_index text,help_list text,help_detail text,feedback_index text,expo_type text,expo_detail text,expoinfo_type text,expoinfo_detail text,info_list text,info_detail text,yx_tempname varchar(50),yx_check varchar(50),yx_selected int,job_index text,yx_member text)" '创建表
Set connskin = Server.CreateObject("ADODB.Connection")
connskin.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(mdbname)
Set rsSkin=server.createobject("adodb.Recordset")
SqlSkin="select * from Sys_skins"
rsSkin.open SqlSkin,connskin,1,3
if rsSkin.eof then
for i=0 to ubound(IDSUm)
Set rsSkin1=server.createobject("adodb.recordset")
SqlSkin1="select * from yixiang_worldec_Temp Where id="&Cint(IDSUm(i))
rsSkin1.open SqlSkin1,Conn,1,1
rsSkin.addnew
rsSkin("home_index")=rsSkin1("home_index")
rsSkin("tradeinfo_index")=rsSkin1("tradeinfo_index")
rsSkin("seller_index")=rsSkin1("seller_index")
rsSkin("corporation_index")=rsSkin1("corporation_index")
rsSkin("productshow_index")=rsSkin1("productshow_index")
rsSkin("vipinfo_index")=rsSkin1("vipinfo_index")
rsSkin("expo_index")=rsSkin1("expo_index")
rsSkin("info_index")=rsSkin1("info_index")
rsSkin("tradeinfo_sort")=rsSkin1("tradeinfo_sort")
rsSkin("tradeinfo_type")=rsSkin1("tradeinfo_type")
rsSkin("tradeinfo_type2")=rsSkin1("tradeinfo_type2")
rsSkin("tradeinfo_detail")=rsSkin1("tradeinfo_detail")
rsSkin("seller_sort")=rsSkin1("seller_sort")
rsSkin("seller_type")=rsSkin1("seller_type")
rsSkin("seller_type2")=rsSkin1("seller_type2")
rsSkin("seller_detail")=rsSkin1("seller_detail")
rsSkin("corporation_sort")=rsSkin1("corporation_sort")
rsSkin("corporation_type")=rsSkin1("corporation_type")
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?