📄 template.asp
字号:
Dim Page,mystr,rs,i
Dim TempStr,TemplateStr,stype
Dim TempStyleHelp,StyleHelpValue
stype=Dvbbs.checkStr(request("stype"))
page=Dvbbs.checkStr(request("page"))
If Not IsNumeric(stype) Then
Errmsg=ErrMsg + "<br /><li>错误的样式参数"
Dvbbs_error()
End If
If Not IsTruePage(page) Then
Errmsg=ErrMsg + "<br /><li>要编辑的页面模板字段尚未建立。"
Dvbbs_error()
End If
Set Rs=Dvbbs.Execute("Select ID,StyleName,"&page&" From [Dv_StyleHelp] where ID=1")
TempStr=Split(Rs(2),"@@@")
Select Case stype
Case 1
TempStyleHelp=Split(TempStr(1),"|||")
Case 2
TempStyleHelp=Split(TempStr(2),"|||")
Case 3
TempStyleHelp=Split(TempStr(0),"|||")
End Select
Set Rs=Dvbbs.Execute("Select ID,StyleName,"&page&" From [Dv_Style] Where ID="&StyleID)
TempStr=Split(Rs(2),"@@@")
Select Case stype
Case 1
TemplateStr=Split(TempStr(1),"|||")
Case 2
TemplateStr=Split(TempStr(2),"|||")
Case 3
TemplateStr=Split(TempStr(0),"|||")
End Select
Response.Write "<form name=""template"" action=""?action=saveedit&page="&page&"&stype="&stype&"&StyleID="&StyleID&""" method=post>"
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=""center"" width=""100%"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" style=""text-align:center;"" colspan=3>"
Response.Write Rs(1)
Response.Write "分页面模板("
Response.Write page
Response.Write ")"
Response.Write "<input Type=""hidden"" name=""dvbbs"" value=""OK!"">"
Select Case stype
Case 1
Response.Write "语言包"
mystr="template.Strings"
If page="main_style" Then mystr="Dvbbs.lanstr"
Case 2
Response.Write "图片资源(当前默认路径{$PicUrl}为："&Dvbbs.Forum_PicUrl&")"
mystr="template.pic"
If page="main_style" Then mystr="Dvbbs.mainpic"
Case 3
Response.Write "界面风格"
mystr="template.html"
If page="main_style" Then mystr="Dvbbs.mainhtml"
End Select
Response.Write "管理</th></tr>"
If TemplateStr(Ubound(TemplateStr))="" Then TemplateStr(Ubound(TemplateStr))="del"
For i=0 To Ubound(TemplateStr)
If i<ubound(TempStyleHelp) Then
StyleHelpValue=TempStyleHelp(i)
Else
StyleHelpValue="//"
End IF
Response.Write "<tr><td class=""td2"" width=20% height=40 align=left>"
Response.Write mystr&"("&i&")"
Response.Write "<br /><a href=""#"" onclick=""rundvscript(t"&i&",'page="&page&"&index="&i&"&stype="&stype&"');"" title=""点这里获取这部分模板的官方数据"">获取官方数据</a>"
Response.Write "</td>"
Response.Write "<td class=""td2"" width=80% height=25 align=left>"
Select Case stype
Case 1
If LenB(TemplateStr(i))>70 Then
Response.Write "<textarea name=""TemplateStr"" id=""t"&i&""" cols=""100"" rows=""3"">"
Response.Write server.htmlencode(TemplateStr(i))
Response.Write "</textarea>"
Else
Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t"&i&""" value="""
Response.Write server.htmlencode(TemplateStr(i))
Response.Write """ size=50>"
End If
Response.Write "<INPUT TYPE=""hidden"" NAME=""ReadME"" id=""r"&i&""" value="""&StyleHelpValue&""">"
Response.Write "<a href=# onclick=""helpscript(r"&i&");return false;"" class=""helplink""><img src=""skins/images/help.gif"" border=0 title=""点击查阅管理帮助！""></a>"
Case 2
Response.Write "<input Type=""text"" name=""TemplateStr"" id=""t"&i&""" value="""
Response.Write server.htmlencode(TemplateStr(i))
Response.Write """ size=20> "
If server.htmlencode(TemplateStr(i))<>"" And (Instr(server.htmlencode(TemplateStr(i)),".gif") or Instr(server.htmlencode(TemplateStr(i)),".jpg")) Then Response.Write "<img src="&server.htmlencode(Replace(TemplateStr(i),"{$PicUrl}",MyDbPath&Dvbbs.Forum_PicUrl))&" border=0>"
Case 3
If page="main_style" And i=0 Then
Response.Write "<input type=hidden name=""TemplateStr"" value="""
Response.Write server.htmlencode(TemplateStr(i))
Response.Write """>"
Response.Write "此字段属于基本设置， <a href=""?action=editmain&stype=2&StyleID="&StyleID&""">点这里修改基本设置</a>"
Response.Write "</td><td class=""td2"">"
Response.Write "<a href=# onclick=""helpscript(r"&i&");return false;"" class=""helplink""><img src=""skins/images/help.gif"" border=0 title=""点击查阅管理帮助！""></a>"
Else
Response.Write "<textarea name=""TemplateStr"" id=""t"&i&""" cols=""100"" rows=""5"">"
Response.Write server.htmlencode(TemplateStr(i))
Response.Write "</textarea>"
Response.Write "</td><td class=""td2""><a href=""javascript:admin_Size(-5,'t"&i&"')""><img src=""skins/images/minus.gif"" unselectable=""on"" border='0'></a> <a href=""javascript:admin_Size(5,'t"&i&"')""><img src=""skins/images/plus.gif"" unselectable=""on"" border='0'></a>"
Response.Write "<img src=skins/images/viewpic.gif onclick=runscript(t"&i&")>"
Response.Write "<a href=# onclick=""helpscript(r"&i&");return false;"" class=""helplink""><img src=""skins/images/help.gif"" border=0 title=""点击查阅管理帮助！""></a> "
End If
Response.Write "<INPUT TYPE=""hidden"" NAME=""ReadME"" id=""r"&i&""" value="""&StyleHelpValue&""">"
End Select
Response.Write "</td></tr>"
Next
Response.Write "<tr><td class=""td2"" height=""25"" align=""center"" colspan=""3""> "
Response.Write "</td></tr>"
Response.Write "<tr><td class=""td2"" height=""25"" align=""center"">"
Response.Write "<input type=""reset"" class=""button"" name=""Submit"" value=""重 填"">"
Response.Write "</td>"
Response.Write "<td class=""td2"" height=""25"" colspan=2 align=""center"">"
Response.Write "<input type=""submit"" class=""button"" name=""B1"" value=""修 改"">"
Response.Write "</td></tr>"
Response.Write "<tr>"
Response.Write "<td colspan=3 Class=""td2"">"
Response.Write "<br /><li>重要提示，模板中含XSLT代码的，修改必须严格按照XML语法标准。"
Response.Write "<br /><li>模板编辑规则：如果想清除该字段，请在对应的文本框中输入""del""，那么模板数据的序号就会前移。"
Response.Write "<br /><li>如果不想改变模板数据的序号，仅把该项目的数据清空，则只需要把内容清空。"
Response.Write "</td></tr>"
Response.Write "</table><p></p>"
Response.Write "</form>"
Rs.Close
Set Rs=Nothing
End Sub
Sub SaveEdit()
If Request("dvbbs")<>"OK!" Then
Errmsg=ErrMsg + "<br /><li>您提交了非法数据"
Dvbbs_error()
Exit Sub
End If
Dim Page,rs
Dim TempStr,TemplateStr,stype
Dim TempStyleHelp,StyleHelpValue
stype=Dvbbs.checkStr(request("stype"))
page=Dvbbs.checkStr(request("page"))
If Not IsNumeric(stype) Then
Errmsg=ErrMsg + "<br /><li>错误的样式参数"
Dvbbs_error()
End If
If Not IsTruePage(page) Then
Errmsg=ErrMsg + "<br /><li>要编辑的页面模板字段尚未建立。"
Dvbbs_error()
End If
'模板查错,更新缓存.
If stype="3" Then
Select Case Request("page")
Case "page_dispbbs"
TemplateStr=Request.form("TemplateStr")(1)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板template.html(0)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
Case "page_index"
TemplateStr=Request.form("TemplateStr")(1)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板template.html(0)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
TemplateStr=Request.form("TemplateStr")(2)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板template.html(1)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
TemplateStr=Request.form("TemplateStr")(4)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板template.html(3)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
Case "page_query"
TemplateStr=Request.form("TemplateStr")(1)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板template.html(0)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
Case "main_style"
TemplateStr=Request.form("TemplateStr")(23)
Set TempStr=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
If Not TempStr.Loadxml(TemplateStr) Then
Errmsg=ErrMsg + "论坛首页模板Dvbbs.mainhtml(22)未能通过XML校验,请重新编辑修改,确保无误."
Set TempStr=Nothing
Dvbbs_error()
Exit Sub
End If
End Select
End If
'提取表单中的数据
TemplateStr=""
For Each TempStr in Request.form("TemplateStr")
If LCase(TempStr)<>"del" Then
TemplateStr=TemplateStr&Replace(TempStr,"|||","")&"|||"
End If
Next
TemplateStr=Dvbbs.checkStr(Replace(TemplateStr,"@@@",""))
If Trim(TemplateStr)="" Then
TemplateStr="|||"
End If
'提取表单中的数据
StyleHelpValue=""
For Each TempStyleHelp in Request.form("ReadME")
If TempStyleHelp<>"" Then
StyleHelpValue=StyleHelpValue&TempStyleHelp&"|||"
End If
Next
If Trim(StyleHelpValue)="" Then
StyleHelpValue="|||"
Else
StyleHelpValue=Dvbbs.checkStr(StyleHelpValue)
End If
Set Rs=Dvbbs.Execute("Select ID,StyleName,"&page&" From [Dv_Style] Where ID="&StyleID)
TempStr=Split(Dvbbs.checkStr(Rs(2)),"@@@")
Select Case stype
Case 1
TemplateStr=TempStr(0)&"@@@"&TemplateStr&"@@@"&TempStr(2)
Case 2
TemplateStr=TempStr(0)&"@@@"&TempStr(1)&"@@@"&TemplateStr
Case 3
TemplateStr=TemplateStr&"@@@"&TempStr(1)&"@@@"&TempStr(2)
End Select
Set Rs=Dvbbs.Execute("Select ID,StyleName,"&page&" From [Dv_StyleHelp] Where ID=1")
TempStr=Split(Dvbbs.checkStr(Rs(2)),"@@@")
Select Case stype
Case 1
StyleHelpValue=TempStr(0)&"@@@"&StyleHelpValue&"@@@"&TempStr(2)
Case 2
StyleHelpValue=TempStr(0)&"@@@"&TempStr(1)&"@@@"&StyleHelpValue
Case 3
StyleHelpValue=StyleHelpValue&"@@@"&TempStr(1)&"@@@"&TempStr(2)
End Select
Rs.close:Set Rs=Nothing
Dvbbs.Execute("update [Dv_Style] set "&page&"='"&TemplateStr&"' Where ID="&StyleID)
Dvbbs.Execute("update [Dv_StyleHelp] set "&page&"='"&StyleHelpValue&"' Where ID=1")
If stype="3" Then
Select Case Request("page")
Case "page_dispbbs"
Application.Lock
Application.Contents.Remove(Dvbbs.CacheName & "_dispbbsemplate_"& Request("StyleID"))
Application.unLock
Case "page_index"
Application.Lock
Application.Contents.Remove(Dvbbs.CacheName & "_listtemplate_"& Request("StyleID"))
Application.Contents.Remove(Dvbbs.CacheName & "_indextemplate_"& Request("StyleID"))
Application.Contents.Remove(Dvbbs.CacheName & "_shownews_"&Request("StyleID"))
Application.unLock
Case "page_query"
Application.Lock
Application.Contents.Remove(Dvbbs.CacheName & "_querytemplate_"& Request("StyleID"))
Application.unLock
Case "main_style"
RestoreBoardCache()
Case Else
End Select
End If
Select Case stype
Case 1
Dv_suc(page&"语言包修改成功!")
Case 2
Dv_suc(page&"图片资源修改成功!")
Case 3
Dv_suc(page&"界面风格修改成功!")
End Select
'更新缓存。此处是在模板数据变化的时候需要更新的代码。如有漏掉，可以在这添加。
Dvbbs.Loadstyle()
End Sub
'后台模板编辑
Sub Edit_Main()
Dim Page,mystr
Dim Rs,i
Dim TempStr,TemplateStr,stype
stype=Dvbbs.checkStr(request("stype"))
page=Dvbbs.checkStr(request("page"))
If Not IsNumeric(stype) Then
Errmsg=ErrMsg + "<br /><li>错误的样式参数"
Dvbbs_error()
End If
If page<>"page_admin" Then
Errmsg=ErrMsg + "<br /><li>要编辑的页面模板字段尚未建立。"
Dvbbs_error()
End If
Set Rs=Dvbbs.Execute("Select H_ID,H_Title,H_Content From [Dv_help] Where H_ID=1")
TempStr=Split(Rs(2),"@@@")
Select Case stype
Case 1
TemplateStr=Split(TempStr(1),"|||")
Case 2
TemplateStr=Split(TempStr(2),"|||")
Case 3
TemplateStr=Split(TempStr(0),"|||")
End Select
Response.Write "<form action=""?action=Save_Main&page="&page&"&stype="&stype&"&StyleID="&StyleID&""" method=post>"
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" colspan=""3"" style=""text-align:center;"">"
Response.Write Rs(1)
Response.Write "分页面模板("
Response.Write page
Response.Write ")"
Select Case stype
Case 1
Response.Write "语言包"
mystr="template.Strings"
If page="main_style" Then mystr="Dvbbs.lanstr"
Case 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -