📄 wm.skin_templates.asp
字号:
WM_Name = Rs(0)
WM_SkinFolder = Rs(1)
WM_SortID = Rs(2)
ModuleID = Rs(3)
WM_Explain = Rs(5)
WM_TempPath = Rs(6)
WM_ChannelID = Rs(7)
If Instr(Split(WM_TempPath,".")(0),"_") > 0 Then
NewTempPath = Split(WM_TempPath,"_")(0)&"_"&Replace(Replace(Replace(Replace(Now()," ",""),"-",""),":",""),"/","")&"."&Split(WM_TempPath,".")(1)
Else
NewTempPath = Split(WM_TempPath,".")(0)&"_"&Replace(Replace(Replace(Replace(Now()," ",""),"-",""),":",""),"/","")&"."&Split(WM_TempPath,".")(1)
End If
Rs.AddNew
Rs(0) = WM_Name & " Copy"
Rs(1) = WM_SkinFolder
Rs(2) = WM_SortID
Rs(3) = ModuleID
Rs(4) = 0
Rs(5) = WM_Explain
Rs(6) = NewTempPath
Rs(7) = WM_ChannelID
Rs.Update
Rs.Close
Set Rs = Nothing
Call WRMPS.FsoBegin()
If WRMPS.FsoIsTrue("File","../Skins/"&WR_Setting(5)&"/Templates/"&WM_TempPath) = True Then WRMPS.FileCopy "../Skins/"&WR_Setting(5)&"/Templates/"&WM_TempPath,"../Skins/"&WR_Setting(5)&"/Templates/"&NewTempPath
Call WRMPS.FsoEnd()
End If
WRMPS.DelCache "Templates"
Call WRMPS.ErrView("·模板复制成功<meta http-equiv=refresh content='1;URL=?ModuleID="&ModuleID&"&ChannelID="&ChannelID&"&WM_SortID="&WM_SortID&"'>", 1)
Case "Add"
DefaultContent = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbCrLf
DefaultContent = DefaultContent & "<html>" & vbCrLf
DefaultContent = DefaultContent & "<head>" & vbCrLf
DefaultContent = DefaultContent & "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
DefaultContent = DefaultContent & "<meta http-equiv=""Content-Language"" content=""gb2312"">" & vbCrLf
DefaultContent = DefaultContent & "<meta name=keywords content=""{$Meta_Keywords}"">" & vbCrLf
DefaultContent = DefaultContent & "<meta name=""description"" content=""{$Meta_Description}"">" & vbCrLf
DefaultContent = DefaultContent & "<link rel=""shortcut icon"" href=""{$InstallDir}images/favicon.ico"">" & vbCrLf
DefaultContent = DefaultContent & "<link rel=""Bookmark"" href=""{$InstallDir}images/favicon.ico"">" & vbCrLf
DefaultContent = DefaultContent & "<link type=""text/css"" rel=""stylesheet"" href=""{$InstallDir}Skins/{$SkinDir}/Style.css"">" & vbCrLf
DefaultContent = DefaultContent & "<Script language=""JavaScript"" Src=""{$InstallDir}Inc/Site.Js""></Script>" & vbCrLf
DefaultContent = DefaultContent & "<Script language=""JavaScript"" Src=""{$InstallDir}Inc/Menu.Js""></Script>" & vbCrLf
DefaultContent = DefaultContent & "<title>{$SiteTitle}</title>" & vbCrLf
DefaultContent = DefaultContent & "</head>" & vbCrLf
DefaultContent = DefaultContent & "<body>" & vbCrLf & vbCrLf
DefaultContent = DefaultContent & "</body> " & vbCrLf
DefaultContent = DefaultContent & "</html> "
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form name=addform method='post' action='?Action=Save'>" & vbCrLf
Content = Content & "<input name=ModuleID type=hidden value=" & ModuleID & ">" & vbCrLf
Content = Content & "<input name=ChannelID type=hidden value=" & ChannelID & ">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2><strong>添加模板</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='25%'><strong>模板名称</strong></td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_Name' type='text' size=20 style='width:150' maxlength=50> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板类别</strong></td>" & vbCrLf
Content = Content & "<td><select name='WM_SortID'>" & vbCrLf
Content = Content & "<option value=''>== 请选择 ==</option>" & vbCrLf
Set Rs = Conn.Execute("Select WM_ID,WM_TempSortName From WM_TempSort Where WM_ModuleID = "&ModuleID&" Order By WM_Taxis")
Do While Not Rs.Eof
Content = Content & "<option value="&Rs(0)&WRMPS.GetCheckVer(Int(Rs(0)),Int(WM_SortID),0)&">"&Rs(1)&"</option>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Content = Content & "</select>" & vbCrLf
Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='25%'><strong>模板路径</strong><br>填写模板路径，添加后将不能修改<br>如 Index.html或Class/Index.html</td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_TempPath' type='text' style='width:300' maxlength=50> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>是否默认</strong></td>" & vbCrLf
Content = Content & "<td><input type=radio name=WM_IsDefault value=1 class=radio>是 <input type=radio name=WM_IsDefault value=0 class=radio checked>否</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板说明</strong></td>" & vbCrLf
Content = Content & "<td><input name='WM_Explain' type='text' size=20 style='width:400' maxlength=50></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板内容</strong></td><td><input type=submit name=Submit value='提 交'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td Colspan=2><INPUT type='hidden' name='Content' value=""" & Server.HTMLEncode(DefaultContent) & """><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Preview=Bottom' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='500'></IFRAME></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='提 交'></td></tr>" & vbCrLf
Content = Content & "</form></table>" & vbCrLf
Case "Edit"
Set Rso = Conn.Execute("Select WM_Name,WM_SortID,WM_IsDefault,WM_Explain,WM_TempPath From WM_Templates Where WM_ID = " & ID & "")
If Not Rso.EOF Then
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form name=addform method='post' action='?Action=EditSave'>" & vbCrLf
Content = Content & "<input name=ID type=hidden value=" & ID & ">" & vbCrLf
Content = Content & "<input name=ModuleID type=hidden value=" & ModuleID & ">" & vbCrLf
Content = Content & "<input name=ChannelID type=hidden value=" & ChannelID & ">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2><strong>修改模板</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='25%'><strong>模板名称</strong></td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_Name' type='text' size=20 style='width:150' maxlength=50 value='" & Rso(0) & "'> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板类别</strong></td>" & vbCrLf
Content = Content & "<td><select name='WM_SortID'>" & vbCrLf
Content = Content & "<option value=''>== 请选择 ==</option>" & vbCrLf
Set Rs = Conn.Execute("Select WM_ID,WM_TempSortName From WM_TempSort Where WM_ModuleID = "&ModuleID&" Order By WM_Taxis")
Do While Not Rs.Eof
Content = Content & "<option value="&Rs(0)&WRMPS.GetCheckVer(Int(Rs(0)),Int(Rso(1)),0)&">"&Rs(1)&"</option>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Content = Content & "</select>" & vbCrLf
Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='25%'><strong>模板路径</strong></td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_TempPath' type='text' style='width:300' maxlength=50 value='" & Rso(4) & "' readonly> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>是否默认</strong></td>" & vbCrLf
Content = Content & "<td><input type=radio name=WM_IsDefault value=1 class=radio" & WRMPS.GetCheckVer(1, Rso(2), 1) & ">是 <input type=radio name=WM_IsDefault value=0 class=radio" & WRMPS.GetCheckVer(0, Rso(2), 1) & ">否</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板说明</strong></td>" & vbCrLf
Content = Content & "<td><input name='WM_Explain' type='text' size=20 style='width:400' maxlength=50 value='" & Rso(3) & "'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>模板内容</strong></td><td><input type=submit name=Submit value='提 交'></td></tr>" & vbCrLf
Call WRMPS.FsoBegin()
If WRMPS.FsoIsTrue("File","../Skins/"&WR_Setting(5)&"/Templates/"&Rso(4)) = True Then WM_Content = WRMPS.GetHtml("../Skins/"&WR_Setting(5)&"/Templates/"&Rso(4)) Else WM_Content = ""
Call WRMPS.FsoEnd()
Content = Content & "<tr class=td2><td Colspan=2><INPUT type='hidden' name='Content' value=""" & Server.HTMLEncode(WM_Content) & """><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Preview=Bottom' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='500'></IFRAME></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='提 交'></td></tr>" & vbCrLf
Content = Content & "</form></table>" & vbCrLf
End If
Rso.Close
Set Rso = Nothing
Case Else
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=5><strong>模板管理</strong></td></tr>" & vbCrLf
Set Rs = Conn.Execute("Select WM_ID,WM_Name,WM_SortID,WM_IsDefault,WM_Explain from WM_Templates Where WM_ModuleID = " & ModuleID & ModuleSort & " and WM_ChannelID="&ChannelID&" And WM_SkinFolder = '" & WR_Setting(5) & "' Order By WM_SortID,WM_ID Desc")
Content = Content & "<tr class=td3 align=center>" & vbCrLf
Content = Content & "<td width='22%'>模板名称</td>" & vbCrLf
Content = Content & "<td width='18%'>模板类型</td>" & vbCrLf
Content = Content & "<td width=*>说明</td>" & vbCrLf
Content = Content & "<td width='5%'>默认</td>" & vbCrLf
Content = Content & "<td width='20%'>操作</td>" & vbCrLf
Content = Content & "</tr>" & vbCrLf
Do While Not Rs.EOF
Content = Content & "<tr class=td2>" & vbCrLf
Content = Content & "<td>" & Rs(1) & "</td>" & vbCrLf
Content = Content & "<td align=center>"
Set Rso = Conn.Execute("Select WM_TempSortName From WM_TempSort Where WM_ID = " & Rs(2) & "")
If Not Rso.EOF Then
Content = Content & Rso(0)
End If
Rso.Close
Content = Content & "</td>" & vbCrLf
Content = Content & "<td>" & Rs(4) & "</td>" & vbCrLf
Content = Content & "<td align=center>"
If Rs(3) = 1 Then Content = Content & "<font class=font2><strong>√</strong></font>"
Content = Content & "</td>" & vbCrLf
Content = Content & "<td align=center>" & vbCrLf
If Rs(3) <> 1 Then Content = Content & "<a href=?Action=Default&ChannelID="&ChannelID&"&ModuleID=" & ModuleID & "&WM_SortID=" & Rs(2) & "&ID=" & Rs(0) & " title=设为默认>默认</a> |" Else Content = Content & "<Font Color=#999999>默认</Font> |"
Content = Content & " <a href=?Action=Edit&ChannelID="&ChannelID&"&ModuleID=" & ModuleID & "&WM_SortID=" & Rs(2) & "&ID=" & Rs(0) & ">修改</a> |"
Content = Content & " <a href=?Action=Copy&ChannelID="&ChannelID&"&ModuleID=" & ModuleID & "&WM_SortID=" & Rs(2) & "&ID=" & Rs(0) & ">复制</a> |"
Content = Content & " <a href=?Action=Del&ChannelID="&ChannelID&"&ModuleID=" & ModuleID & "&WM_SortID=" & Rs(2) & "&ID=" & Rs(0) & " onclick=""return confirm('确定删除？');"">删除</a>"
Content = Content & "</td></tr>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Content = Content & "</table>" & vbCrLf
End Select
Call ClassEnd()
Call DBConnEnd()
Response.Write Content
Call GetBottom()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -