📄 admin_page.asp
字号:
Numtemp=True
if Strtemp<>"<table" and Strtemp <>"</table>" then
Num=Num+2
End if
Strtemp="<table"
elseif Instr(arrContent(i),"<tr")>0 then
Numtemp=True
if Strtemp<>"<tr" and Strtemp<>"</tr>" then
Num=Num+2
End if
Strtemp="<tr"
elseif Instr(arrContent(i),"<td")>0 then
Numtemp=True
if Strtemp<>"<td" and Strtemp<>"</td>" then
Num=Num+2
End if
Strtemp="<td"
elseif Instr(arrContent(i),"</table>")>0 then
Numtemp=True
if Strtemp<>"</table>" and Strtemp<>"<table" then
Num=Num-2
End if
Strtemp="</table>"
elseif Instr(arrContent(i),"</tr>")>0 then
Numtemp=True
if Strtemp<>"</tr>" and Strtemp<>"<tr" then
Num=Num-2
End if
Strtemp="</tr>"
elseif Instr(arrContent(i),"</td>")>0 then
Numtemp=True
if Strtemp<>"</td>" and Strtemp<>"<td" then
Num=Num-2
End if
Strtemp="</td>"
elseif Instr(arrContent(i),"<" & "!--")>0 then
Numtemp=True
End if
if Num< 0 then Num = 0
if trim(arrContent(i))<>"" then
if i=0 then
strHtml2= string(Num," ") & arrContent(i)
elseif Numtemp=True then
strHtml2= strHtml2 & vbCrLf & string(Num," ") & arrContent(i)
else
strHtml2= strHtml2 & vbCrLf & arrContent(i)
end if
end if
Next
Resumeblank=strHtml2
End function
</script>
<%
End Sub
Sub SaveItemInfo()
dim sTemp,OItemDir
dim ItemName,ItemDir,ProjectID,CssID,ItemIntro
ItemName = Trim(request("ItemName"))
ItemDir = Trim(request("ItemDir"))
ProjectID = Cl.GetClng(request("ProjectID"))
CssID = Cl.GetClng(request("CssID"))
ItemIntro = Trim(request("ItemIntro"))
if ItemName="" then
Cl.ShowErr("<br /><li>项目名不能为空！</li>")
end if
if ProjectID=0 then
Cl.ShowErr("<br /><li>请选择项目模板！</li>")
end If
ItemDir = Cl.ReplaceBadChar(ItemDir)
Set rs=Server.CreateObject("Adodb.RecordSet")
Select Case Action
Case "SaveAddItem"
Cl.CreateFolder(Cl.WebDir & ItemDir)
OpenConn : rs.open "Select Top 1 * From Cl_PageItem",Conn,1,3
rs.addnew
Case "SaveModifyItem"
OpenConn : rs.open "Select * From Cl_PageItem Where ItemID=" & ItemID,Conn,1,3
if rs.bof and rs.EOF then
rs.close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的记录！</li>")
end if
OItemDir=rs("ItemDir")
if Cstr(OItemDir)<>Cstr(ItemDir) then
if Not Cl.MoveFolder(Cl.WebDir & OItemDir,Cl.WebDir & ItemDir) then
rs.close:set rs=Nothing
Cl.ShowErr("<br /><li>根目录下已经存在“"&ItemDir&"”目录，请重新输入！</li>")
end if
end if
Case Else
Set rs=Nothing
Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
rs("ItemName") = ItemName
rs("ItemDir") = ItemDir
rs("ItemIntro") = Replace(ItemIntro&"",Vbcrlf,"")
rs("ProjectID") = ProjectID
rs("CssID") = CssID
rs.update
rs.Close:set rs=Nothing
Cl.SaveAdminLog
Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
Response.Write "parent.left.location.reload();window.location.href='Admin_Page.asp';" &vbcrlf
Response.Write "</script>"
End Sub
Sub SavePageInfo()
dim sTemp,OItemDir
dim PageID,PageName,FileName,FileExt,PageIntro,Content
PageID = Cl.GetClng(request("PageID"))
PageName = Trim(request("PageName"))
FileName = Trim(request("FileName"))
FileExt = Lcase(Trim(request("FileExt")))
PageIntro = Trim(request("PageIntro"))
Content = Trim(request("Content"))
if PageName="" or FileName="" or FileExt="" then
Cl.ShowErr("<br /><li>页面名或文件名不能为空！</li>")
end if
if Instr(FileExt,"asp")>0 or Instr(FileExt,"asa")>0 or Instr(FileExt,"cer")>0 or Instr(FileExt,"cdx")>0 or Instr(FileExt,"htr")>0 then
Cl.ShowErr("<br /><li>非法扩展名，扩展名中不能含有“asp”“asa”“cer”等字符，请重新输入！</li>")
end if
FileName=Cl.ReplaceBadChar(FileName)
FileExt=Cl.ReplaceBadChar(FileExt)
FileExt = Replace(FileExt,"'","")
Set rs=Server.CreateObject("Adodb.RecordSet")
Select Case Action
Case "SaveAddPage"
if ItemID=0 then
Cl.ShowErr("<br /><li>请选择所属项目！</li>")
end if
PageID=Cl.Execute("Select Max(PageID) From Cl_Page")(0)
PageID=Cl.GetClng(PageID)+1
OpenConn : rs.open "Select Top 1 * From Cl_Page",Conn,1,3
rs.addnew
rs("ItemID") = ItemID
rs("PageID") = PageID
Case "SaveModifyPage"
if PageID=0 then
Cl.ShowErr("<br /><li>请指定要修改的页面！</li>")
end if
OpenConn : rs.open "Select * From Cl_Page Where PageID=" & PageID,Conn,1,3
if rs.bof and rs.EOF then
rs.close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的记录！</li>")
end if
ItemID=rs("ItemID")
Case Else
Set rs=Nothing
Cl.ShowErr("<br /><li>参数错误！</li>")
End Select
rs("PageName") = PageName
rs("FileName") = FileName
rs("FileExt") = FileExt
rs("Content") = Content
rs("PageIntro") = Replace(PageIntro&"",Vbcrlf,"")
rs.update
rs.Close:set rs=Nothing
Cl.SaveAdminLog
CreatePage ItemID,PageID,PageName,FileName,FileExt,Content
Response.Redirect "Admin_Page.asp?Action=PageMain&ItemID="&ItemID
End Sub
Sub DelItem()
Sql="Select * From Cl_PageItem Where ItemID="&ItemID
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.open sql,Conn,1,3
if rs.bof and rs.EOF then
rs.Close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的项目！</li>")
end if
if Trim(rs("ItemDir"))<>"" then Cl.DelFolder(Cl.WebDir & rs("ItemDir"))
rs.delete
rs.update
rs.Close:set rs=Nothing
Cl.Execute("delete from Cl_Page Where ItemID="&ItemID)
Cl.SaveAdminLog
Response.Write "<script language='JavaScript' type='text/JavaScript'>" &vbcrlf
Response.Write "parent.left.location.reload();window.location.href='Admin_Page.asp';" &vbcrlf
Response.Write "</script>"
End Sub
Sub DelPage()
Dim PageID,FileName
PageID=Cl.GetClng(request("PageID"))
Sql="Select * From Cl_Page Where PageID="&PageID
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.open sql,Conn,1,3
if rs.bof and rs.EOF then
rs.Close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的页面！</li>")
end if
ItemID=rs("ItemID")
FileName=rs("FileName")
rs.delete
rs.update
rs.Close:set rs=Nothing
Set rs=Cl.Execute("Select * From Cl_PageItem Where ItemID="&ItemID)
if Not (rs.bof and rs.EOF) then
Cl.DelFiles(Replace(Cl.WebDir&rs("ItemDir") &"/"&FileName,"//","/"))
end if
rs.Close:set rs=Nothing
Cl.SaveAdminLog
Response.Redirect "Admin_Page.asp?Action=PageMain&ItemID="&ItemID
End Sub
Sub CreateItem()
Dim sPagePath,Fso,Make,sHtml
Sql="Select P.PageID,I.ItemID,I.ItemName,I.ItemDir,I.ProjectID,I.CssID,P.PageName,P.FileName,P.FileExt,P.PageIntro,P.Content,P.IsCreate From Cl_Page P Inner Join Cl_PageItem I On P.ItemID=I.ItemID Where P.ItemID="&ItemID
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.open sql,Conn,1,1
if rs.bof and rs.EOF then
rs.Close:set rs=Nothing
Cl.ShowErr("<br /><li>此项目没有页面要生成！</li>")
end if
Template.ProjectID=rs("ProjectID")
Template.CssID=rs("CssID")
'Cl.LoadTemplates("")
Set Fso = CreateObject(Trim(Cl.Web_Info(13)))
Do while Not rs.Eof
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text&"<a href='" & Cl.WebDir & rs("ItemDir") & "'>" & rs("ItemName") & "</a> >> " & rs("PageName")
Cl.Title = Cl.NoHtml(rs("ItemName")) & "--"&rs("PageName")&" [" & Cl.Web_info(1) & "]"
sHtml=rs("Content")
sHtml=Template.ReplaceLabel(sHtml)
sHtml=Template.ReplaceAllFlag(sHtml)
sPagePath=Replace(Cl.WebDir&rs("ItemDir") &"/"&rs("FileName")&"."&rs("FileExt"),"//","/")
Set Make = Fso.CreateTextFile(Server.MapPath(sPagePath), True)
Make.Write sHtml & vbNewLine & "<!--Powered by:"& ClCMS_Version & "(http://www.as"&"poo.n"&"et/) " &_
"CreateDate:"&Now&"-->"
Set Make = Nothing
rs.MoveNext
Loop
Set Fso=Nothing
rs.Close:set rs=Nothing
Cl.SaveAdminLog
Call Cl.OutMsg(0,"恭喜您，生成此项目的所有页面完成！","Admin_Page.asp")
End Sub
Sub CreatePage(Byval ItemID,Byval PageID,Byval PageName,Byval FileName,Byval FileExt,Byval Content)
Dim SQLM,RsM,sPagePath
ItemID=Cl.GetClng(ItemID)
PageID=Cl.GetClng(PageID)
if PageID=0 or ItemID=0 then Exit Sub
SQLM="Select ItemID,ItemName,ItemDir,ProjectID,CssID From Cl_PageItem Where ItemID="&ItemID
Set rsM=Cl.Execute(SQLM)
Template.ProjectID=rsM("ProjectID")
Template.CssID=rsM("CssID")
if Not (rsM.bof and rsM.EOF) then
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text&"<a href='" & Cl.WebDir & rsM(2) & "'>" & rsM(1) & "</a> >> " & PageName
Cl.Title = Cl.NoHtml(rsM(1)) & "--"&PageName&" [" & Cl.Web_info(1) & "]"
Content=Template.ReplaceLabel(Content)
Content=Template.ReplaceAllFlag(Content)
sPagePath=Replace(Cl.WebDir & rsM(2) & "/"&FileName & "."&FileExt,"//","/")
Cl.MakeHtml Content,sPagePath
Cl.Execute("Update Cl_Page Set IsCreate="&TrueType&" where PageID="&PageID)
end if
rsM.Close:set rsM=Nothing
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -