📄 admin_loadskin.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Dim mdbname, sConn, i
Dim Action
Set Rs = Server.CreateObject("ADODB.Recordset")
Admin_header
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""5"" align=center width=""95%"" class=""tableBorder"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th><a href=? Class=showtitle>模版导出功能</a> | <a href=?action=load Class=showtitle>模版导入功能</a></th>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td Class=TableRow1>" & vbCrLf
Response.Write "注意<br>" & vbCrLf
Response.Write "１，确认模版数据库名正确；<br>" & vbCrLf
Response.Write "２，如模版数据库放在skin目录下，即填写："& Newasp.InstallDir &"skin/NC_Skin.mdb；<br>" & vbCrLf
Response.Write "３，模版数据库内备份的表名为NC_Template,请不要更改；<br>" & vbCrLf
Response.Write "４，模版数据包括ＣＳＳ设置，与及所有界面设置．" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><br>" & vbCrLf
'=====================================================================
' 网站名称：黑客世界
' 当前版本：NewCloud Site Management System Version 2.1
' 文件名称：admin_account.asp
' 更新日期：2008-05-01
' 官方网站：黑客世界【www.skycap.cn】QQ：19901451
'=====================================================================
' Copyright 2008-2010 skycap.cn- All Rights Reserved.
' skycap.cn is a trademark of skycap.cn
'=====================================================================
If Not ChkAdmin("TempLoad") Then
Server.Transfer ("showerr.asp")
Response.End
End If
mdbname = Newasp.CheckStr(Request("mdbname"))
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "del"
Call DelTemplate
Case "input"
Call InputSkin
Case "load"
Call loadTemplate
Case "loadskin"
Call LoadSkin
Case "skin"
Call SkinsTemplate
Case "rename"
Call rename
Case "savenm"
Call savenm
Case Else
Call showmain
End Select
If Founderr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
If IsObject(sConn) Then
sConn.Close
Set sConn = Nothing
End If
Sub showmain()
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>"
Response.Write "<tr>"
Response.Write " <th Colspan=3>模板导出</th>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write " <td width=""70%"" Class=TableTitle align=center>模板名称</td>"
Response.Write " <td width=""20%"" Class=TableTitle align=center>操 作</td>"
Response.Write " <td width=""10%"" Class=TableTitle align=center>选 择</td>"
Response.Write "<form name=selform method=post action=?action=input>"
Response.Write "</tr>"
SQL = "SELECT TemplateID,skinid,page_name FROM NC_Template WHERE pageid = 0"
Set Rs = Newasp.Execute(SQL)
Do While Not Rs.EOF
Response.Write "<tr>"
Response.Write " <td class=tablerow1>"
Response.Write Rs("page_name")
Response.Write " </td>"
Response.Write " <td class=tablerow1 align=center><a href=admin_template.asp?action=manage&skinid="
Response.Write Rs("skinid")
Response.Write ">编 辑</a> | "
Response.Write "<a href=?action=rename&act=loadskin&skid="
Response.Write Rs("TemplateID")
Response.Write "&mdbname="
Response.Write mdbname
Response.Write ">改 名</a></td>"
Response.Write " <td class=tablerow1 align=center><input type=radio name=skinid value=""" & Rs("skinid") & """></td>"
Response.Write "</tr>"
Rs.movenext
Loop
Set Rs = Nothing
Response.Write "<tr>"
Response.Write " <td Colspan=3 Class=TableRow1 align=center>模板数据库路径：<input type=text name=mdbname size=40 value="""
Response.Write Newasp.InstallDir
Response.Write "skin/NC_Skins.Mdb"">"
Response.Write " <input type=submit class=Button value=""导出模板"" onclick=""{if(confirm('您确定要导出该模板吗?')){this.document.selform.submit();return true;}return false;}""></td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "</table>"
End Sub
Sub LoadTemplate()
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>"
Response.Write "<tr>"
Response.Write " <th Colspan=3>模板导入</th>"
Response.Write "</tr>"
Response.Write "<form name=myform method=post action=?action=skin>"
Response.Write "<tr>"
Response.Write " <td Colspan=3 Class=TableRow1 align=center>模板数据库路径：<input type=text name=mdbname size=40 value="""
Response.Write Newasp.InstallDir
Response.Write "skin/NC_Skins.Mdb"">"
Response.Write " <input class=Button type=submit name=act value=""导入模板""> "
Response.Write " <input class=Button type=submit name=act value=""压缩数据库""> "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "</table>"
End Sub
Sub SkinsTemplate()
If Trim(Request.Form("mdbname")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 请选择模板数据库！</li>"
Exit Sub
End If
If Trim(Request.Form("act")) = "压缩数据库" Then
If CompressMDB(mdbname) Then OutHintScript("恭喜您 ^_^ 模板数据库压缩成功！")
Exit Sub
End If
SkinConnection(mdbname)
If FoundErr Then Exit Sub
Response.Write "<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>"
Response.Write "<tr>"
Response.Write " <th Colspan=3>模板导入</th>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write " <td width=""70%"" Class=TableTitle align=center>模板名称</td>"
Response.Write " <td width=""20%"" Class=TableTitle align=center>操 作</td>"
Response.Write " <td width=""10%"" Class=TableTitle align=center>选 择</td>"
Response.Write "<form name=myform method=post action=?action=loadskin>"
Response.Write "</tr>"
SQL = "SELECT TemplateID,skinid,page_name FROM NC_Template WHERE pageid = 0"
Set Rs = sConn.Execute(SQL)
Do While Not Rs.EOF
Response.Write "<tr>"
Response.Write " <td class=tablerow1>"
Response.Write Rs("page_name")
Response.Write " </td>"
Response.Write " <td class=tablerow1 align=center><a href=?action=rename&act=loadskin&skid="
Response.Write Rs("TemplateID")
Response.Write "&mdbname="
Response.Write mdbname
Response.Write ">改 名</a> | "
Response.Write "<a href=?action=del&skinid="
Response.Write Rs("skinid")
Response.Write "&mdbname="
Response.Write mdbname
Response.Write " onclick=""{if(confirm('模板删除后不能恢复，您确定要执行该操作吗?')){return true;}return false;}"">删 除</a></td>"
Response.Write " <td class=tablerow1 align=center><input type=radio name=skinid value=""" & Rs("skinid") & """></td>"
Response.Write "</tr>"
Rs.movenext
Loop
Set Rs = Nothing
Response.Write "<tr>"
Response.Write " <td Colspan=3 Class=TableRow2 align=center>模板数据库路径：<input type=text name=mdbname size=40 value="""
Response.Write mdbname
Response.Write """>"
Response.Write " <input class=Button type=submit name=B1 value=""导入模板"" onclick=""{if(confirm('您确定要导入该模板吗?')){this.document.myform.submit();return true;}return false;}"">"
Response.Write " <input type=""checkbox"" name=""bestrow"" value=""yes"" title=""选择后将覆盖您现在的默认模板,如果确定此模板无误你可以选择覆盖默认模板""> <font color=""blue"">覆盖默认模板</font></td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "</table>"
End Sub
Sub SkinConnection(mdbname)
On Error Resume Next
Set sConn = CreateObject("ADODB.Connection")
sConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
If Err.Number = "-2147467259" Then
ErrMsg = ErrMsg + "<li>" & mdbname & "数据库不存在。"
Founderr = True
Exit Sub
End If
End Sub
Sub LoadSkin()
If Trim(Request.Form("skinid")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 请选择你要导入的模板！</li>"
Exit Sub
End If
If Trim(Request.Form("mdbname")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 请选择模板数据库！</li>"
Exit Sub
End If
SkinConnection(mdbname)
If FoundErr Then Exit Sub
Dim SkinRs,newskinid,TemplateDir
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -