📄 admin_page.asp

📁 1
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/md5.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check("管理标签","您没有管理标签的权限，请联系管理员新增")
Dim action,classtype
action=request("Action")
classtype=ReplaceBadChar(request("classtype"))
%>
<HTML><HEAD><TITLE>自定义页面管理</TITLE>
<META http-equiv=MIntro-Type MIntro="text/html; charset=gb2312">
<LINK href="../images/admin/admin.css" type=text/css rel=stylesheet>
<META MIntro="MSHTML 6.00.2800.1126" name=GENERATOR><script type="text/javascript" src="Inc/popup.js"></script>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<script language = 'JavaScript'>
function CheckForm(){
  if (document.myform.PageName.value==''){
     alert('页面名称不能为空！');
     document.myform.PageName.focus();
     return false;
  }
  if (document.myform.PageClass.value==''){
     alert('所属分类不能为空！');
     document.myform.PageClass.focus();
     return false;
  }
  if (document.myform.PageContent.value==''){
     alert('页面内容不能为空！');
     document.myform.PageContent.focus();
     return false;
  }
  if (document.myform.PageUrl.value==''){
     alert('页面路径不能为空！');
     document.myform.PageUrl.focus();
     return false;
  }
  if (document.myform.PageFileName.value==''){
     alert('文件名称不能为空！');
     document.myform.PageFileName.focus();
     return false;
  }
}
function ops(str1,str2,str3)
{
dWin=showModalDialog(str1,window,'dialogHeight:'+str2+'px;dialogWidth:'+str3+'px;scroll:no;resizable:no;status:no;help:no');
}
function insertLabel(strLabel)
{
  myform.PageContent.focus();
  var str = document.selection.createRange();
  str.text = strLabel
}
    function sizeMIntro(num,objname){
        var obj = document.getElementById(objname);
        if (parseInt(obj.rows)+num>=1) {
            obj.rows = parseInt(obj.rows) + num;
        }
        if (num>0){
            obj.width="90%";
        }
    }
</script>
<table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse"><tr class=KenQiao_Net_ss><td colspan="6">自 定 义 页 面 管 理</td></tr><tr align="left" class=KenQiao_Net_ds><td colspan="6">  管理导航：<a href='Admin_Page.asp'>自定义页面管理首页</a>&nbsp;|&nbsp;<a href='Admin_Page.asp?action=addpage'>添加自定义页面</a>&nbsp;|&nbsp;<a href='Admin_Page.asp?action=import'>导入自定义页面</a>&nbsp;|&nbsp;<a href='Admin_Page.asp?action=export'>导出自定义分类</a>&nbsp;|&nbsp;    </td> </tr></table><br>
<%

Select Case action
Case "del"
    Call FY_Page_del
Case "save"
    Call FY_Page_save
Case "addpage2"
    Call FY_Page_addpage2
Case "import2"
    Call FY_Page_import2
Case "import"
    Call FY_Page_import
Case "doimport"
    Call FY_Page_doimport
Case "export"
    Call FY_Page_export
Case "modifya"
    Call FY_Page_modifya
Case "addpage"
    Call FY_Page_addpage
Case "doexport"
    Call FY_Page_doexport
Case Else
    Call FY_Page_Main
End Select
Sub FY_Page_

End Sub
'=================删除==================
Sub FY_Page_del
Dim pageid
pageid=trim(request.QueryString("pageid"))
conn.execute("delete from 自定义页面 where PageID="&pageid)
Call FY_Cache.DelAllCache()
response.redirect Request.ServerVariables("HTTP_REFERER")
End Sub
'=================修改==================
Sub FY_Page_save
Dim KenQiao_PageName,KenQiao_PageClass,KenQiao_PageType,KenQiao_PageUrl,KenQiao_PageFileName,KenQiao_PageIntro,KenQiao_PageContent,pageid
pageid=trim(request.QueryString("pageid"))
KenQiao_PageName=trim(request.form("PageName"))
KenQiao_PageClass=trim(request.form("PageClass"))
KenQiao_PageType=FY_CLng(trim(request.form("PageType")))
KenQiao_PageUrl=trim(request.form("PageUrl"))
If KenQiao_PageUrl="" Then KenQiao_PageUrl=InstallDir
KenQiao_PageFileName=trim(request.form("PageFileName"))
'KenQiao_PageIntro=trim(request.form("PageIntro"))
KenQiao_PageContent=trim(request.form("PageContent"))

If IsValidStr_Page(KenQiao_PageFileName,2)=False Then
    founderr=true
    errmsg=errmsg&"<li>文件名称填写错误！</li><li>文件名称只能含有字母和数字，以及“_”符号！</li>"
End if
If IsValidStr_Page(KenQiao_PageUrl,1)=False Then
    founderr=true
    errmsg=errmsg&"<li>页面路径填写错误！</li><li>页面路径不能含有“.”并且第一个字符和最后一个字符不能为“/”！</li>"
End if
If founderr=False Then

set rs=server.createobject("adodb.recordset")
sql="select * from 自定义页面 where PageID="&pageid
rs.open sql,conn,1,3
rs("PageName")=FormatStr(KenQiao_PageName)
rs("PageClass")=FormatStr(KenQiao_PageClass)
rs("PageType")=KenQiao_PageType
rs("PageUrl")=FormatStr(KenQiao_PageUrl)
rs("PageFileName")=FormatStr(KenQiao_PageFileName)
'rs("PageIntro")=FormatStr(KenQiao_PageIntro)
rs("PageContent")=FormatStr(KenQiao_PageContent)
rs.update
rs.close
set rs=nothing
Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>修改自定义页面成功！","Admin_Page.asp")
	Call FY_Cache.DelAllCache()
Else
Call WriteErrMsg(errmsg)
End if
End Sub
'=================添加==================
Sub FY_Page_addpage2
Dim KenQiao_PageName,KenQiao_PageClass,KenQiao_PageType,KenQiao_PageUrl,KenQiao_PageFileName,KenQiao_PageIntro,KenQiao_PageContent
KenQiao_PageName=trim(request.form("PageName"))
KenQiao_PageClass=trim(request.form("PageClass"))
KenQiao_PageType=FY_CLng(trim(request.form("PageType")))
KenQiao_PageUrl=trim(request.form("PageUrl"))
If KenQiao_PageUrl="" Then KenQiao_PageUrl=InstallDir
KenQiao_PageFileName=trim(request.form("PageFileName"))
KenQiao_PageIntro=trim(request.form("PageIntro"))
KenQiao_PageContent=trim(request.form("PageContent"))
If IsValidStr_Page(KenQiao_PageFileName,2)=False Then
    founderr=true
    errmsg=errmsg&"<li>文件名称填写错误！</li><li>文件名称只能含有字母和数字，以及“_”符号！</li>"
End if
If IsValidStr_Page(KenQiao_PageUrl,1)=False Then
    founderr=true
    errmsg=errmsg&"<li>页面路径填写错误！</li><li>页面路径不能含有“.”并且第一个字符和最后一个字符不能为“/”！</li>"
End if
If founderr=False Then
set rs=server.createobject("adodb.recordset")
rs.open "select * from 自定义页面",conn,1,3
rs.addnew
rs("PageName")=FormatStr(KenQiao_PageName)
rs("PageClass")=FormatStr(KenQiao_PageClass)
rs("PageType")=KenQiao_PageType
rs("PageUrl")=FormatStr(KenQiao_PageUrl)
rs("PageFileName")=FormatStr(KenQiao_PageFileName)
rs("PageIntro")=FormatStr(KenQiao_PageIntro)
rs("PageContent")=FormatStr(KenQiao_PageContent)
rs.update
Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>添加自定义页面成功！","Admin_Page.asp")
rs.close
set rs=nothing
	Call FY_Cache.DelAllCache()
Else
Call WriteErrMsg(errmsg)
End if
End Sub
'===================================
'导入页面第二步开始

'===================================
Sub FY_Page_import2
Dim ItemMdb,TemplateProjectID,FormatConn,connstrexport,connexport,rsd
ItemMdb=request("ItemMdb")
TemplateProjectID=request("TemplateProjectID")
FormatConn=request("FormatConn")
connstrexport="DBQ="+server.mappath("../Databackup/"&ItemMdb)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set connexport=server.createobject("ADODB.CONNECTION")
connexport.open connstrexport
If Err Then
Err.Clear
Call WriteErrMsg("<li>导入的页面数据库地址错误，请正确填写！</li>")
Set connexport = Nothing
Else
%>
<script language = "JavaScript">
    function CheckForm(){
        if (document.myform.TemplateProjectID.value==""){
            alert("请先选择要导出的页面项目！");
            document.myform.TemplateProjectID.focus();
            return false;
        }
    }
</script>
<form name='myform' action='?action=doimport' method='post' >
  <table align='center' width='100%' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>
    <tr class='KenQiao_Net_ss'>
      <td height='22' align='center'><strong>页面导入（第二步）</strong></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td height='100' align='center'>
        <br>
        <table border='0' cellspacing='0' cellpadding='0'>
          <tr align='center'>
            <td><strong>将被导入的页面项目</strong><br>
<select name='TemplateProjectID' size='2' multiple style='height:300px;width:350px;'>
<%
Dim i
Set rsd = Server.CreateObject("adodb.recordset")
sql = "select * from 自定义页面"
rsd.Open sql, connexport, 1, 1
If Not(rsd.bof And rsd.EOF) Then
i=0
do while not rsd.eof
i=i+1
%>
<option value="<%=rsd("PageID")%>">[<%=rsd("PageClass")%>] -- <%=rsd("PageName")%></option>
<%
rsd.movenext  
loop 
Else
Response.Write"<option value="""">暂无任何页面项目</option>"
End If
rsd.Close
Set rsd=nothing
%>
</select></td>
            <td width='80'><input type='submit' name='Submit' value='导入&gt;&gt;' class='button' onClick="return CheckForm();"></td>
            <td><strong>系统中已经存在的页面项目</strong><br>
<select name='tItemID' size='2' multiple style='height:300px;width:350px;' disabled>
<%
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from 自定义页面"
rs.Open sql, Conn, 1, 1
If Not(rs.bof And rs.EOF) Then
i=0
do while not rs.eof
i=i+1
%>
<option value="<%=rs("PageID")%>">[<%=rs("PageClass")%>] -- <%=rs("PageName")%></option>
<%
rs.movenext  
loop 
Else
Response.Write"<option value=""0"">暂无任何页面项目</option>"
End If
rs.Close
Set rs=nothing
%>
</select></td>
          </tr>
        </table>
            <br><b>提示：按住“Ctrl”或“Shift”键可以多选</b><br>
        <input name='ItemMdb' type='hidden' id='ItemMdb' value='<%=ItemMdb%>'>
        <br>
      </td>
    </tr>
   </form>
  </table>
<%
End If
End Sub
'===================================
'导入页面第一步开始

'===================================
Sub FY_Page_import
%>
<script language = "JavaScript">
    function CheckForm(){
        if (document.myform.ItemMdb.value==""){
            alert("页面数据库地址不能为空！");
            document.myform.ItemMdb.focus();
            return false;
        }
    }
</script>
<form name='myform' action='?action=import2' method='post' >
  <table align='center' width='100%' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>
    <tr class='KenQiao_Net_ss'>
      <td height='22' align='center'><strong>页面导入（第一步）</strong></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td height='100'>&nbsp;&nbsp;&nbsp;&nbsp;请输入要导入的页面数据库的文件名：
        ../Databackup/<input name='ItemMdb' type='text' id='ItemMdb' value='#KenQiao_Page.Mdb' size='50' maxlength='50'>
        <input name='Submit' type='submit' id='Submit' value=' 下一步 ' class='button' onClick="return CheckForm();"></td>
    </tr>
   </form>
  </table>
<%
End Sub
'===================================
Sub FY_Page_doimport
Dim ItemMdb,TemplateProjectID,FormatConn,connstrexport,connexport,rsb,i,rse
ItemMdb=request("ItemMdb")
TemplateProjectID=request("TemplateProjectID")
FormatConn=request("FormatConn")
connstrexport="DBQ="+server.mappath("../Databackup/"&ItemMdb)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set connexport=server.createobject("ADODB.CONNECTION")
connexport.open connstrexport
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -