admin_page.asp

1

If Err Then
Err.Clear
Set connexport = Nothing
End If
Set rsb = Server.CreateObject("adodb.recordset")
sql = "select * from 自定义页面 where PageID in("&TemplateProjectID&")"
rsb.Open sql, connexport, 1, 1
i=0
do while not rsb.eof
i=i+1

If IsValidStr_Page(rsb("PageFileName"),2)=False Then
    founderr=true
    errmsg=errmsg&"<li>标签："&PageName&"  文件名称填写错误！</li><li>文件名称只能含有字母和数字，以及“_”符号！</li>"
End if
If IsValidStr_Page(rsb("PageUrl"),1)=False Then
    founderr=true
    errmsg=errmsg&"<li>标签："&PageName&"  页面路径填写错误！</li><li>页面路径不能含有“.”并且第一个字符和最后一个字符不能为"/"！</li>"
End if
If founderr=False Then
set rse=server.createobject("adodb.recordset")
rse.open "select * from 自定义页面 where PageID is null",conn,1,3
rse.addnew
rse("PageName")=rsb("PageName")
rse("PageClass")=rsb("PageClass")
rse("PageType")=rsb("PageType")
rse("PageIntro")=rsb("PageIntro")
rse("PageUrl")=rsb("PageUrl")
rse("PageFileName")=rsb("PageFileName")
rse("PageContent")=rsb("PageContent")
rse.update
rse.close
set rse=nothing
End if
rsb.movenext  
loop 
rsb.Close
Set rsb=nothing
If founderr=true Then
Call WriteSuccessMsg(errmsg&"<br><li>部分标签如果是正确的话，都已经导入成功！</li>","Admin_Page.asp")
Else
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>已经成功将所选中的页面项目导入到数据库中！</li>","Admin_Page.asp")
End if
End Sub
'===================================
Sub FY_Page_doexport
Dim ItemMdb,TemplateProjectID,FormatConn,connstrexport,connexport,rsa,i
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
If FormatConn=1 Then
connexport.execute("delete from 自定义页面")
End If
Set rsa = Server.CreateObject("adodb.recordset")
sql = "select * from 自定义页面 where PageID in("&TemplateProjectID&")"
rsa.Open sql, Conn, 1, 1
i=0
do while not rsa.eof
i=i+1
Dim Rsc
set rsc=server.createobject("adodb.recordset")
rsc.open "select * from 自定义页面 where PageID is null",connexport,1,3
rsc.addnew
rsc("PageName")=rsa("PageName")
rsc("PageClass")=rsa("PageClass")
rsc("PageType")=rsa("PageType")
rsc("PageIntro")=rsa("PageIntro")
rsc("PageUrl")=rsa("PageUrl")
rsc("PageFileName")=rsa("PageFileName")
rsc("PageContent")=rsa("PageContent")
rsc.update
rsc.close
set rsc=nothing
rsa.movenext  
loop 
rsa.Close
Set rsa=nothing
	Call FY_Cache.DelAllCache()
Call WriteSuccessMsg("<li>已经成功将所选中的页面项目导出到指定的数据库中！</li>","Admin_Page.asp")
End If
End Sub
'===================================
'导出页面开始

'===================================
Sub FY_Page_export
%>
<script language = "JavaScript">
    function CheckForm(){
        if (document.myform.ItemMdb.value==""){
            alert("页面数据库地址不能为空！");
            document.myform.ItemMdb.focus();
            return false;
        }
        if (document.myform.TemplateProjectID.value==""){
            alert("请先选择要导出的页面项目！");
            document.myform.TemplateProjectID.focus();
            return false;
        }
    }
<!-- 
  function HideError() {
  return true;
}
window.onerror = HideError;
// -->
</script>
<FORM name=myform action='?action=doexport' method=post>
  <table width='100%' border='0' align='center' cellpadding='2' cellspacing='0' 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='10'></td></tr>
    <tr class='KenQiao_Net_ds'>
      <td align='center'>
        <table border='0' cellspacing='0' cellpadding='0'>
          <tr>
           <td>
            <select name='TemplateProjectID' size='2' multiple style='height:300px;width:450px;'>
<%
Dim i
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="""">没有任何页面</option>"
End If
rs.Close
Set rs=nothing
%>
         </select>
       </td>
       <td align='left'>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 选定所有 ' class='button' onclick='SelectAll()'>
       <br><br>&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' name='Submit' value=' 取消选定 ' class='button' onclick='UnSelectAll()'><br><br><br><b>&nbsp;提示：按住“Ctrl”或“Shift”键可以多选</b></td>
      </tr>
      <tr height='30'>
        <td colspan='2'>目标数据库：../Databackup/<input name='Itemmdb' type='text' id='ItemMdb' value='#KenQiao_Page.Mdb' size='30' maxlength='50'>&nbsp;&nbsp;<INPUT TYPE='checkbox' NAME='FormatConn' value='1' id='id' checked> 先清空目标数据库</td>
      </tr>
      <tr height='50'>
         <td colspan='2' align='center'><input type='submit' name='Submit' value='执行导出操作' class='button' onClick="return CheckForm();">
         </td>
        </tr>
    </table>
   </td>
 </tr>
</form>
</table>
<script language='javascript'>
function SelectAll(){
  for(var i=0;i<document.myform.TemplateProjectID.length;i++){
    document.myform.TemplateProjectID.options[i].selected=true;}
}
function UnSelectAll(){
  for(var i=0;i<document.myform.TemplateProjectID.length;i++){
    document.myform.TemplateProjectID.options[i].selected=false;}
}
</script>
<%
End Sub
'===================================
'修改自定义页面开始

'===================================
Sub FY_Page_modifya
Dim pageid,Rscc
pageid=request.QueryString("pageid")
set rscc=server.createobject("adodb.recordset")
sql="select * from 自定义页面 where PageID="&pageid
rscc.open sql,conn,1,1
if rscc.eof and rscc.bof then
Call WriteErrMsg("<li>操作错误！该页面不存在")
else
%>
<form action='?action=save&pageid=<%=pageid%>' method='post' name='myform' id='myform' onSubmit='return CheckForm();'>
  <table align='center' width='100%' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>
    <tr class='KenQiao_Net_ss' height='22'>
      <td align='center' colspan='3'><strong>修 改 自 定 义 页 面</strong></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>页面名称：</strong></td>
          <td><input name='PageName' type='text' id='PageName' value='<%=rscc("PageName")%>' size='30' maxlength='50'> <font color='#FF0000'>请输入本页面的名称</font></td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>所属分类：</strong></td>
          <td><input name='PageClass' type='text' id='PageClass' value='<%=rscc("PageClass")%>' size='30' maxlength='50'>
<%
Dim rsbb
response.write "<select onChange='PageClass.value=this.value;'><option value=''>新增分类</option>"

set rsbb=server.createobject("adodb.recordset")
sql="select distinct (PageClass) from 自定义页面"
rsbb.open sql,conn,1,1
do while not rsbb.eof
response.write "<option value='"&rsbb("PageClass")&"'>"&rsbb("PageClass")&"</option>"
rsbb.movenext
loop
rsbb.close
set rsbb=nothing

response.write "</select>"
%>
<font color='#FF0000'>请选择所属分类</font></td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>页面路径：</strong></td>
          <td>根目录/<input name='PageUrl' type='text' id='PageUrl' value='<%=rscc("PageUrl")%>' size='20' maxlength='100'> <font color='#FF0000'>请输入生成路径(不填写为根目录)</font> 例如：/Html/</td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>文件名称：</strong></td>
          <td><input name='PageFileName' type='text' id='PageFileName' value='<%=rscc("PageFileName")%>' size='20' maxlength='50' value=''> <font color='#FF0000'>请输入生成文件名(不填写为ASP方式)</font> 例如：New</td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>文件类型：</strong></td>
          <td><input name='PageType' type='radio' value='0' <%if rscc("PageType")=0 then response.write " checked" end if%>>.Html <input name='PageType' type='radio' value='1'<%if rscc("PageType")=1 then response.write " checked" end if%>>.Htm <input name='PageType' type='radio' value='2'<%if rscc("PageType")=2 then response.write " checked" end if%>>.SHtml <input name='PageType' type='radio' value='3'<%if rscc("PageType")=3 then response.write " checked" end if%>>.SHtm <font color='#FF0000'>只能生成上边4种方式的文件</font></td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_qs' height='22'>
      <td align='center' colspan='3'><strong>页 面 内 容 ↓</strong></td>
    </tr>
<%Call KenQiao_BiaoQian()%>
    <tr class='KenQiao_Net_ds'>
     <td colspan='3'>&nbsp;&nbsp;
        <textarea name='PageContent' class='body2' ROWS='10' COLS='108'><%=rscc("PageContent")%></textarea>
     </td>
    </tr>
    <tr class='KenQiao_Net_ds' >
    <td colspan='3'><table><tr>
       <td width='95%'>&nbsp;&nbsp;&nbsp;&nbsp;

       </td>
       <td align='right' width='5%'><img  src='../images/admin/sizeplus.gif' width='20' height='20' onclick="sizeMIntro(5,'PageContent');">&nbsp<img  src='../images/admin/sizeminus.gif' width='20' height='20' onclick="sizeMIntro(-5,'PageContent');">&nbsp;&nbsp;</td></tr>
     </tr>
     </table>
    </td>
  </tr>
    <tr class='KenQiao_Net_ds'>
      <td height='40'  align='center' colspan='3'>
        <input name='Submit' type='submit' id='Submit' value=' 保存修改结果 ' class='button'>
      </td>
    </tr>
   </form>
  </table>
<%
end if
End Sub
'===================================
'添加自定义页面开始

'===================================
Sub FY_Page_addpage
%>
<form action='?action=addpage2' method='post' name='myform' id='myform' onSubmit='return CheckForm();'>
  <table align='center' width='100%' border='1' cellspacing='0' cellpadding='4' class=KenQiao_Net_bk style='border-collapse: collapse'>
    <tr class='KenQiao_Net_ss' height='22'>
      <td align='center' colspan='3'><strong>添 加 自 定 义 页 面</strong></td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>
          <td width='100' align='center'><strong>页面名称：</strong></td>
          <td><input name='PageName' type='text' id='PageName' size='30' maxlength='50'> <font color='#FF0000'>请输入本页面的名称</font></td>
        </tr>
       </table>
      </td>
    </tr>
    <tr class='KenQiao_Net_ds'>
      <td colspan='3'>
       <table border='0' cellpadding='0' cellspacing='0' width='100%' >
        <tr>