admin_constmodify.asp

庐江二中

<%PageName="admin_ConstModify"%>
<!--#include file="conn.asp"-->
<!--#include file="session.asp"-->
<%checkAdmin3
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
Dim EmailObjects(2)
Dim IsOk(2)
EmailObjects(0) = "JMail.SMTPMail"
EmailObjects(1) = "CDONTS.NewMail"
EmailObjects(2) = "Persits.MailSender"
for i=0 to ubound(EmailObjects)
	If IsObjInstalled(EmailObjects(i)) Then
		IsOk(i)=true
		CanSend=true
	else
		IsOk(i)=false
	end if
next
%>
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<br>
<table border="1" width="98%" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
   <tr> 
<td align=center>
<form method="POST" action="admin_ConstSave.asp" id=form2 name=form2>
<table border="1" width="100%" cellpadding="0" cellspacing="0" Class=TableLine bordercolorlight="<%=MainBColor%>">
<tr>
            <td width="100%" height="20" align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>网 
              站 资 料 设 置</b></td>
</tr>
</table>
<br>
        <table border="1" width="100%" cellpadding="0" cellspacing="0" Class=TableLine bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
          <tr> 
            <td width="100%" height="20" colspan=2 align=center bgcolor="<%=MainTColor%>"><b>网 
              站 属 性</b></td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">网站标题：</td>
            <td width="70%" height="30"> <input type="text" name="WebTitle" value="<%=WebTitle%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">网站地址：</td>
            <td width="70%" height="30"> <input type="text" name="WebUrl" value="<%=WebUrl%>" size="40"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">网站Logo地址：</td>
            <td width="70%" height="30"> <input type="text" name="Logo" value="<%=Logo%>" size="40"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">文章图片路径：</td>
            <td width="70%" height="30"> <input type="text" name="ImgPath" value="<%=ImgPath%>" size="56"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">版权信息：</td>
            <td width="70%" height="30"> <input type="text" name="Copyright" value="<%=Copyright%>" size="56">
              可用HTML </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">版本信息：</td>
            <td width="70%" height="30"> <input type="text" name="Ver" value="<%=Ver%>" size="40">
              请保留版权&quot;LJez System&quot;信息 </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">站长信箱：</td>
            <td width="70%" height="30"> <input type="text" name="AdminEmail" value="<%=AdminEmail%>" size="40"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">开站日期：</td>
            <td width="70%" height="30"> <input type="text" name="StartDate" value="<%=StartDate%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">文章页FLASH宽度：</td>
            <td width="70%" height="30"> <input type="text" name="FlashWidth" value="<%=FlashWidth%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">分页文章显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxList" value="<%=MaxList%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">首页文章显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxNewsList" value="<%=MaxNewsList%>" size="20">
            </td>
          </tr>
          <tr> 
            <td width="30%" height="30" align="right">首页大类显示方式：</td>
            <td width="70%" height="30">
<select name="fentitle">
                <option value=0<%if fentitle=0 then%> selected<%end if%>>不分列</option>
                <option value=1<%if fentitle=1 then%> selected<%end if%>>标题分列</option>
                <option value=2<%if fentitle=2 then%> selected<%end if%>>大类分列（有右栏）</option>
                <option value=3<%if fentitle=3 then%> selected<%end if%>>大类分列（无右栏）</option>              
				</select>
              无右栏时显示图片： 
              <select name="ShowClassImg" size="1">
                <option value=0<%if ShowClassImg=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ShowClassImg=1 then%> selected<%end if%>>是</option>
              </select></td>
          </tr>
          <tr> 
            <td width="30%" height="30" align="right">大类页显示方式：</td>
            <td width="70%" height="30">
			<select name="BigModel">
                <option value="0"<%if BigModel=0 then%> selected<%end if%>>不分列</option>
                <option value="1"<%if BigModel=1 then%> selected<%end if%>>小类分列</option>
              </select>
              是否显示右栏： 
              <select name="ShowBigModelRight" size="1">
                <option value=0<%if ShowBigModelRight=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ShowBigModelRight=1 then%> selected<%end if%>>是</option>
              </select></td>			  				
          </tr>
          <tr> 
            <td width="30%" height="30" align="right">小类页是否显示右栏：</td>
            <td width="70%" height="30">
              <select name="ShowSmallModelRight" size="1">
                <option value=0<%if ShowSmallModelRight=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ShowSmallModelRight=1 then%> selected<%end if%>>是</option>
              </select></td>			  				
          </tr>
          <tr> 
            <td width="30%" height="30" align="right">专题文章页是否显示右栏：</td>
            <td width="70%" height="30">
              <select name="ShowSpecialModelRight" size="1">
                <option value=0<%if ShowSpecialModelRight=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ShowSpecialModelRight=1 then%> selected<%end if%>>是</option>
              </select></td>			  				
          </tr>		  
          <tr> 
            <td width="30%" height="30" align="right">文章浏览页是否显示右栏：</td>
            <td width="70%" height="30">
              <select name="ShowNewsModelRight" size="1">
                <option value=0<%if ShowNewsModelRight=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ShowNewsModelRight=1 then%> selected<%end if%>>是</option>
              </select></td>			  				
          </tr>		  		  		  
          <tr> 
            <td width="30%" align="right" height="30">焦点文章显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxFocusNewsList" value="<%=MaxFocusNewsList%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">推荐文章显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxGoodNewsList" value="<%=MaxGoodNewsList%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">热门文章显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxTxtList" value="<%=MaxTxtList%>" size="20">
              日限： 
              <input type="text" name="MaxTxtListDate" value="<%=MaxTxtListDate%>" size="3">
              0为无限制。 </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">热门图片显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxImgList" value="<%=MaxImgList%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">专题显示数：</td>
            <td width="70%" height="30"> <input type="text" name="MaxSpecialList" value="<%=MaxSpecialList%>" size="20"> 
            </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">NEW标志限制天数：</td>
            <td width="70%" height="30"> <input type="text" name="InDate" value="<%=InDate%>" size="20">
              多少天以内在标题上显示“NEW”标志 </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30"><font color="#FF0000">开启文章审核功能：</font></td>
            <td width="70%" height="30"> <select name="OpenCheck" size="1">
                <option value=0<%if OpenCheck=0 then%> selected<%end if%>>否</option>
                <option value=1<%if OpenCheck=1 then%> selected<%end if%>>是</option>
              </select> </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30"><font color="#FF0000">允许非会员浏览文章：</font></td>
            <td width="70%" height="30"> <select name="ReadFree" size="1">
                <option value=0<%if ReadFree=0 then%> selected<%end if%>>否</option>
                <option value=1<%if ReadFree=1 then%> selected<%end if%>>是</option>
              </select> <font color="#FF0000">如果否，请在[小类管理]中设定各类浏览等级</font> </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30"><font color="#FF0000">允许自由注册：</font></td>
            <td width="70%" height="30"> <select name="RegFree" size="1">
                <option value=0<%if RegFree=0 then%> selected<%end if%>>否</option>
                <option value=1<%if RegFree=1 then%> selected<%end if%>>是</option>
              </select> </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">图片上传组件选择：</td>
            <td width="70%" height="30"> <select name="uploadFlag" size="1">
                <option value=0<%if uploadFlag=0 then%> selected<%end if%>>关闭（使用传统FTP工具上传）</option>
                <option value=1<%if uploadFlag=1 then%> selected<%end if%>>无组件（需FSO即服务器读写支持）</option>
                <option value=2<%if uploadFlag=2 then%> selected<%end if%>>注册组件（需在服务器端注册组件）</option>
              </select> <font color="#FF0000">如服务器都不支持请关闭 </font></td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">SMTPServer发信地址：</td>
            <td width="70%" height="30"> <input type="text" name="SMTPServer" value="<%=SMTPServer%>" size="20">
              建议使用：smtp.21cn.net </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">发信组件选择：</td>
            <td width="70%" height="30"> <select name="EmailFlag" size="1">
                <option value="Close"<%if EmailFlag="Close" then%> selected<%end if%>>关闭</option>
                <%if IsOk(0)=true then%>
                <option value="JMail"<%if EmailFlag="JMail" then%> selected<%end if%>>使用JMail组件</option>
                <%end if%>
                <%if IsOk(1)=true then%>
                <option value="CDONTS"<%if EmailFlag="CDONTS" then%> selected<%end if%>>使用CDONTS组件</option>
                <%end if%>
                <%if IsOk(2)=true then%>
                <option value="ASPEmail"<%if EmailFlag="ASPEmail" then%> selected<%end if%>>使用ASPEmail组件</option>
                <%end if%>
              </select> <font color=<%=AlertFColor%>> 
              <%if Cansend<>true then%>
              您的服务器不支持发信 
              <%else%>
              这里列出的是您服务器所支持的发信 
              <%end if%>
              </font> </td>
          </tr>
          <tr> 
            <td width="30%" align="right" height="30">网站延时设定：</td>
            <td width="70%" height="30"> <input type="text" name="Time_out" value="<%=Time_out%>" size="20"> 
            </td>
          </tr>
        </table>
<hr width=90% size=1 color=#FFFFFF>
        <table border="1" width="100%" cellspacing="0" Class=TableLine bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
          <tr> 
            <td width="100%" height="20" colspan=2 align=center bgcolor="<%=MainTColor%>"><b>首&nbsp;页 
              栏 目 设 定</b></td>
          </tr>
          <tr>