📄 admin_page.asp
字号:
Response.Write " <td><input name='PageName' type='text' id='PageName' size='30' maxlength='50' value='" & rsPage("PageName") & "'> <font color='#FF0000'>请输入本页面名称</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
Response.Write " <td width='100' align='center'><strong>所属分类：</strong></td>"
Response.Write "<td><select name='ClassName' id='ClassName'>" & GetClassList(rsPage("ClassName")) & "</select><font color='#FF0000'>请选择所属分类</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
Response.Write " <td width='100' align='center'><strong>页面类型：</strong></td>"
Response.Write " <td><input name='PType' type='radio' value='0' onClick=""changetype(0);"""
If Trim(rsPage("PageFileName") & "") <> "" Then Response.Write " checked"
Response.Write ">静态页面 <input name='PType' type='radio' value='1' onClick=""changetype(1);"""
If Trim(rsPage("PageFileName") & "") = "" Then Response.Write " checked"
Response.Write ">动态页面</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
If Trim(rsPage("PageFileName") & "") = "" Then
Response.Write " <tbody id='pathdiv' style='display:none'><tr class='tdbg'>"
Else
Response.Write " <tbody id='pathdiv'><tr class='tdbg'>"
End If
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
Response.Write " <td width='100' align='center'><strong>页面路径：</strong></td>"
Response.Write " <td><input name='PageUrl' type='text' id='PageUrl' size='30' maxlength='50' value='" & rsPage("PageUrl") & "'> <font color='#FF0000'>请输入生成路径</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
Response.Write " <td width='100' align='center'><strong>文件名称：</strong></td>"
Response.Write " <td><input name='PageFileName' type='text' id='PageFileName' size='30' maxlength='50' value='" & rsPage("PageFileName") & "'> <font color='#FF0000'>请输入生成文件名</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr></tbody>"
If Trim(rsPage("PageFileName") & "") = "" Then
Response.Write " <tbody id='pathdiv2'><tr class='tdbg'>"
Else
Response.Write " <tbody id='pathdiv2' style='display:none'><tr class='tdbg'>"
End If
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
Response.Write " <td width='100' align='center'><strong>访问权限：</strong><br><font color=red>不选为开放页面</font></td>"
Response.Write " <td>" & GetUserGroup(rsPage("arrGroupID") & "", "") & "</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr></tbody>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td>"
Response.Write " <table border='0' cellpadding='0' cellspacing='0' width='100%' >"
Response.Write " <tr>"
If Trim(rsPage("PageFileName") & "") = "" Then
Response.Write " <td width='100' align='center'><div id='itext'><strong>参数声明：</strong></div></td>"
Else
Response.Write " <td width='100' align='center'><div id='itext'><strong>页面简介：</strong></div></td>"
End If
Response.Write " <td><textarea name='PageIntro' cols='80' rows='3' id='PageIntro'>" & rsPage("PageIntro") & "</textarea></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='title' height='22'>"
Response.Write " <td align='center'><strong>页 面 内 容</strong></td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td > "
Response.Write " <textarea name='LabelContent' class='body2' ROWS='10' COLS='108' onMouseUp=""setContent('get',1)"">" & LabelContent & "</textarea>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td > "
Response.Write " <textarea name='LabelContent2' style='display:none' >" & Server.HTMLEncode(EditLabelContent) & "</textarea>"
Response.Write " <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=1&TemplateType=0&tContentid=LabelContent2' frameborder='1' scrolling='no' width='780' height='400' ></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td height='40' align='center'><input name='PageID' type='hidden' id='PageID' value='" & PageID & "'>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveModifyPage'>"
Response.Write " <input name='Submit' type='submit' id='Submit' value=' 保存修改结果 '>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
rsPage.Close
Set rsPage = Nothing
End Sub
Sub SavePage()
Dim PageID, PageName, PageUrl, PageFileName, PageIntro, ClassName
Dim rsPage, sqlPage, trs
Dim PageContent, i
'检查新增权限字段是否存在
Dim dbrr
Set rsPage = Conn.Execute("select top 1 * from PE_Page")
For i = 0 To rsPage.Fields.Count - 1
If rsPage.Fields(i).name = "arrGroupID" Then
dbrr = True
End If
Next
rsPage.Close
Set rsPage = Nothing
If dbrr <> True Then
If SystemDatabaseType = "SQL" Then
Conn.Execute ("alter table PE_Page add arrGroupID nvarchar(255) null")
Else
Conn.Execute ("alter table PE_Page add arrGroupID varchar(255) null")
End If
End If
PageID = Trim(Request.Form("PageID"))
PageName = Trim(Request.Form("PageName"))
ClassName = Trim(Request.Form("ClassName"))
PageUrl = Trim(Request.Form("PageUrl"))
PageFileName = Trim(Request.Form("PageFileName"))
PageIntro = Trim(Request.Form("PageIntro"))
For i = 1 To Request.Form("LabelContent").Count
PageContent = PageContent & Request.Form("LabelContent")(i)
Next
If Action = "SaveModifyPage" Then
If PageID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请指定PageID</li>"
Exit Sub
Else
PageID = PE_CLng(PageID)
End If
End If
If PageName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>页面名称不能为空！</li>"
Else
PageName = ReplaceBadChar(PageName)
End If
If ClassName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>请先指定一个分类！</li>"
Else
ClassName = ReplaceBadChar(ClassName)
End If
If PageUrl = "" Then
PageUrl = "{$InstallDir}"
Else
If Left(PageUrl, 13) <> "{$InstallDir}" Then
If Left(PageUrl, 1) <> "/" Then
PageUrl = "{$InstallDir}" & PageUrl
Else
PageUrl = "{$InstallDir}" & Right(PageUrl, Len(PageUrl) - 1)
End If
End If
End If
If PageFileName <> "" Then
PageFileName = ReplaceBadChar(PageFileName)
End If
If FoundErr = True Then Exit Sub
If Action = "SaveModifyPage" Then
sqlPage = "select * from PE_Page where ID=" & PageID
Set rsPage = Server.CreateObject("ADODB.Recordset")
rsPage.Open sqlPage, Conn, 1, 3
rsPage("PageName") = PageName
rsPage("ClassName") = ClassName
rsPage("PageUrl") = PageUrl
If PageFileName <> "" Then rsPage("PageFileName") = PageFileName
rsPage("PageIntro") = PageIntro
rsPage("PageContent") = PageContent
rsPage("arrGroupID") = Trim(Request("GroupID"))
rsPage.Update
rsPage.Close
Set rsPage = Nothing
If ObjInstalled_FSO = True Then
If fso.FileExists(Server.MapPath(PageUrl & PageFileName)) Then
Call CreateFile(PageID)
End If
End If
Call WriteSuccessMsg("修改自定义页面成功！", ComeUrl & "")
Else
sqlPage = "select top 1 * from PE_Page"
Set rsPage = Server.CreateObject("ADODB.Recordset")
rsPage.Open sqlPage, Conn, 1, 3
rsPage.addnew
rsPage("PageName") = PageName
rsPage("ClassName") = ClassName
rsPage("PageUrl") = PageUrl
If PageFileName <> "" Then rsPage("PageFileName") = PageFileName
rsPage("PageIntro") = PageIntro
rsPage("PageContent") = PageContent
rsPage("arrGroupID") = Trim(Request("arrGroupID"))
rsPage.Update
rsPage.Close
Set rsPage = Nothing
Call WriteSuccessMsg("保存自定义页面成功！", ComeUrl & "")
End If
End Sub
Sub DelPage()
Dim PageID, sqlPage, rsPage, tPageContent
PageID = Trim(Request("PageID"))
If PageID = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
Exit Sub
Else
PageID = PE_CLng(PageID)
End If
sqlPage = "select * from PE_Page where ID=" & PageID
Set rsPage = Server.CreateObject("ADODB.Recordset")
rsPage.Open sqlPage, Conn, 1, 3
If rsPage.BOF And rsPage.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>找不到指定的页面！</li>"
rsPage.Close
Set rsPage = Nothing
Exit Sub
Else
If ObjInstalled_FSO = True Then
If fso.FileExists(Server.MapPath(rsPage("PageUrl") & rsPage("PageFileName"))) Then
fso.DeleteFile Server.MapPath(rsPage("PageUrl") & rsPage("PageFileName"))
End If
End If
End If
rsPage.Delete
rsPage.Update
rsPage.Close
Set rsPage = Nothing
End Sub
Sub ShowJSClass()
Response.Write "<script language = 'JavaScript'>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -