| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1554 人关注过本帖
标题:帮忙解决后台设置多个IP不能访问
只看楼主 加入收藏
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
结帖率:60%
收藏
已结贴  问题点数:20 回复次数:8 
帮忙解决后台设置多个IP不能访问
我的网站config.asp代码如下:
<%
Const MaxFileSize="100000"        '上传文件大小限制
Const SaveUpFilesPath="UploadFile"         '存放上传文件的目录
Const UpFileType="jpg|gif|png"        '允许的上传文件类型
Const byteType=""        '留言本过滤词语       //
Const byteipType=""        '网站恶意IP地址留言屏蔽
Const bytezfType=""        '网站恶意广告留言字符屏蔽
Const newsipType="192.168.1.2|192.168.1.3"    '浏览文章IP限制设置(填写为允许、发文需要相应设置),用小写"|"分开。
%>

注:前提我发文章时已设置好

我设置了单个IP地址(192.168.1.2)就可直接访问打开该篇文章,设置两个IP地址就不能访问打开(设置方法如:192.168.1.2|192.168.1.3),为什么会这样。

以下这段IP限制判断语句是否有错呢?

<%
'文章ip限制
    if cINT(backtype1)=1 then
    dim byte2
    byte2=split(newsipType,"|")
    for i=0 to ubound(byte2)
        if Request.serverVariables("REMOTE_ADDR")<>byte2(i) then
        Show_Err("对不起,此篇文章只供内部浏览,请联系管理员!。<br><br><a href='javascript:history.back()'>返回</a>")
        Response.End
        end if
    next
    end if
%>

楼下有我网站内文件所涉及到 newsipType 的内容源码(红色字部份)


版主,您8楼帮我修改的代码还是不能用,会变成所有栏目里的文章都无法打开访问(打开后是提示:无法显示网页)。请您再次帮我一看看好吗?

我在线等你帮忙.

叩请帮忙解决。谢谢。


















[ 本帖最后由 zpfycms 于 2012-9-2 14:04 编辑 ]
搜索更多相关主题的帖子: 文章 留言本 上传文件 网站 
2012-08-30 14:09
netlin
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:24
帖 子:544
专家分:4308
注 册:2012-4-9
收藏
得分:7 
要解决这个问题,得找到解析 newsipType 内容的代码,研究它是怎样解析多个IP地址的,才好解决你的问题。

做自己喜欢的事!
2012-08-30 22:31
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
收藏
得分:0 
我对asp不熟悉,谢谢netlin大哥的帮忙。我的网站里找不到 newsipTyp 的文件,也找不到所谓的内容代码,请问一般情况下这个是单独的asp文件吗?


我网站后台代码:


<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="Function.asp"-->
<!--#include file="ChkUser.asp" -->
<!--#include file="ChkManage.asp" -->
<SCRIPT event=onclick for=Ok language=JavaScript>
  window.returnValue = moveurl.value
  window.close();
</SCRIPT>
<script>
function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
</script>
<%
IF request.cookies(eChsys)("ManageKEY")<>"super" then
    Show_Err("对不起,您的后台管理权限不够!")
    response.end
else
    response.buffer=true
    Response.Expires=0

    Set rs9 = Server.CreateObject("ADODB.Recordset")
    sql9 ="SELECT * From "& db_EC_System_Table &" Order By id DESC"
    RS9.open sql9,Conn,1,1
    if rs9("system")="1" or request.cookies(eChsys)("ManagePurview")="99999" then
        %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 系统设置</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
.STYLE2 {color: #FF6600}
-->
</style>
<SCRIPT language="JavaScript" type="text/javascript">
// Begin color
    function color(color)
    {
    url = 'color.htm';
    window.open(url,color,"width=430,height=440,status=no,toolbar=no,menubar=no,resizable=no");
    }
// End color-->

function getServeUrl()
    {
    document.system.xpurl.value = "<%=ServerHttpUrl("E_System.asp")%>";
    }
</script>
</head>
<body topmargin="0">

<div align="center">
<table width="100%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#FFDFBF" bgcolor="#ffffff" id="AutoNumber1" style="border-collapse: collapse">
<form method="post" action="E_SystemSave.asp" name="system">
<tr>
    <td colspan="3" height=25 class="title"  background="images/admin_topbg.gif">
        <div align="center">| 网站属性设置 |</div>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" ><font color=red>*</font>网站名称:</td>
    <td  colspan="2" align="left" >
        <input type="text" name="SiteName" size="50" value="<%=rs9("SiteName")%>" >    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" ><font color=red>*</font>网站地址:</td>
    <td  colspan="2" align="left">
        <input type="text" name="xpurl" size="40" value="<%=rs9("xpurl")%>" >
        <input type="button" name="geturl" value="当前获取"  onclick="javascript:getServeUrl()" > <font color=red>非常重要</font>(系统安装所在http地址)    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" ><font color=red>*</font>网管信箱:</td>
    <td  colspan="2" align="left" >
        <input type="text" name="email" size="50" value="<%=rs9("email")%>" >    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >网管QQ:</td>
    <td  colspan="2" align="left" >
        <input type="text" name="QQ" size="50" value="<%=rs9("QQ")%>" >    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >版权声明:</td>
    <td  colspan="2" align="left" >
    <input type="text" name="Copyright" size="50" value="<%=rs9("Copyright")%>" ></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >单位地址:</td>
    <td  colspan="2" align="left" >
    <input type="text" name="Address" size="50" value="<%=rs9("Address")%>" ></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >邮政编码:</td>
    <td  colspan="2" align="left" >
    <input type="text" name="Zip" size="50" value="<%=rs9("Zip")%>" ></td>
</tr>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >联系电话:</td>
    <td  colspan="2" align="left" >
    <input type="text" name="Tel" size="50" value="<%=rs9("Tel")%>" ></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >版本信息:</td>
    <td  colspan="2" align="left" > <font color="#000000"><b>[<%=rs9("version")%>&nbsp;<%=rs9("ver")%>] </b></font></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">导航菜单分级:</td>
    <td colspan="2" align="left">
        <select name="B_BG" size="1" id="gd1" >
        <option <%if rs9("B_BG")="1" then%>selected<%end if%> value="1">一级</option>
        <option <%if rs9("B_BG")="0" then%>selected<%end if%> value="0">二级</option>
        <option <%if rs9("B_BG")="3" then%>selected<%end if%> value="3">三级</option>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">LOGO图标:</td>
    <td colspan="2" align="left">
        <input name="logo" type="text" id="logo"  value="<%=rs9("logo")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">LOGO图标URL:</td>
    <td colspan="2" align="left">
        <input name="logourl" type="text" id="logourl"  value="<%=rs9("logourl")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">LOGO类型:</td>
    <td colspan="2" align="left">
        <select name="gd1" size="1" id="gd1" >
        <option <%if rs9("gd1")<>"0" then%>selected<%end if%> value="1">photo</option>
        <option <%if rs9("gd1")="0" then%>selected<%end if%> value="0">flash</option>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">首页顶部Banner条:</td>
    <td colspan="2" align="left">
        <input name="TopBanner" type="text" id="TopBanner"  value="<%=rs9("TopBanner")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">首页顶部Banner条URL:</td>
    <td colspan="2" align="left">
        <input name="TopBannerurl" type="text" id="TopBannerurl"  value="<%=rs9("TopBannerurl")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">子页面顶部Banner条:</td>
    <td colspan="2" align="left">
        <input name="OtherTopBanner" type="text" id="OtherTopBanner"  value="<%=rs9("OtherTopBanner")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">子页面顶部Banner条URL:</td>
    <td colspan="2" align="left">
        <input name="OtherTopBannerurl" type="text" id="OtherTopBannerurl"  value="<%=rs9("OtherTopBannerurl")%>" size="50">    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">Banner条类型:</td>
    <td colspan="2" align="left">
        <select name="gd2" size="1" id="gd2" >
        <option <%if rs9("gd2")<>"0" then%>selected<%end if%> value="1">photo</option>
        <option <%if rs9("gd2")="0" then%>selected<%end if%> value="0">flash</option>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">首页视频点播URL:</td>
    <td colspan="2" align="left">

<IFRAME name=ad src="UploadMove.htm" frameBorder=0 width="100%" scrolling=no
height=20></IFRAME>
        <input id=moveurl name=moveurl value='<%=rs9("moveurl")%>'  title='可直接输入网上MediaPlay文件的地址,或由上传程序自动产生MediaPlay文件地址' size="50" tyle="font-size: 9pt;  color: #000000; background-color: #FEEBE4; solid #FEEBE4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#FEEBE4'"><font color="#FF0000">从上传中自动获取地址,或者手动添加链接地址!</font>      </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >上传文件类型:</td>
    <td  colspan="2" align="left" >
        <input type="text" name="UpFileType" size="50" value="<%=UpFileType%>" ><font color="#FF0000">用小写“|”分开</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >上传文件大小:</td>
    <td  colspan="2" align="left" >
        <input type="text" name="MaxFileSize" size="50" value="<%=MaxFileSize%>" ><font color="#FF0000">K</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >留言本评论过滤词语:</td>
    <td height="17" colspan="2" align="left" >
        <input name="byteType" type="text"  value="<%=byteType%>" size="50"><font color="#FF0000">用小写“|”分开</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" ><font color="#FF0000">网站恶意IP地址言论屏蔽:<font ></td>
    <td height="17" colspan="2" align="left" >
        <input name="byteipType" type="text"  value="<%=byteipType%>" size="50"><font color="#FF0000">用小写“|”分开</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" ><font color="#FF0000">网站恶意广告言论字符屏蔽:<font ></td>
    <td height="17" colspan="2" align="left" >
        <input name="bytezfType" type="text"  value="<%=bytezfType%>" size="50"><font color="#FF0000">用小写“|”分开</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >浏览文章IP限制设置,<br>
      (填写为允许、发文需要相应设置):</td>
    <td height="17" colspan="2" align="left" >
        <input name="newsipType" type="text"  value="<%=newsipType%>" size="50"><font color="#FF0000">用小写“|”分开</font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193"  align="right" bgcolor="#FFFFFF">
        自定义顶部(TOP)菜单:<br>
        <br>
        <font color="#FF0000">HTML格式书写,如不支持FSO,<br>
        编辑config.asp</font><br>    </td>
    <td colspan="2" align="left">
        <textarea name="echuangmenu" cols="80" rows="6" ><%=echuangmenu%></textarea><font color="#FF0000"></font>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193"  align="right" bgcolor="#FFFFFF">
        自定义底部(BOTTOM)菜单:<br>
        <br>
        <font color="#FF0000">HTML格式书写,如不支持FSO,<br>
        编辑config.asp</font>    </td>
    <td colspan="2" align="left">
        <textarea name="BOTTOMmenu" cols="80" rows="6" ><%=BOTTOMmenu%></textarea>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">首页浮动广告:</td>
    <td colspan="2" align="left">
        <select name="R_BG" size="1" >
        <option <%if rs9("R_BG")<>"0" then%>selected<%end if%> value="1">启用</option>
        <option <%if rs9("R_BG")="0" then%>selected<%end if%> value="0">关闭</option>
        </select>    </td>
    </tr>
<tr bgcolor="#FFFFFF">
  <td align="right" bgcolor="#FFFFFF">其他分页浮动广告:</td>
  <td colspan="2" align="left"><select name="AD_Show" size="1" >
    <option <%if rs9("AD_Show")="1" then%>selected<%end if%> value="1">启用</option>
    <option <%if rs9("AD_Show")="0" then%>selected<%end if%> value="0">关闭</option>
  </select></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">浮动广告类型:</td>
    <td colspan="2" align="left">
        <select name="ad_class" size="1" >
        <option <%if rs9("ad_class")="1" then%>selected<%end if%> value="1">图片</option>
        <option <%if rs9("ad_class")="0" then%>selected<%end if%> value="0">FLASH</option>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" height="18" align="right" bgcolor="#FFFFFF">浮动广告地址:</td>
    <td colspan="2" align="left">
        <input type="text" name="R_TOP" size="50" value="<%=rs9("R_TOP")%>" >
        *注意广告文件类型要与上行选择相配    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">浮动广告链接地址:</td>
    <td colspan="2" align="left">
        <input type="text" name="L_MAIN" size="50" value="<%=rs9("L_MAIN")%>" >    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">浮动广告说明:</td>
    <td colspan="2" align="left">
        <input type="text" name="R_MAIN" size="50" value="<%=rs9("R_MAIN")%>" >    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF">首页弹出公告:</td>
    <td colspan="2" align="left">
        <select size="1" name="E_announceview" style="font-family: 宋体; font-size: 9pt" >
    <option <%if rs9("E_announceview")=1 then%>selected<%end if%> value="1">开启</option>
    <option <%if rs9("E_announceview")=0 then%>selected<%end if%> value="0">关闭</option>
    </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" bgcolor="#FFFFFF"> <p align="right">状态栏信息:</p></td>
    <td colspan="2" align="left" >
    <textarea  name="gg1" cols="80" rows="4" ><%=rs9("gg1")%></textarea>    </td>
</tr>
<tr class="TDtop">
    <td colspan="3"><div align="center">显示条数设置</div></td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >首页文章配图显示张数:</td>
    <td colspan="2" align="left">
        <select size="1" name="L_BG" >
        <%for i=1 to 3%>
            <option <%if rs9("L_BG")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >首页文章列表显示条数:</td>
    <td colspan="2" align="left">
        <select size="1" name="index_top_news" >
        <%for i=1 to 30%>
            <option <%if rs9("index_top_news")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >总栏页面文章显示条数:</td>
    <td colspan="2" align="left">
        <select size="1" name="top_news" >
        <%for i=1 to 30%>
            <option <%if rs9("top_news")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >大类页面文章显示条数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="bigclassshownum" >
        <%for i=1 to 30%>
            <option <%if rs9("bigclassshownum")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >专题显示条数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="top_sp" >
        <%for i=1 to 30%>
            <option <%if rs9("top_sp")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >热门文章显示条数:</td>
    <td  colspan="2" align="left" > <select size="1" name="top_txt" >
        <%for i=1 to 30%>
            <option <%if rs9("top_txt")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >最新图文显示条数:</td>
    <td  colspan="2" align="left" > <select size="1" name="top_img" >
        <%for i=1 to 30%>
            <option <%if rs9("top_img")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >阅读文章页面评论条数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="reviewnum" >
        <%for i=1 to 30%>
            <option <%if rs9("reviewnum")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >图片JS文章调用数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="picnum" >
        <%for i=1 to 30%>
            <option <%if rs9("picnum")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >一般JS文章调用数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="newsnum" >
        <%for i=1 to 30%>
            <option <%if rs9("newsnum")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >用户、单位部门排行榜显示数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="topuser" >
        <%for i=1 to 30%>
            <option <%if rs9("topuser")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td width="193" align="right" >首页友情链接(LOGO)链接显示数:</td>
    <td  colspan="2" align="left" >
        <select size="1" name="linkshownum" >
        <%for i=1 to 30%>
            <option <%if rs9("linkshownum")=i then%>selected<%end if%> value="<%=i%>"><%=i%></option>
        <%next%>
        </select>    </td>
</tr>
<tr bgcolor="#FFFFFF">
    <td colspan="3">
        <div align="center">
        <input type="submit" name="Submit" value="提交" >
        <input type="reset" name="Submit2" value="重设" >
        </div>    </td>
</tr>
</form>
</table>
</div>
</body>
</html>
<!--#include file="Admin_Bottom.asp"-->
        <%rs9.close
        set rs9=nothing
        conn.close
        set conn=nothing
    else
        Show_Err("对不起,该功能已经被超级系统管理员关闭,您没有权限操作!")
        response.end
    end if
end if%>


后台设置好后,在config.asp里可以看到我设置的可访问IP

<%
Const MaxFileSize="950000"        '上传文件大小限制
Const SaveUpFilesPath="UploadFile"                '存放上传文件的目录
Const UpFileType="doc|ppt|xls|rar|zip|mdb|mp3|pdf|gsp|DWF|txt"        '允许的上传文件类型
Const byteType="操|垃圾|狗屎|日|婊子|妈的|贱|法轮功|胡锦涛"        '留言本过滤词语
Const byteipType=""        '网站恶意IP地址留言屏蔽
Const bytezfType="www|http"        '网站恶意广告留言字符屏蔽
Const newsipType="192.168.1.2|192.168.1.3"        '浏览文章IP限制设置(填写为允许、发文需要相应设置)








[ 本帖最后由 zpfycms 于 2012-8-31 11:49 编辑 ]
2012-08-31 11:43
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
收藏
得分:0 
我将我网站内所有涉及到 newsipType 的文件上传上来了。

E_systemSave.asp文件内容

<% @language="vbscript" %>
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp"-->
<!--#include file="ChkManage.asp" -->
<!--#include file="ChkURL.asp"-->
<%
IF request.cookies(eChsys)("ManageKEY")<>"super" then
    Show_Err("对不起,您的后台管理权限不够!")
    response.end
else

    Set rs9 = Server.CreateObject("ADODB.Recordset")
    sql9 ="SELECT * From "& db_EC_System_Table &" Order By id DESC"
    RS9.open sql9,Conn,1,1
    if rs9("system")="1" or request.cookies(eChsys)("ManagePurview")="99999" then

    xpurl=request("xpurl")
    email=request("email")
    QQ=request("QQ")
    copyright=request("copyright")
    version=request("version")
    ver=request("ver")
    Address=request("Address")
    zip=request("zip")
    tel=request("tel")
    gd1=request("gd1")
    gd2=request("gd2")
    B_BG=request("B_BG")
   
    index_top_news=request("index_top_news")
    top_news=request("top_news")
    L_BG=request("L_BG")
    bigclassshownum=request("bigclassshownum")
    top_sp=request("top_sp")
    top_txt=request("top_txt")
    top_img=request("top_img")
    newsnum=request("newsnum")
    picnum=request("picnum")
    topuser=request("topuser")
    linkshownum=request("linkshownum")
    reviewnum=request("reviewnum")
   
    logo=request("logo")
    logourl=request("logourl")
    TopBanner=request("TopBanner")
    TopBannerurl=request("TopBannerurl")
    OtherTopBanner=request("OtherTopBanner")
    OtherTopBannerurl=request("OtherTopBannerurl")
    moveurl=request("moveurl")
    E_announceview=request("E_announceview")


   
    gg1=server.htmlencode(request("gg1"))
    gg1=CheckStr(gg1)
    SiteName=server.htmlencode(request("SiteName"))
    SiteName=CheckStr(SiteName)
    Address=server.htmlencode(request("Address"))
    Address=CheckStr(Address)
    CopyRight=server.htmlencode(request("CopyRight"))
    CopyRight=CheckStr(CopyRight)
   
    if DbType="ACCESS" then
        version="V2010"
    end if
   
    if DbType="MSSQL" then
        version="V2010"
    end if
   
    if DbType="MYSQL" then
        version="V2010"
    end if
   
    ver="V6022"
    R_BG=request("R_BG")
    AD_Show=request("AD_Show")
    ad_class=request("ad_class")
    R_TOP=request("R_TOP")
    R_MAIN=request("R_MAIN")
    L_MAIN=request("L_MAIN")
   
    If SiteName=""  or xpurl="" or email="" Then
        Show_Err("对不起,看看哪里忘记填写了?<br><br><a href='javascript:history.back()'>回去重来</a>")
        response.end
    end if
   
    if len(gg1)>=65535 then
        Show_Err("本站公告太长了,将会破坏页面的整体风格<br><br><a href='javascript:history.back()'>回去重来</a>")
        response.end
    end if
   
    if len(url)>=100 then
        Show_Err("你的主页地址太长了<br><br><a href='javascript:history.back()'>回去重来</a>")
        response.end
    end if
   
    Set rs = Server.CreateObject("ADODB.Recordset")
   
    sql="update "& db_EC_System_Table &" set SiteName='"&SiteName&"',xpurl='"&xpurl&"',bigclassshownum='"&bigclassshownum&"',reviewnum='"&reviewnum&"',linkshownum='"&linkshownum&"',topuser='"&topuser&"',email='"&email&"',QQ='"&QQ&"',copyright='"&copyright&"',Address='"&Address&"',Zip='"&zip&"',Tel='"&Tel&"',gd1='"&gd1&"',gd2='"&gd2&"',B_BG='"&B_BG&"',index_top_news="&index_top_news&",top_news="&top_news&",L_BG="&L_BG&",top_sp="&top_sp&",R_BG="&R_BG&",AD_Show="&AD_Show&",ad_class="&ad_class&",top_txt="&top_txt&",top_img="&top_img&",gg1='"&gg1&"',R_TOP='"&R_TOP&"',R_MAIN='"&R_MAIN&"',L_MAIN='"&L_MAIN&"',newsnum='"&newsnum&"',picnum='"&picnum&"',ver='"&ver&"',version='"&version&"',logo='"&logo&"',logourl='"&logourl&"',Topbanner='"&Topbanner&"',Topbannerurl='"&Topbannerurl&"',OtherTopbanner='"&OtherTopbanner&"',OtherTopbannerurl='"&OtherTopbannerurl&"',moveurl='"&moveurl&"',E_announceview='"&E_announceview&"'"
    conn.execute(sql)
    conn.close
   
    set conn=nothing
    set fso=Server.CreateObject("Scripting.FileSystemObject")
    set hf=fso.CreateTextFile(Server.mappath("inc/config.asp"),true)
    hf.write "<" & "%" & vbcrlf
    hf.write "Const MaxFileSize=" & chr(34) & trim(request("MaxFileSize")) & chr(34) & "        '上传文件大小限制" & vbcrlf
    hf.write "Const SaveUpFilesPath=" & chr(34) & "UploadFile" & chr(34) & "                '存放上传文件的目录" & vbcrlf
    hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & "        '允许的上传文件类型" & vbcrlf
    hf.write "Const byteType=" & chr(34) & trim(request("byteType")) & chr(34) & "        '留言本过滤词语" & vbcrlf
    hf.write "Const byteipType=" & chr(34) & trim(request("byteipType")) & chr(34) & "        '网站恶意IP地址留言屏蔽" & vbcrlf
    hf.write "Const bytezfType=" & chr(34) & trim(request("bytezfType")) & chr(34) & "        '网站恶意广告留言字符屏蔽" & vbcrlf
 
   hf.write "Const newsipType=" & chr(34) & trim(request("newsipType")) & chr(34) & "        '浏览文章IP限制设置(填写为允许、发文需要相应设置)" & vbcrlf
    hf.write "Const echuangmenu=" & chr(34) & trim(request("echuangmenu")) & chr(34) & "        '自定义菜单" & vbcrlf
    hf.write "Const BOTTOMmenu=" & chr(34) & trim(request("BOTTOMmenu")) & chr(34) & "    '自定义底部菜单" & vbcrlf
    hf.write "%" & ">"
    hf.close
    set hf=nothing
    set fso=nothing
    response.write "<meta http-equiv=""refresh"" content="""&freetime&";url=E_System.asp"">"
    Show_Message("<p align=center><font color=red>已经成功添加到数据库!<br><br>"&freetime&"秒钟后返回上页!</font>")
    response.end

    rs9.close
        set rs9=nothing
        conn.close
        set conn=nothing
    else
        Show_Err("对不起,该功能已经被超级系统管理员关闭,您没有权限操作!")
        response.end
    end if
end if%>

[ 本帖最后由 zpfycms 于 2012-8-31 17:56 编辑 ]
2012-08-31 15:20
ysf0181
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:55
帖 子:914
专家分:2385
注 册:2006-10-4
收藏
得分:7 
keyi = 0
If Request.ServerVariables("server_name") = "192.168.1.5" then
   keyi = 1
end if

if int(keyi) = 1 then
   'gai干嘛了
end if

参数传递,打开页面时就检查了,

ASP讨论QQ群:251346273
2012-08-31 15:25
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
收藏
得分:0 
E_ReadNews.asp文件

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="function.asp"-->
<!--'#include file="char.inc"-->
<%
IF request.cookies(eChsys)("KEY")="" THEN

else
    usernamecookie=CheckStr(request.cookies(eChsys)("UserName"))
    passwdcookie=CheckStr(trim(Request.cookies(eChsys)("passwd")))
    KEYcookie=CheckStr(trim(request.cookies(eChsys)("KEY")))
    if usernamecookie="" or passwdcookie="" then
        response.cookies(eChsys)("UserName")=""
        response.cookies(eChsys)("KEY")=""
        response.cookies(eChsys)("purview")=""
        response.cookies(eChsys)("fullname")=""
        response.cookies(eChsys)("reglevel")=""
    else
        '判断用户的合法性
        set rs=server.createobject("adodb.recordset")
        sql="select * from "& db_User_Table &" where "& db_User_Name &"='"&usernamecookie&"'"
        rs.open sql,ConnUser,1,1
        if rs.eof and rs.bof then
            response.cookies(eChsys)("UserName")=""
            response.cookies(eChsys)("KEY")=""
            response.cookies(eChsys)("purview")=""
            response.cookies(eChsys)("fullname")=""
            response.cookies(eChsys)("reglevel")=""
        end if
        IF passwdcookie<>rs(db_User_Password) THEN
            response.cookies(eChsys)("UserName")=""
            response.cookies(eChsys)("KEY")=""
            response.cookies(eChsys)("purview")=""
            response.cookies(eChsys)("fullname")=""
            response.cookies(eChsys)("reglevel")=""
        END IF
        '下面判断用户级别实际在有用户级别是都应该判断
        if KEYcookie<>rs("OSKEY") then
            response.cookies(eChsys)("UserName")=""
            response.cookies(eChsys)("KEY")=""
            response.cookies(eChsys)("purview")=""
            response.cookies(eChsys)("fullname")=""
            response.cookies(eChsys)("reglevel")=""
        end if
        rs.close
        set rs=nothing
    END IF
END IF



'该文件需要进行调整和设置
dim E_typename
NewsID=ChkRequest(Request.QueryString("NewsID"),1) '防SQL注入
Page=Request.QueryString("page")

if page="" then
    page=1
    elseif not IsNumeric(page) then
        Show_Err("非法参数!<br><br><a href='javascript:history.back()'>返回</a>")
        response.end
    end if
    page=int(page)
    if newsid="" then
        Show_Err("未指定参数!<br><br><a href='javascript:history.back()'>返回</a>")
        response.end
    elseif not IsNumeric(newsid) then
        Show_Err("非法参数!<br><br><a href='javascript:history.back()'>返回</a>")
        response.end
    else
        '判断该篇文章是否审核
        set rs=server.createobject("adodb.recordset")
        sql="select * from "& db_EC_News_Table &" where NewsId="&NewsId
        rs.open sql,conn,3,3
        if rs.eof and rs.bof then
            rs.close
            set rs=nothing
            Show_Err("指定的文章不存在!<br><br><a href='javascript:history.back()'>返回</a>")
            response.end
        else
            checked=rs("checkked")
            if checked=1 or Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" then    '文章已审核并且是相关管理员
                Click=rs("Click")
                if isnull(rs("Click"))  then
                    conn.execute("update "& db_EC_News_Table &" Set Click=1 where NewsID=" & NewsID )
                else
                    conn.execute("update "& db_EC_News_Table &" Set Click=click+1 where NewsID=" & NewsID )
                end if
            end if
        
            rs.close
            set rs=nothing
        end if

        set rs=server.CreateObject("ADODB.RecordSet")
        if uselevel=1 then
            if Request.cookies(eChsys)("key")="" then
                rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel=0 and newsid="&newsid
            end if
            if Request.cookies(eChsys)("key")="selfreg" then
                if Request.cookies(eChsys)("reglevel")=3 then
                    rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=3 and newsid="&newsid
                end if
                if Request.cookies(eChsys)("reglevel")=2 then
                    rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=2 and newsid="&newsid
                end if
                if Request.cookies(eChsys)("reglevel")=1 then
                    rs.Source="select * from "& db_EC_News_Table &" where checkked=1 and newslevel<=1 and newsid="&newsid
                end if
            end if
        end if
            if Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then
                rs.Source="select * from "& db_EC_News_Table &" where newsid="&newsid
            else
                rs.Source="select * from "& db_EC_News_Table &" where newsid="&newsid
            end if
            rs.Open rs.Source,conn,1,1
            E_BigClassID=rs("E_BigClassID")
            E_SmallClassID=rs("E_SmallClassID")
            title=htmlencode4(trim(rs("title")))
            title1=htmlencode4(trim(rs("title")))
            about=htmlencode4(trim(rs("about")))
            Author=htmlencode4(trim(rs("Author")))
            editor=htmlencode4(trim(rs("editor")))
            Original=htmlencode4(trim(rs("Original")))
            image=rs("image")
            UpdateTime=trim(rs("UpdateTime"))
            News_Content=rs("Content")
            SpecialID=rs("SpecialID")
            SpecialID2=rs("SpecialID2")
            click=rs("click")
            EnCode=trim(rs("EnCode"))
            E_typeid=rs("E_typeid")
            titletype=rs("titletype")
            titlecolor=rs("titlecolor")
            titleface=rs("titleface")
            editor=rs("editor")
            wzdj=rs("newslevel")
            backtype=rs("backtype")
            backtype1=rs("backtype1")
            rs.Close
            set rs=nothing

            set rs=server.CreateObject("ADODB.RecordSet")
            rs.Source="select * from "& db_EC_Type_Table &" where E_typeid=" & E_typeid
            rs.Open rs.Source,conn,1,1
            E_typename=rs("E_typename")
            rs.Close
            set rs=nothing

            set rs=server.CreateObject("ADODB.RecordSet")
            If(isnull(E_BigClassID)) Then
                E_BigClassName=" "
                E_BigClassID = 0
            Else
                rsSource="select * from "& db_EC_BigClass_Table &" Where E_BigClassID="& E_BigClassID
                rs.Open rsSource,conn,1,3
                If (rs.eof or rs.bof) Then
                    E_BigClassName=" "
                else
                    E_BigClassName=rs("E_BigClassName")
                End if
                rs.close
                set rs=nothing
            End if
            
            if E_SmallClassID<>"" then
                set rs=server.CreateObject("ADODB.RecordSet")
                rs.Source="select * from "& db_EC_SmallClass_Table &" Where E_SmallClassID=" & E_SmallClassID
                rs.Open rs.Source,conn,1,1
                E_smallclassname=rs("E_smallclassname")
                rs.close
                set rs=nothing
            end if%>
<%
'文章ip限制
    if cINT(backtype1)=1 then
    dim byte2
    byte2=split(newsipType,"|")
    for i=0 to ubound(byte2)
        if Request.serverVariables("REMOTE_ADDR")<>byte2(i) then
        Show_Err("对不起,此篇文章只供内部浏览,请联系管理员!。<br><br><a href='javascript:history.back()'>返回</a>")
        Response.End
        end if
    next
    end if
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="政府网站模板">
<meta name="keywords" content="政府网站">
<title><%=title%><%if E_SmallClassID<>"" then%>_<%=E_smallclassname%><%end if%>_<%=E_BigClassName%>_<%=E_typename%>_<%=eChSys%></title>
<LINK href="homestyle.css" rel="stylesheet">
<script language="JavaScript" type="text/JavaScript">

function validateMode()
{
  if (!bTextMode) return true;
  alert("请先取消查看HTML源代码,进入“编辑”状态,然后再使用系统编辑功能!");
  message.focus();
  return false;
}
function validateModea()
{
  if (!bTextMode) return true;
  alert("请先取消查看HTML源代码!");
  message.focus();
  return false;
}

function sign()
{if (!validateMode()) return;
message.focus();

var range =message.document.selection.createRange();
str1="<font color='red'><b>|签收|</b>文件已经阅读</font>"
   range.pasteHTML(str1);
}

function img_zoom(e, o)        //图片鼠标滚轮缩放
{
    var zoom = parseInt(o.style.zoom, 10) || 100;
    zoom += event.wheelDelta / 12;
    if (zoom > 0) o.style.zoom = zoom + '%';
        return false;
}
</script>

<script language=javascript>
function user_login()
{
    document.UserLogin.UserName.focus();
    return false;
}
</script>

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
    var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>

<script language="JavaScript" type="text/JavaScript">

var size=14;            //字体大小

function fontZoom(fontsize){    //设置字体
    size=fontsize;
    document.getElementById('fontZoom').style.fontSize=size+'px';
}

function fontMax(){    //字体放大
    size=size+2;
    document.getElementById('fontZoom').style.fontSize=size+'px';
}

function fontMin(){    //字体缩小
    size=size-2;
    if (size < 2 ){
        size = 2
    }
    document.getElementById('fontZoom').style.fontSize=size+'px';
}

</SCRIPT>

<script language="javascript">
<!--
function changedata() {
    if ( document.AddReview.none.checked ) {
        document.AddReview.Author.value = "游客";
    }
}
function changedata1() {
    if ( document.AddReview.none1.checked ) {
        document.AddReview.email.value = "guest@
    }
}

//-->
</script>

<script language=javascript>
function CheckFormAddReview()    //检测评论发表栏填写项目是否为空
{
    if(document.AddReview.Author.value=="")
    {
        alert("请输入用户名!");
        document.AddReview.Author.focus();
        return false;
    }
    if(document.AddReview.email.value == "")
    {
        alert("请输入您的EMAIL!");
        document.AddReview.email.focus();
        return false;
    }
    if(document.AddReview.content.value == "")
    {
        alert("请输入评论内容!");
        return false;
    }
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF3333}
-->
</style>
</head>
<%if ScrollClick = "double" then%>
    <SCRIPT language=JavaScript>
    //双击滚屏代码
    var currentpos,timer;
   
    function initialize()
    {
    timer=setInterval("scrollwindow()",50);
    }
   
    function sc(){
    clearInterval(timer);
    }
   
    function scrollwindow()
    {
    currentpos=document.body.scrollTop;
    window.scroll(0,++currentpos);
    if (currentpos != document.body.scrollTop)
        sc();
    }
    document.onmousedown=sc
    document.ondblclick=initialize
    </script>
<%else%>
    <SCRIPT>
    //单击拖动屏幕方式
    var old_y=0;  //记录鼠标按下时的Y轴位置
    var yn=0;  //用于记录鼠标状态
    function moveit()
    {
    if(yn==1 &&  event.button==1)  //如果鼠标左键按下就移动页面
    document.body.scrollTop=(old_y-event.clientY); //移动页面
    }
    function downit()
    {old_y=event.clientY+document.body.scrollTop; //记住鼠标按下时的Y轴位置
    yn=1; //用于记住鼠标已按下
    }
   
    function upit()
    {yn=0;}  //记住鼠标已放开
   
    document.onmouseup=upit; //鼠标放开时执行upit()函数
    document.onmousedown=downit; //鼠标按下时执行downit()函数
    document.onmousemove =moveit; //鼠标移动时执行moveit()函数
    </SCRIPT>
<%end if%>
<body topmargin="0" marginheight="0">
<SCRIPT language=javascript>
<!--
  function do_color(vobject,vvar)
  { document.getElementById(vobject).style.color=vvar; }
  function do_zooms(vobject,vvar)
  { document.getElementById(vobject).style.fontsize=vvar+'px'; }
-->
</SCRIPT>
<!--#include file="Top.asp"-->
<table width="1002" height="500" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="210" height="500" align="left" valign="top" background="Images/l_b.gif"><table width="210" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="4" align="center" valign="top"></td>
      </tr>
      <tr>
        <td height="30" background="IMAGES/echsys_class_bg.gif">&nbsp;&nbsp;<span class="white_title">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="white_title">热门信息</span></span></td>
      </tr>
<%
Set Rs_hot=Conn.Execute("select top "&top_txt&" * from "& db_EC_news_table &"  where  checkked=1 and E_typeid="&E_typeid&" order by click desc,newsid desc")
Do While Not Rs_hot.Eof
        newsurl="E_ReadNews.asp?NewsID=" & rs_hot("NewsID")
        newswwwurl=rs_hot("titleface")
        fileExt=lcase(getFileExtName(rs_hot("picname")))
%>        
        <tr>
          <td height="21" align="left">&nbsp;·<a class="middle" href="<%if rs_hot("titleface")="无" then %><%=newsurl%><% else %> <%=newswwwurl%><%end if%>" title="<%=htmlencode4(rs_hot("title"))%>" target="_blank"> <font color="<%=rs_hot("titlecolor")%>"> <%=CutStr(htmlencode4(rs_hot("title")),24)%> </font> </a></td>
        </tr>
<%
Rs_hot.Movenext
Loop
Rs_hot.Close
Set Rs_hot=Nothing   
%>   
      <tr>
        <td height="7"></td>
      </tr>
    </table>
      <table width="200" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="4" align="center" valign="top"></td>
        </tr>
        <tr>
          <td height="34" background="images/title_bg.gif">&nbsp;&nbsp;<img src="Images/arrow_dot.gif" width="12" height="12">&nbsp;&nbsp;<span class="black_title">最新文章</span></td>
        </tr>
      <%
set rs3=server.CreateObject("ADODB.RecordSet")
    if uselevel=1 then
        if Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then
        rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1 and E_typeid="&E_typeid&" order by NewsID DESC"
        end if
        if Request.cookies(eChsys)("key")="" then
            rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1 and newslevel=0 and E_typeid="&E_typeid&"  order by NewsID DESC"
        end if
        if Request.cookies(eChsys)("key")="selfreg" then
            if Request.cookies(eChsys)("reglevel")=3 then
                rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1  and E_typeid="&E_typeid&"  order by NewsID DESC"
            end if
            if Request.cookies(eChsys)("reglevel")=2 then
                rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1  and E_typeid="&E_typeid&"  order by NewsID DESC"
            end if
            if Request.cookies(eChsys)("reglevel")=1 then
                rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1  and E_typeid="&E_typeid&" order by NewsID DESC"
            end if
        end if
    else
        rs3.Source ="select top 10 * from "& db_EC_News_Table &" where  checkked=1 and E_typeid="&E_typeid&"  order by NewsID DESC"
    end if
rs3.Open rs3.Source,conn,1,1
    if not rs3.EOF then
        while not rs3.EOF
            fileExt=lcase(getFileExtName(rs3("picname")))
            Content=htmlencode4(rs3("Content"))
            %>
      <tr>
        <td height="22" align="left"> &nbsp;&nbsp;·<a class=middle href="E_ReadNews.asp?NewsID=<%=rs3("NewsID")%>" target=_blank title="<%=htmlencode4(rs3("title"))%>"><%=CutStr(htmlencode4(rs3("title")),24)%></a> </td>
      </tr>
<%
rs3.MoveNext
wend
else
Response.Write "<tr><td width=100% align=center height=22 >·暂无更新</td></tr>"
end if
rs3.close
set rs3=nothing
%>
        <tr>
          <td height="7" background="images/article_12.gif"></td>
        </tr>
      </table></td>
    <td width="792" rowspan="0" valign="top"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td background="Images/dh_bg.gif">&nbsp;&nbsp;<img src="Images/arrow_dot.gif" width="12" height="12">&nbsp;<STRONG>当前位置:</STRONG>&nbsp;<span class="daohang"><a class="daohang" href="./" >网站首页</a>&gt;&gt;<a class="daohang" href="E_Type.asp?E_typeid=<%=E_typeid%>"><%=E_typename%></a>
            <%if E_BigClassID<>"" then%>
&gt;&gt;<a class="daohang" href="E_BigClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=E_BigClassID%>"><%=E_BigClassName%></a>
<%if E_SmallClassID<>"" then%>
&gt;&gt;<a class="daohangk" href='E_SmallClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=E_BigClassID%>&E_SmallClassID=<%=E_SmallClassID%>'><%=E_smallclassname%></a>
      <%end if%>
      <%end if%>
      <%=CutStr(htmlencode4(title1),60)%>
        </span></td>
      </tr>
    </table>
      <table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td> </td>
        </tr>
      </table>
      <table width="716" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="8" height="50"><img src="Images/article_01.gif" width="8" height="53"></td>
          <td width="702" align="center" background="Images/article_02.gif"><font color="<%=titlecolor%>" size="+2" face="楷体_GB2312"><strong><%=CutStr(title1,100)%></strong></font></td>
          <td width="6"><img src="Images/article_04.gif" width="6" height="53"></td>
        </tr>
        <tr>
          <td colspan="3"><img src="Images/article_05.gif" width="716" height="22"></td>
        </tr>
            
      <%
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from "& db_EC_News_Table &" where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
E_typeid=rs("E_typeid")
Title=trim(rs("Title"))
image=rs("image")

dim mode
   
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from "& db_EC_Type_Table &" where E_typeid="&E_typeid&" order by E_typeid"
rs11.Open rs11.Source,conn,1,1
mode=rs11("mode")
rs11.close
set rs11=nothing

''添加图片鼠标滚轮缩放效果
if mouse_wheel_zoom="on" then
    News_Content=replace(News_Content,"<IMG","<IMG onmousewheel='return img_zoom(event,this)' onload='javascript:if(this.width>screen.width-333)this.width=screen.width-333'",1,-1,1)
end if
''图片上传路径还原为 config.asp 中设定的 [FileUploadPath] 值
News_Content=replace(News_Content,"="&chr(34)&"uploadfile/","="&chr(34)&FileUploadPath,1,-1,1)

arr_Content=split(News_Content,"[---分页---]")
MaxPages=ubound(arr_Content)
%>                           
        <tr>
          <td height="15" colspan="3" align="center" valign="top" background="Images/article_06.gif"><table width="99%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="13">&nbsp;</td>
            </tr>
            <tr>
              <td height="23" align="center" bgcolor="#C7E3A8">[来源:
                <%if Original="" then%>
本站
<%else%>
<%=Original%>
<%end if%>
| 作者:
<%if Author="" then%>
原创
<%else%>
<%=Author%>
<%end if%>
| 日期:<%=year(updateTime)%>年<%=month(updateTime)%>月<%=day(updateTime)%>日 |  浏览<font color=red><%=click%></font> 次]
         
          【<A class=black href="javascript:fontMax()">大</A>&nbsp;<A class=black href="javascript:fontZoom(14)">中</A>&nbsp;<A class=black href="javascript:fontMin()">小</A>】</td>
            </tr>
            <tr>
              <td height="13">&nbsp;</td>
            </tr>

            <tr>
              <td height="113" align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed">
                <tr>
                  <td width="100%" align=center></td>
                </tr>
                <tr>
                  <TD class=newstitle id=fontzoom vAlign=top>
                      <%if (checked<>1) and ((Request.cookies(eChsys)("key")<>"super") and (Request.cookies(eChsys)("key")<>"typemaster") and (Request.cookies(eChsys)("key")<>"bigmaster") and (Request.cookies(eChsys)("key")<>"smallmaster")) then    '文章未审核,并且是非相关管理员
    response.write "<P><CENTER><strong><font color='ff0000' size='+2' face='隶书'>文章还未经过审核<br>请等待或者通知管理员审核才能阅览!</font></strong></CENTER>"
    response.write "<P><CENTER><IMG SRC='" &ReadNews_CopyRight_Logo& "' BORDER='0' ALT=''></CENTER>"
else    '文章已审核
    if checked<>1 then
        response.write "<P><CENTER><strong><font color='ff0000' size='+2' face='隶书'>提醒:该文章还未通过审核</font></strong></CENTER>"
    end if



if uselevel=1 then

    if cINT(wzdj)<1 then
        Response.Write arr_Content(Page-1)%>
                      <% else %>
                      <%if Request.cookies(eChsys)("key")="super" or Request.cookies(eChsys)("key")="typemaster" or Request.cookies(eChsys)("key")="bigmaster" or Request.cookies(eChsys)("key")="smallmaster" or Request.cookies(eChsys)("key")="check" then %>
                      <%Response.Write arr_Content(Page-1)%>
                      <% else %>
                      <%if  Request.cookies(eChsys)("key")="" then%>
                      <br>
                      <font color="#FFFFFF"><b>内容简介:</b></font><br>
                      <%=CutStr(nohtml(rs("Content")),10)%><font color="#FFFFFF">...
                    </font> <br>
                      <font color="#cc0000" size="3"><b>友情提醒:</b></font><br>
                      <br>
                    &nbsp;&nbsp;&nbsp;
                        您还未登录,没有游览权限。这篇文章要求符合本站权限的用户才能阅读!<p><br>
                    &nbsp;&nbsp;&nbsp; 已注册的用户,请从网页左上角直接登录或请点此<b><a href="#" OnClick="user_login()"  class=bottom><font color="#cc0000">登录</font></a></b>!</p>
                    <p>&nbsp;&nbsp;&nbsp; </p>
                    <p> </p>
                    <p>
                    <br>
                    <%
                response.write "文章级别:"
                response.write cINT(wzdj)
                response.write "级"
                %>
                    <br>
                    <%
                response.write "您的权限:"
                response.write "未注册"
                %>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <% else %>
                    <%if  Request.cookies(eChsys)("key")="selfreg" then
                    if cINT(Request.cookies(eChsys)("reglevel"))>=cINT(wzdj) then%>
                    <%Response.Write arr_Content(Page-1)%>
                    <% else %>
                    <br>
                    <font color="#cc0000"><b>内容简介:</b></font> <br>
                    <br>
                    <%=CutStr(nohtml(rs("Content")),10)%>... <br>
                    <br>
                    <br>
                     </p>
                      <font color="#cc0000" size="3"><b>友情提醒:</b></font><br>
                      <br>
                    &nbsp;&nbsp;&nbsp;
                        您还未登录,没有游览权限。这篇文章要求符合本站权限的用户才能阅读!<p><br>
                    &nbsp;&nbsp;&nbsp; 已注册的用户,请从网页左上角直接登录或请点此<b><a href="#" OnClick="user_login()"  class=bottom><font color="#cc0000">登录</font></a></b>!</p>
                    <p>&nbsp;&nbsp;&nbsp; <br>
                    <br>
                    <%
                        response.write "文章级别:"
                        response.write cINT(wzdj)
                        response.write "级"
                        %>
                    <br>
                    <%
                        response.write "您的权限:"
                        response.write (Request.cookies(eChsys)("reglevel"))
                        response.write "级"
                        %>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <br>
                    <%end if%>
                    <%end if%>
                    <%end if%>
                    <%end if%>
                    <%end if%>
                    <%else%>
                    <%Response.Write arr_Content(Page-1)%>
                    <%end if%>
                    <%end if%>
                    <br>
                        </p>
                    <p> </p>
                    <p> </p>
                    <p> </p>
                    <p> </p>
                    <p> </p>
                    <p> </p>
                    <p> </p>
                    <div align="right">
                      <%
url="E_ReadNews.asp?NewsId="&newsid
if MaxPages >0 then
    Response.write "<a class=black href='"& Url &"&page=1' title='第1页'>首页</a> "
    if Page-1 > 0 then
        Prev_Page = Page - 1
        Response.write "<a class=black href='"& Url &"&page="& Prev_Page &"' title='第"& Prev_Page &"页'>上一页</a> "
    end if

    for PageCounter=0 to MaxPages
        PageLink = PageCounter+1
        if PageLink <> Page Then
            Response.write "<a class=black href='"& Url &"&page="& PageLink &"'>["& PageLink &"]</a> "
        else
            Response.Write "<font color='#FF0000'><B>["& PageLink &"]</B></font> "
        end if
        If PageLink = MaxPages+1 Then Exit for
    Next
    if page <= Maxpages then
        bdd_Page = Page + 1
        Response.write "<a class=black href='" & Url & "&page=" & bdd_Page & "' title='第" & bdd_Page & "页'>下一页</A>"
    end if
    Response.write " <A class=black href='" & Url & "&page=" & Maxpages+1 & "' title='第"& Maxpages+1 &"页'>尾页</A>"
end if
%>
                    </div></td>
                </tr>
              </table></td>
            </tr>           
          </table></td>
        </tr>
        <tr>
          <td height="16" colspan="3" align="center" valign="top" background="Images/article_06.gif"><!--#include file="attach.asp" --></td>
        </tr>
        <tr>
          <td height="22" colspan="3" align="right" valign="top" background="Images/article_06.gif"><div align="right" class="side_con">责任编辑:<%=editor%>&nbsp;&nbsp;&nbsp;</div></td>
        </tr>
        <tr>
          <td height="21" colspan="3" align="left" valign="middle" background="Images/article_06.gif"><b>&nbsp;&nbsp;<IMG SRC="IMAGES/006.gif"> 上一篇:</b>
            <%if getSideNewsID(E_BigClassID,newsid,-1)<>0 then %>
            <a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,-1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,-1))%></a>
            <%else%>
            <%=getnewstitle(getSideNewsID(E_BigClassID,newsid,-1))%>
            <%end if%></td>
        </tr>
        <tr>
          <td height="20" colspan="3" align="left" valign="middle" background="Images/article_06.gif"><b>&nbsp;&nbsp;<IMG SRC="IMAGES/006.gif"> 下一篇:</b>
            <%if getSideNewsID(E_BigClassID,newsid,1)<>0 then %>
            <a  class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,1))%></a>
            <%else%>
            <%=getnewstitle(getSideNewsID(E_BigClassID,newsid,1))%>
          <%end if%></td>
        </tr>
        <tr>
          <td height="60" colspan="3" align="center" valign="top" background="Images/article_06.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="50%" align="left" valign="top"><table width="91%" height="131" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="326" height="36" background="Images/article_09.gif" class="white_link">
                    &nbsp;<strong class="white_title"> 热门文章:</strong></td>
                  </tr>
                  <%

[ 本帖最后由 zpfycms 于 2012-8-31 17:59 编辑 ]
2012-08-31 15:29
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
收藏
得分:0 
E_ReadNews.asp文件(续上)

set rs=server.CreateObject("ADODB.RecordSet")
if uselevel=1 then
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select top 4 * from "& db_EC_News_Table &" where  checkked=1 order by click DESC,newsid desc"
end if
if Request.cookies("key")="" then
rs.Source="select top 4 * from "& db_EC_News_Table &" where (checkked=1 and newslevel=0) order by click DESC,newsid desc"
end if
if Request.cookies("key")="selfreg" then
    if Request.cookies("reglevel")=3 then
rs.Source="select top 4 * from "& db_EC_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
    end if
    if Request.cookies("reglevel")=2 then
rs.Source="select top 4 * from "& db_EC_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
    end if
    if Request.cookies("reglevel")=1 then
rs.Source="select top 4 * from "& db_EC_News_Table &" where (checkked=1 ) order by click DESC,newsid desc"
    end if
end if
else
rs.Source="select top 4 * from "& db_EC_News_Table &" where  checkked=1 order by click DESC,newsid desc"
end if
rs.Open rs.Source,conn,1,1
while not rs.EOF
title=trim(rs("title"))
title=replace(title,"<br>","")
%>
                  <tr>
                    <td height="22">&nbsp;· <a class=middle href="E_ReadNews.asp?NewsID=<%=rs("NewsID")%>" target="_blank" title="<%=title%>"><font color="<%=rs("titlecolor")%>">
                      <%if len(title)>20 then%>
                      <%=left(title,20)%>
                      <%else%>
                      <%=title%>
                      <%end if%>
                    </font></a>[<%=rs("click")%>] </td>
                  </tr>

                  <%
rs.MoveNext
wend
rs.close
%>
                  <tr>
                    <td height="7" background="images/article_12.gif"></td>
                  </tr>
              </table></td>
              <td width="50%" align="center" valign="top"><table width="90%" height="131" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="331" height="36" background="Images/article_09.gif" class="white_title">&nbsp;<B class="white_title"> &nbsp;相关文章:</b></td>
                  </tr>
                  <%
Response.Write ""
Response.Write ""
if about<>""  then
    sql="select top 4 * from "& db_EC_News_Table &" where (about like '%" & about & "%' or title like '%" & about & "%') and checkked=1 order by newsid desc"
    set rs=conn.execute(sql)

    do while not rs.eof
        title=htmlencode4(trim(rs("title")))
        %>
                  <tr>
                    <td height="22">·<a class=middle target=_top href='E_ReadNews.asp?NewsID=<%=rs("NewsID")%>'><%=Title%></a>
                        <!--<font color=#666666>(<%=month(trim(rs("updateTime")))%>月<%=day(trim(rs("updateTime")))%>日)-->
                      [<font color=#666666><%=rs("click")%></font>] </td>
                  </tr>

 <% rs.movenext
    loop
    Response.Write "<tr><td align='right'><a class=lift  href='Result.asp?keyword=" & about &"'><img src='images/more.gif' border='0'></a></td></tr>"
    rs.close   
    set rs=nothing  
else
    Response.write "<tr><td><font color=red ><br>·没有相关文章</font></td></tr>"
end if
%>
                  <tr>
                    <td height="7" background="images/article_12.gif"></td>
                  </tr>
              </table></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td colspan="3"><img src="Images/article_05.gif" width="716" height="22"></td>
        </tr>
        <tr>
          <td height="13" colspan="3" align="center" valign="top" background="Images/article_06.gif"> </td>
        </tr>
        <tr>
          <td height="21" colspan="3" align="left" valign="middle" background="Images/article_06.gif">&nbsp;
            <%
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top "&reviewnum&" * from "& db_EC_Review_Table &" where NewsID=" & NewsID & " and passed=1 order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
if rs1.EOF then  NoReview=1
    Response.Write "<B>相关评论:</b>(评论内容只代表网友观点,与本站立场无关!) <a href='ReadView.asp?ReviewID=" & rs1("ReviewID") &"&NewsID=" & NewsID &"' target=_blank class=class>更多..</a>"
    %></td>
        </tr>
        <tr>
          <td height="10" colspan="3" align="left" valign="middle" background="Images/article_06.gif">&nbsp;
            <%
    if NoReview then                        
        Response.Write "<font color=red ><b>相关评论无</b></font>"
    end if
    %></td>
        </tr>
      <%
    if not NoReview then
        while not rs1.EOF
            author=server.HTMLEncode(trim(rs1("author")))
            email=server.HTMLEncode(trim(rs1("email")))
            reviewip=rs1("reviewip")
            content=trim(rs1("content"))
            content=replace(content,"table","table")
            content=replace(content,"TABLE","table")
            ContentLen=len(Content)
            %>        
        <tr>
          <td height="37" colspan="3" align="center" valign="top" background="Images/article_06.gif">
          <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" style="table-layout:fixed; word-break:break-all">
            <tr bgcolor="#EFEFEF">
              <td width="384" height="22" bgcolor="#C7E3A8">发表人:<%=author%></td>
              <td width="197" height="22" bgcolor="#C7E3A8"><p align="right">
                  <%if Request.cookies(eChsys)("key")="super" or showip="1" then%>
                IP:<%=reviewip%>
                <%end if%>
                </td>
            </tr>
            <tr>
              <td colspan="2">
              <table width="100%" border="0" cellspacing="0" cellpadding="0" style="table-layout:fixed; word-break:break-all">
                  <tr>
                    <td>发表人邮件:<a href='mailto:<%=email%>'><%=email%></a></td>
                    <td align="right">发表时间:<%=rs1("updatetime")%></td>
                  </tr>
              </table></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td colspan="2"><%
            If ContentLen=<50  then   
                DisplayContent=Content
                Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;" & displaycontent
                                        %></td>
            </tr>
            <%
            else
                                    %>
            <tr bgcolor="#FFFFFF">
              <td colspan="2"><%
                DisplayContent=replace(nohtml(trim(Content)),"&nbsp;","",1,-1,1) '获取表格中留言字段内容并替换格式符
                DisplayContent=replace(DisplayContent,vbcrlf,"",1,-1,1)
                Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"& CutStr(displaycontent,50) &"<a href='ReadView.asp?ReviewID=" & rs1("ReviewID") &"&NewsID=" & NewsID &"' target=_blank class=class>详细内容</a>"
            end if %></td>
            </tr>
          </table></td>
        </tr>
<%
rs1.MoveNext
wend
end if
rs1.Close
set rs1=nothing   
%>               
        <tr>
          <td height="30" colspan="3" align="center" valign="top" background="Images/article_06.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <%if reviewable="1" then%>
            <form method="POST" action="AddReview.asp" name=AddReview  onSubmit="return CheckFormAddReview();">
              <%if Request.cookies(eChsys)("username")<>"" then
        
                %>
              <tr>
                <td width="100%" align="center"><table border="0" cellspacing="0" width="100%" cellpadding="4">
                    <input type=hidden name=NewsID value=<%=NewsID%>>
                    <tr>
                      <td width="15%" align="left"><a name="send"><font color="#FF0000">*</font>用&nbsp;户&nbsp;名:</a></td>
                      <td width="35%"><input type="text" name="Author" size="30" value="<%=Request.cookies(eChsys)("UserName")%>" readonly></td>
                      <td width="15%" align="left"><font color="#FF0000">*</font>电子邮件:</td>
                      <td width="35%"><input type="text" name="email" size="30" value="<%=Request.cookies(eChsys)("UserEmail")%>" ></td>
                    </tr>
                    <tr>
                      <td colspan="4" align="left" valign="top"><div align="center"><font color="#FF0000">*</font>评论内容:(100字以内)
                        <% if M_MAIN=1 then %>
                              <font color=red >签收文件</font>: <img class=None  src="images/watermark.gif" align="absmiddle" border="0" style="cursor:hand;" alt="签收文件" lANGUAGE="javascript" onClick="sign()"></div></td>
                      <% end if%>
                    </tr>
                    <tr>
                      <td width="70%" colspan="4" align="center" valign="top"><script language="javascript">
                                    var bTextMode=false;
                                    document.write ('<iframe src="guestbox.asp?action=new" id="message" width="500" height="100" frameborder=yes scrolling=no align=center></iframe>')
                                    frames.message.document.designMode = "On";
                                    </script>                      </td>
                    </tr>
                    <tr>
                      <td width="70%" colspan="4" align="center" height="50"><input type="hidden" name="editor" value="<%=editor%>">
                          <input name="passed" type="hidden" value="<%if reviewcheck="1" then%>1<%else%>0<%end if%>">
                          <input type="submit" value="发表评论" name="Submit3" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
                          <input name="reset" type=reset value="重新填写">
                          <input type="hidden" name="content" value="">
                          <input type="hidden" name="title" value="评论:<%=title%>">                      </td>
                    </tr>
                </table></td>
              </tr>
              <%else%>
              <tr>
                <td width="100%" align="center"><table border="0" cellspacing="0" width="100%" cellpadding="4">
                    <input type=hidden name=NewsID value=<%=NewsID%>>
                    <tr>
                      <td width="15%" align="left"><a name="send"><font color="#FF0000">*</font>用&nbsp;户&nbsp;名:</a></td>
                      <td width="35%"><input type="text" name="Author" size="18">
                        &nbsp;游客:
                        <INPUT onclick=changedata() type=checkbox value=true  name=none></td>
                      <td width="15%" align="left"><font color="#FF0000">*</font>电子邮件:</td>
                      <td width="35%"><input name="email" type="text" size="18" value="">
                        &nbsp;游客:
                        <INPUT onclick=changedata1() type=checkbox value=true  name=none1></td>
                    </tr>
                    <tr>
                      <td colspan="4" align="left" valign="top" ><div align="center"><font color="#FF0000">*</font>评论内容:(100字以内)</div></td>
                    </tr>
                    <tr>
                      <td width="70%" colspan="4" align="center" valign="top"><script language="javascript">
document.write ('<iframe src="guestbox.asp?action=new" id="message" width="500" height="100" frameborder=yes scrolling=no align=center></iframe>')
frames.message.document.designMode = "On";
          </script>                      </td>
                    </tr>
                    <tr>
                      <td width="70%" colspan="4" align="center" height="50"><input type="hidden" name="editor" value="<%=editor%>">
                          <input name="passed" type="hidden" value="<%if reviewcheck="1" then%>1<%else%>0<%end if%>">
                          <input type="submit" value="发表评论" name="Submit3" OnClick="document.AddReview.content.value = frames.message.document.body.innerHTML;">
                          <input name="reset2" type=reset value="重新填写">
                          <input type="hidden" name="content" value="">
                          <input type="hidden" name="title" value="评论:<%=title%>">                      </td>
                    </tr>
                </table></td>
              </tr>
              <%end if%>
            </form>
            <%end if%>
          </table></td>
        </tr>
        <tr>
          <td colspan="3"><img src="Images/article_13.gif" width="716" height="1"></td>
        </tr>
      </table>
      <table width="94%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td> </td>
        </tr>
    </table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
End if
Conn.Close
Set Conn=Nothing
%>
2012-08-31 15:30
netlin
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:贵宾
威 望:24
帖 子:544
专家分:4308
注 册:2012-4-9
收藏
得分:0 
试一下:

<%
'文章ip限制
if cINT(backtype1)=1 then    '注意:这里的backtype1与最前面第4行代码Const byteType="" 有什么关系吗?
    dim byte2
    byte2=split(newsipType,"|")
    dim bj
    bj=0
    for i=0 to ubound(byte2)-1
        if Request.serverVariables("REMOTE_ADDR")=byte2(i) then
            bj=1
            exit for
        end
    next
    if bj=0 then
        Show_Err("对不起,此篇文章只供内部浏览,请联系管理员!。<br><br><a href='javascript:history.back()'>返回</a>")
        Response.End
    end if
end if
%>


做自己喜欢的事!
2012-09-01 14:03
zpfycms
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2012-7-29
收藏
得分:0 
谢谢版主!

你楼上给我修改的代码还是不能用,现在变成所有栏目里的文章都无法打开访问(打开后是提示:无法显示网页)。请你再次帮我一看看好吗?

我在线等你帮忙.













[ 本帖最后由 zpfycms 于 2012-9-2 09:35 编辑 ]
2012-09-02 09:19
快速回复:帮忙解决后台设置多个IP不能访问
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048952 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved