📄 wm.page.asp
字号:
<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("Page") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim TempDir
Dim WM_Name,WM_Explain,WM_Content,WM_Path
ID = WRMPS.CheckStr(Request("ID"), 1)
Page = WRMPS.CheckStr(Request("Page"), 1)
Call DBConnBegin()
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1><tr class=td2><td><a href=WM.Page.asp>管理首页</a> | <a href=?Action=Add>添加</a></td></tr></table>" & vbCrLf
Select Case Request("Action")
Case "Save"
WM_Name = WRMPS.CheckStr(Request("WM_Name"),0)
If WM_Name = "" Then Call WRMPS.ErrView("·请输入页面名称", 0)
WM_Path = WRMPS.CheckStr(Request("WM_Path"),0)
If WM_Path = "" Then Call WRMPS.ErrView("·请输入页面路径", 0)
If Instr(WM_Path,".") = 0 Then Call WRMPS.ErrView("·页面路径有问题", 0)
If Left(WM_Path,1) = "/" Then WM_Path = Right(WM_Path,Len(WM_Path)-1)
WM_Explain = WRMPS.CheckStr(Request("WM_Explain"), 0)
If WM_Explain = "" Then WM_Explain = Null
WM_Content = Request.Form("Content")
If WM_Content = "" Then Call WRMPS.ErrView("·内容不能为空", 0)
Set Rs=server.createobject("adodb.recordset")
Rs.Open "Select WM_Name,WM_Explain,WM_Path,WM_Content From WM_Page Where WM_Path='" & WM_Path & "'", Conn, 1, 3
If Not Rs.EOF Then
Rs.Close
Set Rs = Nothing
Call WRMPS.ErrView("·页面可能已经存在或页面路径重复<meta http-equiv=refresh content='1;URL=?Action=Add'>", 0)
Else
Rs.AddNew
Rs(0) = WM_Name
Rs(1) = WM_Explain
Rs(2) = WM_Path
Rs(3) = WM_Content
Rs.Update
Rs.Close
End If
Set Rs = Conn.Execute("Select max(WM_ID) from WM_Page")
If Not Rs.EOF Then
ID = Rs(0)
End If
Rs.Close
Set Rs = Nothing
Call RehPage(ID)
Call WRMPS.ErrView("·页面添加成功<meta http-equiv=refresh content='1;URL=WM.Page.asp'>", 1)
Case "EditSave"
WM_Name = WRMPS.CheckStr(Request("WM_Name"),0)
If WM_Name = "" Then Call WRMPS.ErrView("·请输入页面名称", 0)
WM_Path = WRMPS.CheckStr(Request("WM_Path"),0)
If WM_Path = "" Then Call WRMPS.ErrView("·请输入页面路径", 0)
If Instr(WM_Path,".") = 0 Then Call WRMPS.ErrView("·页面路径有问题", 0)
If Left(WM_Path,1) = "/" Then WM_Path = Right(WM_Path,Len(WM_Path)-1)
WM_Explain = WRMPS.CheckStr(Request("WM_Explain"), 0)
If WM_Explain = "" Then WM_Explain = Null
WM_Content = Request.Form("Content")
If WM_Content = "" Then Call WRMPS.ErrView("·内容不能为空", 0)
Set Rs=server.createobject("adodb.recordset")
Rs.Open "Select WM_Name,WM_Explain,WM_Content From WM_Page Where WM_ID = " & ID & "", Conn, 1, 3
If Not Rs.EOF Then
Rs(0) = WM_Name
Rs(1) = WM_Explain
Rs(2) = WM_Content
Rs.Update
Rs.Close
End If
Set Rs = Nothing
Call RehPage(ID)
Call WRMPS.ErrView("·页面修改成功<meta http-equiv=refresh content='1;URL=?Page="&Page&"'>", 1)
Case "Del"
Set Rs = Conn.Execute("Select WM_Path From WM_Page Where WM_ID = " & ID)
If Not Rs.EOF Then
Call WRMPS.FsoBegin()
Call WRMPS.FsoDel("File",WR_Setting(3)&Rs(0))
Call WRMPS.FsoEnd()
Conn.Execute ("Delete From WM_Page Where WM_ID = " & ID)
End If
Rs.Close
Set Rs = Nothing
Call WRMPS.ErrView("·页面删除成功<meta http-equiv=refresh content='1;URL=?Page="&Page&"'>", 1)
Case "Add"
Dim DefaultContent
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 & "<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 width='25%'><strong>页面路径</strong><br>填写页面路径，添加后将不能修改<br>如 Index.html 或 Html/Index.html</td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_Path' 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 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&Tool=Page' 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_Explain,WM_Path,WM_Content From WM_Page 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=Page type=hidden value=" & Page & ">" & 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 width='25%'><strong>页面路径</strong></td>" & vbCrLf
Content = Content & "<td width='75%'><input name='WM_Path' type='text' style='width:300' maxlength=50 value='" & Rso(2) & "' readonly> <font Class=Font2>*</font></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(1) & "'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>页面内容</strong></td><td><input type=submit name=Submit value='提 交'></td></tr>" & vbCrLf
WM_Content = Rso(3)
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&Tool=Page' 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 "Reh"
Call RehPage(ID)
Call WRMPS.ErrView("·页面刷新成功<meta http-equiv=refresh content='1;URL=?Page="&Page&"'>", 1)
Case Else
Set ClsPageList = New Cls_PageView
ClsPageList.strTableName = "WM_Page"
ClsPageList.strPageUrl = URLParameter
ClsPageList.strFieldsList = "WM_ID,WM_Name,WM_Explain,WM_Path"
ClsPageList.strCondiction = ""
ClsPageList.strOrderList = "WM_ID desc"
ClsPageList.strPrimaryKey = "WM_ID"
ClsPageList.intPageSize = 20
ClsPageList.intPageNow = Page
ClsPageList.strCookiesName = "RecordCount"
ClsPageList.strPageVar = "Page"
ClsPageList.intRefresh = 1
ClsPageList.inAdmin = 1
ClsPageList.objConn = Conn
ClsPageList.InitClass
arrPage = ClsPageList.arrPage
strPageList = ClsPageList.strPageList
Set ClsPageList = nothing
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=4><strong>页面管理</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td3 align=center>" & vbCrLf
Content = Content & "<td width='20%'>页面名称</td>" & vbCrLf
Content = Content & "<td width='20%'>文件路径</td>" & vbCrLf
Content = Content & "<td width=*>说明</td>" & vbCrLf
Content = Content & "<td width='10%'>操作</td>" & vbCrLf
Content = Content & "</tr>" & vbCrLf
If IsArray(arrPage) Then
For i = 0 to UBound(arrPage, 2)
Content = Content & "<tr class=td2>" & vbCrLf
Content = Content & "<td>" & arrPage(1,i) & "</td>" & vbCrLf
Content = Content & "<td><a href=?Action=Reh&Page="&Page&"&ID=" & arrPage(0,i) & ">"
Call WRMPS.FsoBegin()
If WRMPS.FsoIsTrue("File",WR_Setting(3)&arrPage(3,i)) Then
Content = Content & "<strong>(√)</strong>"
Else
Content = Content & "<strong><font color=#FF0000>(×)</font></strong>"
End If
Call WRMPS.FsoEnd()
Content = Content & "</a> <a href="&WR_Setting(3)&arrPage(3,i)&" title='点击查看' target=_blank>" & arrPage(3,i) & "</a></td>" & vbCrLf
Content = Content & "<td>" & arrPage(2,i) & "</td>" & vbCrLf
Content = Content & "<td align=center>" & vbCrLf
Content = Content & "<a href=?Action=Edit&Page="&Page&"&ID=" & arrPage(0,i) & ">修改</a> | <a href=?Action=Del&Page="&Page&"&ID=" & arrPage(0,i) & " onclick=""return confirm('确定删除？');"">删除</a>"
Content = Content & "</td></tr>" & vbCrLf
Next
End If
Content = Content & "<tr Class=td3><td colspan=4 align=right>"&strPageList&"</td></tr>" & vbCrLf
Content = Content & "<tr Class=td2><td colspan=4><strong>注：</strong>文件路径栏中 <strong><font color=#FF0000>(×)</font></strong> 代表此静态页面不存在，可以点击生成。</td></tr>" & vbCrLf
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 + -