📄 admin_template.asp
字号:
If TempStr1<>TempStr2 or TempStr1<>TempStr3 or TempStr2<>TempStr3 Then
Errmsg=ErrMsg + "<BR><li>图片路径或Css内容不能为空,若要删除Css风格请选取删除选项 !"
Dvbbs_error()
Exit Sub
End If
'取出正被使用的CSS风格ID下标界
Set Rs=Conn.Execute("Select max(Cid) From Dv_Board Where sid="&StyleID)
If Not Rs.eof Then
LockID=Rs(0)
End If
Rs.close:Set Rs=Nothing
If TempStr1-1<LockID Then
Errmsg=ErrMsg + "<BR><li>部分Css风格风格正被使用，删除被中止，请在版块取消选择再进行删除 !"
Dvbbs_error()
Exit Sub
End If
TempCssStyle = CssName &"@@@"& CssContent &"@@@"& CssPicUrl
TempCssStyle = Dvbbs.checkStr(TempCssStyle)
Dvbbs.Execute("Update [Dv_Style] set Forum_CSS='"&TempCssStyle&"' Where ID="&StyleID&"")
Dv_suc("Css样式修改成功！")
Dvbbs.DelCahe("Forum_CSS"&StyleID)'删除模板缓存
End Sub
Sub editmain()
Dim stype,NowEditinfo
Dim mystr
stype=Request("stype")
Select Case stype
Case "1"
NowEditinfo="语言包"
mystr="Dvbbs.lanstr"
Case "2"
NowEditinfo="基本设置"
mystr="mainsetting"
Case "3"
NowEditinfo="HTTP头部分"
mystr="mainhtml(0)"
Case "4"
NowEditinfo="页面开始部分"
mystr="mainhtml(1)"
Case "5"
NowEditinfo="顶部通栏"
mystr="mainhtml(2)"
Case "6"
NowEditinfo="顶部表格"
mystr="mainhtml(3)"
Case "7"
NowEditinfo="导航栏"
mystr="mainhtml(5)"
Case "8"
NowEditinfo="论坛菜单"
mystr="mainhtml(6)"
Case "9"
mystr="mainhtml(4)"
NowEditinfo="结束部分"
Case "10"
mystr="mainpic"
NowEditinfo="图片设置"
Case Else
Errmsg=ErrMsg + "<BR><li>您提交了错误的参数."
Dvbbs_error()
End Select
Set Rs=Dvbbs.Execute("Select Main_Style ,StyleName From [Dv_Style] Where ID="&StyleID&"")
Dim TemplateStr
TemplateStr=Split(server.htmlencode(Rs(0)),"@@@")
Response.Write "<form action=""?action=savemain&stype="&stype&"&StyleID="&StyleID&""" method=post>"
Response.Write "<table width=""95%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center class=""tableBorder"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" class=""tableHeaderText"" colspan=2 height=25>"
Response.Write Rs(1)
Response.Write NowEditinfo
Response.Write "("&mystr&")设置</th></tr>"
Select Case stype
Case "1"
TemplateStr(0)=split(TemplateStr(0),"|||")
For i=0 to UBound(TemplateStr(0))
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""left"" colspan=2>"
Response.Write mystr&"("&i&") "
Response.Write "<input type=text name=""TemplateStr"" value="""&TemplateStr(0)(i)&""" Size=100>"
Response.Write "</td></tr>"
Next
Case "2"
TemplateStr(0)=split(TemplateStr(0),"|||")
TemplateStr(0)(0)=split(TemplateStr(0)(0),"||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<table cellspacing=""1"" cellpadding=""0"" border=""0"" align=""left"" width=""100%"" >"
Response.Write "<tr>"
Response.Write "<td width=""300"" align=""right"" >表格宽度：</td>"
Response.Write "<td align=""left"" class=""forumRowHighlight"" colspan=""3"" >"
Response.Write "<input type=""text"" size=""5"" name=""TemplateStr"" value="""&TemplateStr(0)(0)(0)&"""> "&mystr&"(0)"
Response.Write "</td>"
Response.Write "</tr>"
Dim j,vtitle
vtitle="aa|警告提醒语句的颜色：|显示帖子的时候，相关帖子，转发帖子，回复等的颜色：|首页连接颜色：|一般用户名称字体颜色：|一般用户名称上的光晕颜色：|版主名称字体颜色：|版主名称上的光晕颜色：|管理员名称字体颜色：|管理员名称上的光晕颜色：|贵宾名称字体颜色：|贵宾名称上的光晕颜色：|表格边框颜色："
vtitle=split(vtitle,"|")
For j=1 to 12
Response.Write "<tr>"
Response.Write "<td height=""1"" colspan=""4"" bgcolor=""#6595D6""><td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td height=""25"" width=""300"" align=""right"" >"&vtitle(j)&"</td>"
Response.Write "<td width=""20"" bgcolor="""&TemplateStr(0)(0)(j)&"""></td>"
Response.Write "<td width=""180"" align=""left"">"
Response.Write "<input type=""text"" size=""10"" value="""&TemplateStr(0)(0)(j)&""" name=""TemplateStr"">"&mystr&"("&j&")"
Response.Write "</td>"
Response.Write "<td></td>"
Response.Write "</tr>"
Next
Response.Write "</table>"
Response.Write "</td></tr>"
Case "3"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(0)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "4"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(1)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "5"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(2)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "6"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(3)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "7"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(5)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "8"
TemplateStr(2)=split(TemplateStr(2),"|||")
TemplateStr(2)(6)=split(TemplateStr(2)(6),"###")
For i=0 to UBound(TemplateStr(2)(6))
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Select Case i
Case 0
Response.Write "已登录用户菜单代码<br>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(6)(i)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case 1
Response.Write "未登录用户菜单代码<br>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(6)(i)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case 2
Response.Write "扩展菜单代码<br>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(6)(i)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case 3
Response.Write "菜单分隔图片设置： "
Response.Write "<input type=""text"" size=""20"" value="""&TemplateStr(2)(6)(i)&""" name=""TemplateStr""> "
Response.Write "</td></tr>"
End Select
Next
Case "9"
TemplateStr(2)=split(TemplateStr(2),"|||")
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""center"" colspan=2>"
Response.Write "<textarea name=""TemplateStr"" cols=""130"" rows=""15"">"
Response.Write TemplateStr(2)(4)
Response.Write "</textarea>"
Response.Write "</td></tr>"
Case "10"
TemplateStr(3)=split(TemplateStr(3),"|||")
For i=0 to UBound(TemplateStr(3))
Response.Write "<tr><td class=""forumRowHighlight"" height=40 align=""left"" colspan=2>"
Response.Write mystr&"("&i&") "
Response.Write "<input type=text name=""TemplateStr"" value="""&TemplateStr(3)(i)&""" Size=100>"
Response.Write "</td></tr>"
Next
Case Else
End Select
Response.Write "<tr><td class=""forumRowHighlight"" height=""25"" align=""center"">"
Response.Write "<input type=""reset"" name=""Submit"" value=""重 填"">"
Response.Write "</td>"
Response.Write "<td class=""forumRowHighlight"" height=""25"" align=""center"">"
Response.Write "<input type=""submit"" name=""B1"" value=""修 改"">"
Response.Write "</table>"
Response.Write "</form>"
Set Rs=Nothing
End Sub
Sub savemain()
Dim stype,NowEditinfo,TemplateStr,tempstr,Main_Style
stype=Request("stype")
TemplateStr=""
Set Rs=Dvbbs.Execute("Select Main_Style From [Dv_Style] Where ID="&StyleID&"")
Main_Style=Rs(0)
Set rs=Nothing
Main_Style=split(Main_Style,"@@@")
Select Case stype
Case "1"
NowEditinfo="语言包"
For Each TempStr in Request.form("TemplateStr")
If TempStr<>"" Then
TemplateStr=TemplateStr&TempStr&"|||"
End If
Next
TemplateStr=TemplateStr&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)&"@@@"&Main_Style(3)
Exit Sub
Case "2"
NowEditinfo="基本设置"
For Each TempStr in Request.form("TemplateStr")
If TempStr<>"" Then
TemplateStr=TemplateStr&TempStr&"||"
Else
TemplateStr=TemplateStr&Chr(1)&"||"
End If
Next
TemplateStr=Left(TemplateStr,Len(TemplateStr)-2)
Main_Style(0)=split(Main_Style(0),"|||")
Dim i
For i=1 to UBound(Main_Style(0))
TemplateStr=TemplateStr&"|||"&Main_Style(0)(i)
Next
TemplateStr=TemplateStr&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)'&"@@@"&Main_Style(3)
Case "3"
NowEditinfo="HTTP头部分"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&TemplateStr&"|||"&Main_Style(2)(1)&"|||"&Main_Style(2)(2)&"|||"&Main_Style(2)(3)&"|||"&Main_Style(2)(4)&"|||"&Main_Style(2)(5)&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Exit Sub
Case "4"
NowEditinfo="页面开始部分"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&TemplateStr&"|||"&Main_Style(2)(2)&"|||"&Main_Style(2)(3)&"|||"&Main_Style(2)(4)&"|||"&Main_Style(2)(5)&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Exit Sub
Case "5"
NowEditinfo="顶部通栏"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&Main_Style(2)(1)&"|||"&TemplateStr&"|||"&Main_Style(2)(3)&"|||"&Main_Style(2)(4)&"|||"&Main_Style(2)(5)&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Exit Sub
Case "6"
NowEditinfo="顶部表格"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&Main_Style(2)(1)&"|||"&Main_Style(2)(2)&"|||"&TemplateStr&"|||"&Main_Style(2)(4)&"|||"&Main_Style(2)(5)&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Case "7"
NowEditinfo="导航栏"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&Main_Style(2)(1)&"|||"&Main_Style(2)(2)&"|||"&Main_Style(2)(3)&"|||"&Main_Style(2)(4)&"|||"&TemplateStr&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Case "8"
NowEditinfo="论坛菜单"
For Each TempStr in Request.form("TemplateStr")
TemplateStr=TemplateStr&TempStr&"###"
Next
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&Main_Style(2)(1)&"|||"&Main_Style(2)(2)&"|||"&Main_Style(2)(3)&"|||"&Main_Style(2)(4)&"|||"&Main_Style(2)(5)&"|||"&TemplateStr&"@@@"&Main_Style(3)
Exit Sub
Case "9"
NowEditinfo="结束部分"
TemplateStr=Request.form("TemplateStr")
Main_Style(2)=split(Main_Style(2),"|||")
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)(0)&"|||"&Main_Style(2)(1)&"|||"&Main_Style(2)(2)&"|||"&Main_Style(2)(3)&"|||"&TemplateStr&"|||"&Main_Style(2)(5)&"|||"&Main_Style(2)(6)&"@@@"&Main_Style(3)
Case "10"
NowEditinfo="图片设置"
For Each TempStr in Request.form("TemplateStr")
If TempStr<>"" Then
TemplateStr=TemplateStr&TempStr&"|||"
End If
Next
TemplateStr=Main_Style(0)&"@@@"&Main_Style(1)&"@@@"&Main_Style(2)&"@@@"&TemplateStr
Exit Sub
Case Else
Errmsg=ErrMsg + "<BR><li>您提交了错误的参数."
Dvbbs_error()
End Select
TemplateStr=Dvbbs.checkStr(TemplateStr)
'Response.Write TemplateStr
Dvbbs.Execute("Update [Dv_Style] set Main_Style='"&TemplateStr&"' Where ID="&StyleID&"")
Dv_suc("主模板"&NowEditinfo&"修改成功!")
Dvbbs.DelCahe "Main_Style"&StyleID
End Sub
Sub ghost()
Dim oldStyleID,newStyleID
oldStyleID=Request("oldStyleID")
newStyleID=Request("newStyleID")
If Not IsNumeric(newStyleID) or Not IsNumeric(oldStyleID) Then
Errmsg=ErrMsg + "<BR><li>参数错误。"
Dvbbs_error()
Exit Sub
End If
If newStyleID="" Or oldStyleID="" Then
Errmsg=ErrMsg + "<BR><li>参数错误。"
Dvbbs_error()
Exit Sub
End If
oldStyleID=CLng(oldStyleID)
newStyleID=CLng(newStyleID)
If newStyleID = oldStyleID Then
Errmsg=ErrMsg + "<BR><li>目标模板和源模板不能相同。"
Dvbbs_error()
Exit Sub
End If
Set Rs=Dvbbs.Execute("select * From [Dv_Style] where ID="&oldStyleID&"")
If Rs.EOF Or Rs.BOF Then
Errmsg=ErrMsg + "<BR><li>无法取出源模版数据"
Dvbbs_error()
Exit Sub
End If
Dim SQLSTR
For i= 2 to Rs.Fields.Count-1
SQLSTR=SQLSTR&Rs(i).Name&"='"&Dvbbs.checkStr(Rs(i))&"'"
If i<> Rs.Fields.Count-1 Then
SQLSTR=SQLSTR&","
End If
Dvbbs.DelCahe(Rs(i).Name&newStyleID)
Dvbbs.DelCahe("head_"&newStyleID)
Dvbbs.DelCahe("ForumPlusMenu"&newStyleID)
Dvbbs.DelCahe("BbsListTop"&newStyleID)
Next
Dvbbs.DelCahe("BbsListTop"&newStyleID)
Dvbbs.Execute("Update [Dv_Style] set "&SQLSTR&" where ID="&newStyleID&" ")
Dv_suc("模板克隆成功!")
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -