📄 admin_loadskin.asp
字号:
Dim TemplateFields,TemplateValues
Dim bestrow
bestrow = Trim(Request("bestrow"))
Set SkinRs = Conn.Execute("SELECT Max(skinid) FROM [NC_Template] WHERE pageid = 0")
If Not (SkinRs.EOF And SkinRs.BOF) Then
newskinid = SkinRs(0)
End If
If IsNull(newskinid) Then newskinid = 0
SkinRs.Close
newskinid = newskinid + 1
SQL = "SELECT * FROM NC_Template WHERE skinid = " & CLng(Request("skinid")) & " ORDER BY ChannelID ASC,TemplateID ASC"
Rs.Open SQL,sConn,1,1
If Rs.BOF And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 没有找到你要导出的模板！</li>"
Exit Sub
End If
Do While Not Rs.EOF
If Not IsNull(Rs("TemplateDir")) Then
TemplateDir = Newasp.CheckStr(Rs("TemplateDir"))
Else
TemplateDir = ""
End If
If bestrow = "yes" Then
SQL = "UPDATE [NC_Template] SET TemplateDir='"& Rs("TemplateDir") &"',page_content='"& Newasp.CheckStr(Rs("page_content")) &"',page_setting='"& Newasp.CheckStr(Rs("page_setting")) &"',Template_Help='"& Newasp.CheckStr(Rs("Template_Help")) &"' WHERE ChannelID=" & Rs("ChannelID") & " And pageid=" & Rs("pageid") & " And isDefault=1"
Else
TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault"
TemplateValues = "" & Rs("ChannelID") & ","& newskinid &"," & Rs("pageid") & ",'" & TemplateDir & "','" & Newasp.CheckStr(Rs("page_name")) & "','" & Newasp.CheckStr(Rs("page_content")) & "','" & Newasp.CheckStr(Rs("page_setting")) & "','" & Newasp.CheckStr(Rs("Template_Help")) & "',0"
SQL = "INSERT INTO [NC_Template](" & TemplateFields & ")VALUES(" & TemplateValues & ")"
End If
Conn.Execute (SQL)
Rs.movenext
Loop
Rs.Close:Set Rs = Nothing
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('恭喜您 ^_^ 模板导入成功啦！');"
Response.Write "location.replace('admin_loadskin.asp')" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub InputSkin()
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
Dim TemplateFields,TemplateValues
Set SkinRs = sConn.Execute("SELECT MAX(skinid) FROM [NC_Template] WHERE pageid = 0")
If Not (SkinRs.EOF And SkinRs.BOF) Then
newskinid = SkinRs(0)
End If
If IsNull(newskinid) Then newskinid = 0
SkinRs.Close
newskinid = newskinid + 1
SQL = "SELECT * FROM NC_Template where skinid = " & CLng(Request("skinid"))
Rs.Open SQL,Conn,1,1
If Rs.bof And Rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 没有找到你要导出的模板！</li>"
Exit Sub
End If
Do While Not Rs.EOF
If Not IsNull(Rs("TemplateDir")) Then
TemplateDir = Newasp.CheckStr(Rs("TemplateDir"))
Else
TemplateDir = ""
End If
TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault"
TemplateValues = "" & Rs("ChannelID") & ","& newskinid &"," & Rs("pageid") & ",'" & TemplateDir & "','" & Newasp.CheckStr(Rs("page_name")) & "','" & Newasp.CheckStr(Rs("page_content")) & "','" & Newasp.CheckStr(Rs("page_setting")) & "','" & Newasp.CheckStr(Rs("Template_Help")) & "',0"
SQL = "INSERT INTO [NC_Template](" & TemplateFields & ")VALUES(" & TemplateValues & ")"
sConn.Execute (SQL)
Rs.movenext
Loop
Rs.Close:Set Rs = Nothing
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('恭喜您 ^_^ 模板导出成功啦！');"
Response.Write "location.replace('admin_loadskin.asp')" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub rename()
Dim sRs,skid
'模板改名
skid = Newasp.checkStr(Request("skid"))
mdbname = Newasp.checkStr(Trim(Request("mdbname")))
If skid <> "" And IsNumeric(skid) Then skid = CLng(skid) Else skid = 1
If Request("act") = "loadskin" And mdbname <> "" Then
SkinConnection (mdbname)
Set sRs = sConn.Execute("SELECT TemplateID,page_name,skinid FROM NC_Template WHERE TemplateID=" & skid)
Else
Set sRs = Newasp.Execute("SELECT TemplateID,page_name,skinid FROM NC_Template WHERE TemplateID=" & skid)
End If
Response.Write "<form action=""?action=savenm"" method=post >" & vbCrLf
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""5"" align=center class=""tableBorder"">" & vbCrLf
Response.Write "<tr><th colspan=""2"">更改模版名称 ID="
Response.Write sRs(2)
Response.Write "</td></tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write Chr(9) & "<td width=""20%"" class=""TableRow1"">模版原名：</td>" & vbCrLf
Response.Write Chr(9) & "<td width=""80%"" class=""TableRow1"">"
Response.Write sRs(1)
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write Chr(9) & "<td class=""TableRow1"">模版新名：</td>" & vbCrLf
Response.Write Chr(9) & "<td class=""TableRow1""><input type=""text"" name=""skinNAME"" size=""30"" value=""""></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr><td align=center class=TableRow2 colspan=""2""><input class=button type=""submit"" name=""submit"" value=""更 新""></td></tr>" & vbCrLf
If Request("act") = "loadskin" Then
Response.Write "<input TYPE=""hidden"" NAME=""mdbname"" VALUE="""
Response.Write mdbname
Response.Write """>" & vbCrLf
End If
Response.Write "<input TYPE=""hidden"" NAME=""skid"" VALUE="""
Response.Write sRs(0)
Response.Write """>" & vbCrLf
Response.Write "<input TYPE=""hidden"" NAME=""act"" VALUE="""
Response.Write Request("act")
Response.Write """>" & vbCrLf
Response.Write "</table></form>" & vbCrLf
sRs.Close
Set sRs = Nothing
End Sub
Sub savenm()
Dim skinNAME,skid
'模板改名保存
skid = Newasp.checkStr(Request.Form("skid"))
mdbname = Newasp.checkStr(Trim(Request.Form("mdbname")))
skinNAME = Newasp.checkStr(Trim(Request.Form("skinname")))
If skid = "" Or Not IsNumeric(skid) Then
ErrMsg = ErrMsg + "<BR><li>请选择正确的参数</li>"
Exit Sub
End If
If skinNAME = "" Then
ErrMsg = ErrMsg + "<li>新模板名称不能为空！</li>"
Exit Sub
End If
If Request("act") = "loadskin" And mdbname <> "" Then
SkinConnection(mdbname)
sConn.Execute ("UPDATE NC_Template SET page_name='" & skinNAME & "' WHERE TemplateID=" & skid)
Else
Newasp.Execute ("UPDATE NC_Template SET page_name='" & skinNAME & "' WHERE TemplateID=" & skid)
End If
Succeed ("<li>恭喜您，模板更名成功！")
End Sub
Sub DelTemplate()
If Trim(Request("skinid")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 请选择你要删除的模板！</li>"
Exit Sub
End If
If Trim(Request("mdbname")) = "" Then
FoundErr = True
ErrMsg = ErrMsg + "<li>出错啦！^_^ 请选择你要删除的模板数据库！</li>"
Exit Sub
End If
SkinConnection(mdbname)
If FoundErr Then Exit Sub
sConn.Execute("DELETE FROM NC_Template WHERE skinid = " & CLng(Request("skinid")))
Response.Write "<script language=JavaScript>" & vbCrLf
Response.Write "alert('呵呵 ^_^ 模板删除成功啦！');"
Response.Write "location.replace('admin_loadskin.asp?action=load')" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
'================================================
' 函数名：CompressMDB
' 作 用：压缩ACCESS数据库
' 参 数：dbPath ----数据库路径
' 返回值：True ---- False
'================================================
Public Function CompressMDB(DBPath)
Dim fso, Engine, strDBPath
CompressMDB = False
If DBPath = "" Then Exit Function
If InStr(DBPath, ":") = 0 Then DBPath = Server.MapPath(DBPath)
strDBPath = Left(DBPath, InStrRev(DBPath, "\"))
Set fso = CreateObject(Newasp.FSO_ScriptName)
If fso.FileExists(DBPath) Then
fso.CopyFile DBPath, strDBPath & "temp.mdb"
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
fso.CopyFile strDBPath & "temp1.mdb", DBPath
fso.DeleteFile (strDBPath & "temp.mdb")
fso.DeleteFile (strDBPath & "temp1.mdb")
Set fso = Nothing
Set Engine = Nothing
CompressMDB = True
Else
CompressMDB = False
End If
End Function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -