admin_loadskin.asp

来自「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 564 行 · 第 1/2 页
ASP
564 行
<!--#include file="setup.asp"-->
<%
Dim skid, sName, act, mdbname, StyleConn, i
Set Rs = Server.CreateObject("ADODB.Recordset")
NC_Admin.AdminChk = "03"
NC_Admin.Check
Newasp.admin_header
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "function CheckAll(form) {" & vbCrLf
Response.Write " for (var i=0;i<form.elements.length;i++) {" & vbCrLf
Response.Write " var e = form.elements[i];" & vbCrLf
Response.Write " if (e.name != 'chkall'){" & vbCrLf
Response.Write Chr(9) & "e.checked = form.chkall.checked;" & vbCrLf
Response.Write Chr(9) & "}" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " function MyConfirm()" & vbCrLf
Response.Write "{" & vbCrLf
Response.Write "if (confirm(""您确定要执行此操作吗！""))" & vbCrLf
Response.Write Chr(9) & "return true;" & vbCrLf
Response.Write "else" & vbCrLf
Response.Write Chr(9) & "return false;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "//-->"
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""5"" align=center width=""95%"" class=""tableBorder"">" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th colspan=""3"" align=""center"" ID=""TableTitleLink""><a href=? class=TableTitleLink>模版导出功能</a> | <a href=?action=load class=TableTitleLink>模版导入功能</a></th>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=""forumrow"">" & vbCrLf
Response.Write "注意<br>" & vbCrLf
Response.Write "１，确认模版数据库名正确；<br>" & vbCrLf
Response.Write "２，如模版数据库放在skin目录下，即填写："& Newasp.SetupDir &"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 movie System Version 1.0.0
'*  File: admin_loadskin.asp
'*  Date: 2004-4-20
'*****************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'*****************************************************************
If Request("action") = "inputskin" Then
	Call inputskin
ElseIf Request("action") = "loadskin" Then
	Call loadskin
ElseIf Request("action") = "load" Then
	Call Load
ElseIf Request("action") = "rename" Then
	Call rename
ElseIf Request("action") = "savenm" Then
	Call savenm
ElseIf Request("action") = "CreatMdb" Then
	Call CreateStyleMdb
ElseIf Request("action") = "DelFields" Then
	Call DelFields
Else
	Call Main
End If
If ErrMsg <> "" Then NC_Admin.Error_Msg (ErrMsg)
If Founderr = True Then
	Call NC_Admin.Error_Msg(ErrMsg)
End If
Newasp.admin_footer
If IsObject(StyleConn) Then
	StyleConn.Close
	Set StyleConn = Nothing
End If

Private Sub Main()
	If Request("action") = "loadthis" Then
		sName = "导入"
		act = "loadskin"
		mdbname = Newasp.checkStr(Trim(Request.Form("skinmdb")))
		If mdbname = "" Then
			ErrMsg = ErrMsg + "<li>请填写导出模版保存的表名"
			Exit Sub
		End If
	Else
		sName = "导出"
		act = "inputskin"
	End If
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""5"" align=center width=""95%"" class=""tableBorder"">" & vbCrLf
	Response.Write "<tr><th width=""100%"" colspan=""4"">"
	Response.Write sName
	Response.Write "模版列表</th></tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""10%"" align=""center"" class=""forumrow"">序号</td>" & vbCrLf
	Response.Write "<td width=""60%"" align=""center"" class=""forumrow"">模版名称</td>" & vbCrLf
	Response.Write "<td width=""20%"" align=""center"" class=""forumrow"">操作</td>" & vbCrLf
	Response.Write "<td width=""10%"" align=""center"" class=""forumrow"">选择</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<form method=post action=""admin_loadskin.asp?action="
	Response.Write act
	Response.Write """ name=even>" & vbCrLf
	If act = "loadskin" Then
		SkinConnection (mdbname)
		Set Rs = StyleConn.Execute("select id,TempName from NC_Template order by id ")
	Else
		Set Rs = Newasp.Execute("select id,TempName from NC_Template order by id ")
	End If
	Do While Not Rs.EOF
		Response.Write "<tr>" & vbCrLf
		Response.Write Chr(9) & "<td class=""forumrow"">"
		Response.Write Rs("id")
		Response.Write "</td>" & vbCrLf
		Response.Write Chr(9) & "<td class=""forumrow"">"
		Response.Write Rs("TempName")
		Response.Write "</td>" & vbCrLf
		Response.Write Chr(9) & "<td class=""forumrow"" align=center>" & vbCrLf
		Response.Write Chr(9) & "<a href=""?action=rename&act="
		Response.Write act
		Response.Write "&skid="
		Response.Write Rs("id")
		Response.Write "&mdbname="
		Response.Write mdbname
		Response.Write """ >改名</a>" & vbCrLf
		Response.Write Chr(9)
		If act <> "loadskin" Then
			Response.Write " | <a href=""admin_template.asp?action=manage&mostyle=编 辑&StyleID=" & Rs("id") & """ >编辑</a>"
		End If
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write Chr(9) & "<td class=""forumrow"" align=center><input type=""checkbox"" name=""skid"" value="""
		Response.Write Rs("id")
		Response.Write """></td>" & vbCrLf
		Response.Write "</tr>" & vbCrLf
		Rs.movenext
	Loop
	Rs.Close
	Set Rs = Nothing
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td colspan=""4"" align=center class=""forumRowHighlight"">" & vbCrLf
	Response.Write "<input type=""radio"" name=""type"" value=""删除"" >删除 " & vbCrLf
	Response.Write "<input type=""radio"" name=""type"" value="""
	Response.Write sName
	Response.Write """ checked> " & vbCrLf
	Response.Write sName
	Response.Write "的数据库：<input type=""text"" name=""skinmdb"" size=""30"" value="""& Newasp.SetupDir &"skin/NC_Skin.mdb"">" & vbCrLf
	Response.Write "<input type=""submit"" name=""submit"" class=button value=""操 作"" onclick=MyConfirm()>" & vbCrLf
	Response.Write "<input type=checkbox name=chkall value=on onclick=""CheckAll(this.form)"">全选</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "</table>" & vbCrLf
End Sub

Private Sub SkinConnection(mdbname)
	On Error Resume Next
	Set StyleConn = CreateObject("ADODB.Connection")
	StyleConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
	If Err.Number = "-2147467259" Then
		ErrMsg = ErrMsg + "<li>" & mdbname & "数据库不存在。"
		Founderr = True
		Response.End
	End If
End Sub

Private Sub inputskin()
	Dim TempRs
	Dim InsertName
	Dim InsertValue
	skid = Newasp.checkStr(Request("skid"))
	mdbname = Newasp.checkStr(Trim(Request.Form("skinmdb")))
	If skid = "" Or IsNull(skid) Or Not IsNumeric(Replace(Replace(skid, ",", ""), " ", "")) Then
		ErrMsg = ErrMsg + "<li>您还未选取要导出的模版，或参数有错误！"
		Exit Sub
	End If
	If mdbname = "" Then
		ErrMsg = ErrMsg + "<li>请请填写导出模版数据库名"
		Exit Sub
	End If
	If Request("type") = "删除" Then
		If InStr("," & skid & ",", "," & Newasp.tempid & ",") Then
			ErrMsg = ErrMsg + "<BR><li>本模板是默认模版，不允许删除。"
			Exit Sub
		End If
		Newasp.Execute ("Delete From [NC_Template] Where ID in (" & skid & ")")
		NC_Admin.Succeed_Msg ("成功删除模板。")
		Newasp.DelCahe ("Templateslist")
		'删除该模板所有页面缓存
		Set Rs = Newasp.Execute("Select Top 1 * From [NC_Template]")
		For i = 2 To Rs.Fields.Count - 1
			Newasp.DelCahe (Rs(i).Name & skid)
		Next
		Set Rs = Nothing
		Response.End
	ElseIf Request("type") = "导出" Then
		SkinConnection (mdbname)
		ChkSkinMDB
		If ErrMsg <> "" Then Exit Sub
		Set Rs = Newasp.Execute("select * from NC_Template where id in (" & skid & ") order by id ")
		If Rs.EOF Or Rs.bof Then
			ErrMsg = ErrMsg + "<BR><li>无法取出源模版数据"
			Founderr = True
			Exit Sub
		End If
		Do While Not Rs.EOF
			InsertName = ""
			InsertValue = ""
			For i = 1 To Rs.Fields.Count - 1
				InsertName = InsertName & Rs(i).Name
				InsertValue = InsertValue & "'" & Newasp.checkStr(Rs(i)) & "'"
				If i <> Rs.Fields.Count - 1 Then
					InsertName = InsertName & ","
					InsertValue = InsertValue & ","
				End If
			Next
			StyleConn.Execute ("insert into [NC_Template] (" & InsertName & ") values (" & InsertValue & ") ")
			Rs.movenext
		Loop
		Rs.Close
		Set Rs = Nothing
		NC_Admin.Succeed_Msg (SucMsg & "<li>数据导出成功！")
	Else
		ErrMsg = ErrMsg + "<li>错误参数!</li>"
		Founderr = True
	End If
End Sub

Private Sub Load()
	Response.Write "<form action=""?action=loadthis"" method=post>" & vbCrLf
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""5"" height=""1"" align=center width=""95%"" class=""tableBorder"">" & vbCrLf
	Response.Write "<tr><th colspan=""2"">导入模版数据</th></tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""25%"" class=""forumrow"">导入模版数据库名：</td>" & vbCrLf
	Response.Write "<td width=""75%"" class=""forumrow""><input type=""text"" name=""skinmdb"" size=""30"" value="""& Newasp.SetupDir &"skin/NC_Skin.mdb""></td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr><td class=forumRowHighlight align=center colspan=""2""><input class=button type=""submit"" name=""submit"" value=""下一步""></td></tr>" & vbCrLf
	Response.Write "</table></form>" & vbCrLf
End Sub

Private Sub loadskin()
	Dim trs
	Dim InsertName
	Dim InsertValue
	skid = Newasp.checkStr(Request("skid"))
	mdbname = Newasp.checkStr(Trim(Request.Form("skinmdb")))
	If skid = "" Or IsNull(skid) Or Not IsNumeric(Replace(Replace(skid, ",", ""), " ", "")) Then
		ErrMsg = ErrMsg + "<BR><li>您还未选取要导入的模版"
		Exit Sub
	End If
	If mdbname = "" Then
		ErrMsg = ErrMsg + "<BR><li>请填写导入模版数据库名"
		Exit Sub
	End If
	SkinConnection (mdbname)
	If Request("type") = "删除" Then
		StyleConn.Execute ("Delete from NC_Template where id in (" & skid & ")")
		NC_Admin.Succeed_Msg ("删除成功。")
		Response.End
	ElseIf Request("type") = "导入" Then
		ChkSkinMDB
		If ErrMsg <> "" Then Exit Sub
		Set trs = StyleConn.Execute(" select * from NC_Template where id in (" & skid & ")  order by id ")
		Do While Not trs.EOF
			InsertName = ""
			InsertValue = ""
			For i = 1 To trs.Fields.Count - 1
				InsertName = InsertName & trs(i).Name
				InsertValue = InsertValue & "'" & Newasp.checkStr(trs(i)) & "'"
				If i <> trs.Fields.Count - 1 Then
					InsertName = InsertName & ","
					InsertValue = InsertValue & ","
				End If
			Next
			Newasp.Execute ("insert into [NC_Template] (" & InsertName & ") values (" & InsertValue & ") ")
			trs.movenext
		Loop
		trs.Close
		Set Rs = Nothing
		Set trs = Nothing
		NC_Admin.Succeed_Msg ("数据导入成功！")
		Newasp.DelCahe ("Templateslist")
	Else
		ErrMsg = ErrMsg + "<li>错误参数!</li>"
		Founderr = True
admin_loadskin.asp - 源码说明

本页面展示了「多用户管理分权限发布、管理软件信息；　自由选择系统默认为静态HTML或动态ASP；　无限制添加下载服务器」中的 admin_loadskin.asp 源码文件，采用 ASP 编程语言编写，共 564 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。
虫虫下载站收录了大量与HTML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?