📄 admin_skin.asp
字号:
End Sub
'=================================================
'过程名：Import
'作 用：导入风格第一步
'=================================================
Sub Import()
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' align='center'><strong>风格导入（第一步）</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='100'> 请输入要导入的风格数据库的文件名："
Response.Write " <input name='SkinMdb' type='text' id='SkinMdb' value='../Skin/Skin.mdb' size='20' maxlength='50'>"
Response.Write " <input name='Submit' type='submit' id='Submit' value=' 下一步 '>"
Response.Write " <input name='Action' type='hidden' id='Action' value='Import2'> </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
End Sub
'=================================================
'过程名：Import2
'作 用：导入风格第二步
'=================================================
Sub Import2()
Dim rs, sql
Dim mdbname, tconn, trs, iCount
mdbname = Replace(Trim(Request.Form("skinmdb")), "'", "")
If mdbname = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请填写导入模板数据库名"
Exit Sub
End If
Set tconn = Server.CreateObject("ADODB.Connection")
tconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdbname)
If Err.Number <> 0 Then
ErrMsg = ErrMsg & "<li>数据库操作失败，请以后再试，错误原因：" & Err.Description
Err.Clear
Exit Sub
End If
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write " <table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' align='center'><strong>风格导入（第二步）</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='100' align='center'>"
Response.Write " <br>"
Response.Write " <table border='0' cellspacing='0' cellpadding='0'>"
Response.Write " <tr align='center'>"
Response.Write " <td><strong>将被导入的风格</strong><br>"
Response.Write "<select name='SkinID' size='2' multiple style='height:300px;width:250px;'>"
sql = "select * from PE_Skin"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open sql, tconn, 1, 1
If rs.BOF And rs.EOF Then
Response.Write "<option value='0'>没有任何模板</option>"
iCount = 0
Else
iCount = rs.RecordCount
Do While Not rs.EOF
Response.Write "<option value='" & rs("SkinID") & "'>" & rs("SkinName") & "</option>"
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "</select></td>"
Response.Write " <td width='80'><input type='submit' name='Submit' value='导入>>' "
If iCount = 0 Then Response.Write " disabled"
Response.Write "></td>"
Response.Write " <td><strong>系统中已经存在的风格</strong><br>"
Response.Write " <select name='tSkinID' size='2' multiple style='height:300px;width:250px;' disabled>"
Set rs = Conn.Execute(sql)
If rs.BOF And rs.EOF Then
Response.Write "<option value='0'>没有任何模板</option>"
Else
Do While Not rs.EOF
Response.Write "<option value='" & rs("SkinID") & "'>" & rs("SkinName") & "</option>"
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write " </select></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <br><b>提示：按住“Ctrl”或“Shift”键可以多选</b><br>"
Response.Write " <input name='SkinMdb' type='hidden' id='SkinMdb' value='" & mdbname & "'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='DoImport'>"
Response.Write " <br>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
End Sub
'=================================================
'过程名：ADD
'作 用：添加风格
'=================================================
Sub Add()
Dim rs, sql, CssContent
sql = "select * from PE_Skin where IsDefault=" & PE_True & ""
Set rs = Conn.Execute(sql)
If rs.BOF And rs.EOF Then
Else
CssContent = rs("Skin_CSS")
End If
rs.Close
Set rs = Nothing
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write " <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr align='center' class='title'>"
Response.Write " <td height='22' colspan='2'><strong>添加新风格</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong>选择方案：</strong></td>"
Response.Write " <td> <select name='ProjectName' id='ProjectName'>" & GetProject_Option(ProjectName) & "</select></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong>风格名称：</strong></td>"
Response.Write " <td> <input name='SkinName' type='text' id='SkinName' value='' size='50' maxlength='50'></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong>风格配色设置</strong><br>"
Response.Write " <br>"
Response.Write " 修改风格设置必须具备一定网页设计知识<br><br>"
Response.Write " 不能使用单引号或双引号，否则会容易造成程序错误</td>"
Response.Write " <td><textarea name='Skin_CSS' cols='80' rows='20' id='Skin_CSS'>" & CssContent & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr align='center' class='tdbg'>"
Response.Write " <td height='50' colspan='2'><input name='Action' type='hidden' id='Action' value='SaveAdd'>"
Response.Write " <input type='submit' name='Submit' value=' 添 加 '></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
End Sub
'=================================================
'过程名：Modify
'作 用：修改风格
'=================================================
Sub Modify()
Dim SkinID, IsDefault
Dim rs, sql
SkinID = PE_CLng(Trim(Request.QueryString("SkinID")))
IsDefault = Trim(Request.QueryString("IsDefault"))
If SkinID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定SkinID</li>"
Exit Sub
End If
If IsDefault = "" Then
sql = "select * from PE_Skin where SkinID=" & SkinID
Else
sql = "select * from PE_Skin where IsDefault=" & PE_True
End If
Set rs = Conn.Execute(sql)
If rs.BOF And rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的风格！</li>"
rs.Close
Set rs = Nothing
Exit Sub
End If
Response.Write "<form name='myform' method='post' action='Admin_Skin.asp'>"
Response.Write " <table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr align='center' class='title'>"
Response.Write " <td height='22' colspan='2'><strong>修改风格设置</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong> 选择方案：</strong></td>"
Response.Write " <td><select name='ProjectName' id='ProjectName'"
If rs("IsDefault") = True Or rs("IsDefaultInProject") = True Then
Response.Write " disabled"
End If
Response.Write ">" & GetProject_Option(ProjectName) & "</select></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong>风格名称：</strong></td>"
Response.Write " <td> <input name='SkinName' type='text' id='SkinName' value='" & rs("SkinName") & "' size='50' maxlength='50'></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='100'><strong>风格配色设置</strong><br>"
Response.Write " <br>"
Response.Write " 修改风格设置必须具备一定网页设计知识<br><br>"
Response.Write " 不能使用单引号或双引号，否则会容易造成程序错误</td>"
Response.Write " <td><textarea name='Skin_CSS' cols='80' rows='20' id='Skin_CSS'>" & rs("Skin_CSS") & "</textarea></td>"
Response.Write " </tr>"
Response.Write " <tr align='center' class='tdbg'>"
Response.Write " <td height='50' colspan='2'><input name='SkinID' type='hidden' id='SkinID' value='" & SkinID & "'><input name='Action' type='hidden' id='Action' value='SaveModify'>"
Response.Write " <input type='submit' name='Submit' value=' 保存修改结果 '></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
rs.Close
Set rs = Nothing
End Sub
'=================================================
'过程名：SaveAdd
'作 用：保存风格
'=================================================
Sub SaveAdd()
Dim SkinName, Skin_CSS, ProjectName
Dim rs, sql
SkinName = Trim(Request("SkinName"))
Skin_CSS = Trim(Request("Skin_CSS"))
ProjectName = Trim(Request("ProjectName"))
If ProjectName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>方案不能为空！</li>"
End If
If SkinName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>风格名称不能为空！</li>"
End If
If Skin_CSS = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>风格名称不能为空！</li>"
End If
If FoundErr = True Then Exit Sub
sql = "select top 1 * from PE_Skin"
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open sql, Conn, 1, 3
rs.addnew
rs("IsDefault") = False
rs("SkinName") = SkinName
rs("Skin_CSS") = Skin_CSS
rs("ProjectName") = ProjectName
rs.Update
rs.Close
Set rs = Nothing
Call WriteSuccessMsg("成功添加新的风格：" & Trim(Request("SkinName")), ComeUrl)
Call CreatSkinFile
End Sub
'=================================================
'过程名：SaveModify
'作 用：保存修改风格
'=================================================
Sub SaveModify()
Dim rs, sql
Dim SkinID, SkinName, Skin_CSS
SkinID = PE_CLng(Trim(Request("SkinID")))
SkinName = Trim(Request("SkinName"))
Skin_CSS = Trim(Request("Skin_CSS"))
If SkinID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>请指定SkinID</li>"
End If
If SkinName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>风格名称不能为空！</li>"
End If
If Skin_CSS = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>风格名称不能为空！</li>"
End If
If FoundErr = True Then Exit Sub
sql = "select * from PE_Skin where SkinID=" & SkinID
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.Open sql, Conn, 1, 3
If rs.BOF And rs.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的风格！</li>"
Else
rs("SkinName") = Trim(Request("SkinName"))
rs("Skin_CSS") = Trim(Request("Skin_CSS"))
rs.Update
Call WriteSuccessMsg("保存风格设置成功！", ComeUrl)
End If
rs.Close
Set rs = Nothing
Call CreatSkinFile
Call ClearSiteCache(0)
End Sub
'=================================================
'过程名：SetDefault
'作 用：保存指定默认风格
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -