⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 setup.asp

📁 新闻发布系统
💻 ASP
字号:
<!--#include file = include.asp-->
<!--#include file = admin_CheckMana.asp-->
<%
'=========================================================
'产品目录:风讯产品N系列
'软件名称:风讯站点管理系统
'当前版本:2004.I.0225
'最新更新:2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作:轻风云(QQ:655071)
'Email:skeen@cooin.com,skeen@Foosun.net
'论坛支持:风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================
if EnoughPopedom("setup")=1 then
Response.write"<script>alert(""[操作失败]\n\n你的权限不足!\n\n请与系统管理员联系获得足够的权限!"");location.href=""javascript:history.back()"";</script>"
Response.end
end if
  set rs=Server.CreateObject("Adodb.Recordset")
  sql="select * from Config"
  rs.open sql,conn,3,3
  check=rs("check")
  if request.form("operation")="Modify" then
    rs("Email")=request.form("Email")
    rs("Domain")=request.form("Domain")
    rs("FileSize")=request.form("FileSize")
    rs("RecommendNews")=request.form("RecommendNews")
	rs("iRecommend")=request.form("iRecommend")
    rs("HotNews")=request.form("HotNews")
	rs("iHotNews")=request.form("iHotNews")
    rs("HNTitle")=request.form("HNTitle")
    rs("RNTitle")=request.form("RNTitle")
	rs("LNTitle")=request.form("LNTitle")
	rs("HNTitle1")=request.form("HNTitle1")
    rs("RNTitle1")=request.form("RNTitle1")
	rs("LNTitle1")=request.form("LNTitle1")
    rs("ConfineFile")=request.form("ConfineFile")
    rs("ReviewTemplet")=request.form("ReviewTemplet")
	rs("ShowPic")=request.form("ShowPic")
	rs("WordNumber")=request.form("WordNumber")
	rs("spcount")=request.form("spcount")
	rs("PicNum")=CInt(replace(request("PicNum")," ",""))
	rs("iBp")=CInt(replace(request.form("iBp")," ",""))
	rs("iBpN")=CInt(replace(request.form("iBpN")," ",""))
	rs("iBpNt")=CInt(replace(request.form("iBpNt")," ",""))
	rs("LastNews")=request.form("LastNews")
	rs("iLastNews")=request.form("iLastNews")
	rs("imarquee")=request.Form("imarquee")
	rs("marqueesp")=request.Form("marqueesp")
    rs.update
	response.Redirect("setup.asp")
  end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body bgcolor="#FFFFFF">
<form name=form method=post action="" onsubmit="return CheckSetup()">
  <table width="99%" height="561" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#7ED3A7">
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td colspan="4"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="images/bg1.gif">
          <tr> 
            <td height="26"> <div align="center"><b><strong><font color="#990000">系统参数设置</font></strong></b></div></td>
          </tr>
        </table></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199"> <div align="right">您的信箱:</div></td>
      <td colspan="3"> <input name="Email" type="text" value=<%=rs("email")%> size="40"> 
      </td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">您的新闻路径: </div></td>
      <td height="19" colspan="3"> <input name="Domain" type="text" value=<%=rs("Domain")%> size="40">
        请使用http://路径</td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">上传文件类型: </div></td>
      <td height="19" colspan="3"> <input type="text" size=40 name="ConfineFile" value=<%=rs("ConfineFile")%>>
        (请用“,”逗号隔开) </td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">每页新闻文字数量:</div></td>
      <td height="19"> <input type="text" size=5 name="WordNumber" value="<%=rs("WordNumber")%>" onBlur="Isvalidity(WordNumber,'每页新闻文字数量')">
        (<font color="#0000FF">默认3000、用于新闻分页</font>) </td>
      <td height="19"> <div align="right">限制上传文件大小:</div></td>
      <td> <input type="text" size=5 name="FileSize" value=<%=rs("FileSize")%> onBlur="Isvalidity(FileSize,'限制上传文件大小')">
        (KB) </td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">设置专题调用数目:</div></td>
      <td width="284" height="19"> <input name="spcount" type="text" id="spcount" onBlur="Isvalidity(WordNumber,'每页新闻文字数量')" value="<%=rs("spcount")%>" size=5> 
      </td>
      <td width="158"> <div align="right">添加新闻是否审核:</div></td>
      <td width="305"> <input type="radio" name="check" value="true" <% if check=true then response.write "checked"%>>
        <input name="check" type="radio" value="false" <% if check=false then response.write "checked"%>>
        否</td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">推荐新闻显示数量:</div></td>
      <td height="19" colspan="3"> <input type="text" size=5 name="RecommendNews" value=<%=rs("RecommendNews")%> onBlur="Isvalidity(RecommendNews,'推荐新闻显示数量')">
          设置推荐新闻标题显示字数 
        <input name="iRecommend" type="text" id="iRecommend" value="<%=rs("iRecommend")%>" size="5"> 
        <font color="#0000FF"> 汉字占2个字符</font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">最新新闻显示数量:</div></td>
      <td height="19" colspan="3"> <input type="text" size=5 name="LastNews" value="<%=rs("LastNews")%>" onBlur="Isvalidity(LastNews,'最新新闻显示数量')">
          设置最新新闻标题显示字数 
        <input name="iLastNews" type="text" id="iLastNews" value="<%=rs("iLastNews")%>" size="5"> 
        <font color="#0000FF"> 汉字占2个字符</font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">热点新闻显示数量:</div></td>
      <td height="19" colspan="3"> <div align="right"></div>
        <input type="text" size=5 name="HotNews" value=<%=rs("HotNews")%> onBlur="Isvalidity(HotNews,'热点新闻显示数量')">
          设置热点新闻标题显示字数 
        <input name="iHotNews" type="text" id="iHotNews" value="<%=rs("iHotNews")%>" size="5"> 
        <font color="#0000FF"> 汉字占2个字符</font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right"> 滚动新闻显示数量:</div></td>
      <td height="19" colspan="3"> <input name="imarquee" type="text" id="imarquee" value="<%=rs("imarquee")%>" size="5"> 
        <input name="marqueesp" type="text" id="marqueesp" value="<%=rs("marqueesp")%>" size="5">
        默认为5,数字越大滚动越快!!</td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td height="19"><div align="right">首页图片调用条数:</div></td>
      <td height="19" colspan="3"><input name="PicNum" type="text" id="PicNum" value="<%=rs("PicNum")%>" size="6">
        导读(并排)显示条数: 
        <input name="iBp" type="text" id="iBp" value="<%=rs("iBp")%>" size="5">
        一行几条: 
        <input name="iBpN" type="text" id="iBpN" value="<%=rs("iBpN")%>" size="5">
        标题字数: 
        <input name="iBpNt" type="text" id="iBpNt" value="<%=rs("iBpNt")%>" size="5">
        汉字占2个字符</td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">热点新闻标题导航图标: </div></td>
      <td height="19" colspan="3"> <input type="text" size=20 name="HNTitle" value="<%=rs("HNTitle")%>">
        <font color="#0000FF">&lt;不能使用HTML语法&gt; <font color="#000000">分类:</font> 
        <input name="HNTitle1" type="text" id="HNTitle1" value="<%=rs("HNTitle1")%>" size=20>
        &lt;可使用HTML语法&gt; </font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">推荐新闻标题导航图标: </div></td>
      <td height="19" colspan="3"> <input type="text" size=20 name="RNTitle" value="<%=rs("RNTitle")%>">
        <font color="#0000FF">&lt;不能使用HTML语法&gt;<font color="#000000"> 分类:</font> 
        <input name="RNTitle1" type="text" id="RNTitle1" value="<%=rs("RNTitle1")%>" size=20>
        &lt;可使用HTML语法&gt; </font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">最新新闻标题导航图标: </div></td>
      <td height="19" colspan="3"> <input type="text" size=20 name="LNTitle" value="<%=rs("LNTitle")%>">
        <font color="#0000FF">&lt;不能使用HTML语法&gt;<font color="#000000"> 分类:</font> 
        <input name="LNTitle1" type="text" id="LNTitle1" value="<%=rs("LNTitle1")%>" size=20>
        &lt;可使用HTML语法&gt; </font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19"> <div align="right">图片新闻标志: </div></td>
      <td height="19" colspan="3"> <input type="text" size=20 name="ShowPic" value="<%=rs("ShowPic")%>">
        <font color="#0000FF">&lt;可使用HTML语法&gt; </font></td>
    </tr>
    <tr valign="middle" bgcolor="#F7FFF4"> 
      <td width="199" height="19" valign="top"> <div align="right">评论模板:<br>
          评论内容:<font color="#0000FF">[ReviewContent]<br>
          </font>关于评论:<font color="#0000FF">[AboutReview]</font><br>
          <br>
        </div></td>
      <td height="19" colspan="3"> <textarea name="ReviewTemplet" cols="50" rows="10"><%=rs("ReviewTemplet")%></textarea> 
      </td>
    </tr>
    <tr align="center" valign="middle" bgcolor="#F7FFF4"> 
      <input type=hidden name=operation value=Modify>
      <td height="62" colspan="4"> <input type="submit" value=" 修 改 " onclick="return modify()" class=Anbutc> 
        <input type="reset" value=" 还 原 " onclick="return reset1()" class=Anbutc> 
        <!--#include file = name.asp-->
      </td>
    </tr>
  </table>
</form>
</body>
</html>
<% 
  rs.close
  set rs=nothing
%>

⌨️ 快捷键说明

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