if ((DEBUG_MODE & 2) == 2)
  {
        return false;
  }

代码在这里出现了问题，程序读取缓存在这里判断通不过，暂时解决办法就是不要判断 直接跳过。

ecshop后台Fceditor编辑器不能浏览服务器文件和上传图片正常使用了！

宜兴城里居然用的是华为的，其他也不多说了，直接上操作

1 准备U盘 插入华为HG526，（前提是先在根目录下建立一个文件夹e8_Config_backup）

2 登陆路由器 192.168.1.1 用户useradmin

3 直接在浏览器地址里面输入http://192.168.1.1/html/ehomeclient/cfgUSBRestore.cgi?coverusbpath=usb1_1 提示备份成功！

4 把U盘插入电脑 e8_Config_backup文件夹下就多了一个文件 ctce8_HG526.cfg

5 这个时候需要用到一个软件 把华为的配置文件解密 ，然后找到telecomadmin password 就可以看到超级密码了 （中兴的Base64加密）

6 用超级用户telecomadmin登陆，把远程管理关闭（不然密码就会被电信更改的）

7 路由拨号配置对HG526无线猫进行路由拨号配置：

登录后，进入“网络”— “宽带设置”，在“连接名称”右边，选择“2_INTERNET_R_8_35”，按照下图配置，修改自己的上网账号和密码。

这里注意 VPI、VCI 宜兴市市区的是 0/100 其他地方的可以咨询电信

重启路由就可以了！再也不用每台电脑都拨号了，而且手机也可以直接用上了。

解密软件：http://115.com/file/e6twbop8

记录下，给需要的朋友

首页 解除狗，国之源只是通过asp dll加密了数据库连接文件，那我们就自己写个连接文件，具体文件位置：Connections文件夹下的dlib.asp，修改为：

<%

Function MM_Dlib_String()

   
MM_Dlib_String="Provider = Sqloledb; User ID =sa; Password = 数据库密码; Initial Catalog = Dlib; Data Source = 127.0.0.1;"
 'MM_Dlib_String = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Dlib;Data Source=VM2003"
 dim aa
  'set aa = Server.CreateObject("ADODB.Connection")
  'MM_Dlib_String = aa.GetConnectionString()
  'set aa = Nothing
  Set aa = Server.CreateObject("ADODB.Connection")
    aa.open MM_Dlib_String
End Function

 Session.Timeout = 15
 'Response.Expires =-1
 'Response.ExpiresAbsolute = Now() - 1
 'Response.cachecontrol = "no-cache"

 function GetPageName(strURL)
  dim tts
  tts=right( strURL, len(strURL)-instrRev(strURL,"/"))
  GetPageName = tts
  if instr(tts,"?") <> 0 then
   GetPageName=left(tts, instr(tts,"?")-1)
  end if
 end function

%>
 

破解后 登陆没有了，文件为head.asp 错误：

修改head.asp 如下：(阅读错误也是）

<%
dim errstr,FromLogin
errstr = ""
FromLogin=request("FromLogin")

if IsEmpty(Session("HOME_URL")) or isnull(session("HOME_URL")) then
 Session("HOME_URL") = Request.ServerVariables("URL")
else
 if Session("HOME_URL") = "" then
  Session("HOME_URL") = Request.ServerVariables("URL")
 end if
end if

if FromLogin <> "" then '是从登录过来的
 if request("UserID") <> "" then
  dim rslogin,cnlogin,sqllogin
  sqllogin = "Select USERACCOUNT_MM,USERACCOUNT_ID,USERACCOUNT_YHM,USERACCOUNT_BM,USERACCOUNT_LX,USERGROUP_ID,USERACCOUNT_ZT from USERACCOUNT WHERE USERACCOUNT_ZT='1' AND USERACCOUNT_yhm='" & request("UserID") &"'"
  set rslogin = server.createobject("ADODB.RecordSet")
  set cnlogin = server.createobject("ADODB.Connection")
  cnlogin.connectionstring=MM_Dlib_String
  cnlogin.open
  rslogin.open sqllogin,cnlogin,1,2
  if not (rslogin.eof or rslogin.Bof) then
   if request("UserPwd") = rslogin(0) then
   'yonghu 登录成功
    Session("MM_UserAuthorization") = ""
    Session("USERACCOUNT_ID")=rslogin(1)
    Session("USERACCOUNT_YHM")=rslogin(2)
    Session("USERACCOUNT_MM")=rslogin(0)
    Session("USERACCOUNT_BM")=rslogin(3)
    Session("USERACCOUNT_LX")=rslogin(4)
    Session("USERGROUP_ID")=rslogin(5)
Session("USERGROUP_ZT")=rslogin(6)

    rslogin.close

    sqllogin = "select SYSDIC_VALUE FROM dbo.SYSDIC WHERE SYSDIC_ID=" & Session("USERACCOUNT_BM") & " union " & "select SYSDIC_VALUE FROM dbo.SYSDIC WHERE SYSDIC_ID=" & Session("USERACCOUNT_LX")
    rslogin.Open sqllogin,cnlogin,1,2
    Session("USERACCOUNT_BM")=rslogin(0)
    'rs.Close
    rslogin.movenext

    'sql = "select SYSDIC_VALUE FROM dbo.SYSDIC WHERE SYSDIC_ID=" & Session("USERACCOUNT_LX")
    'rs.Open sql,cn,1,2
    Session("USERACCOUNT_LX")=rslogin(0)
    rslogin.Close

    sqllogin = "select USERGROUP_MC,USERGROUP_GLQX FROM dbo.USERGROUP WHERE USERGROUP_ID=" & Session("USERGROUP_ID")
    rslogin.Open sqllogin,cnlogin,1,2
    Session("USERGROUP_MC")=rslogin(0)
    Session("USERGROUP_GLQX")=rslogin(1)

   else
    errstr="用户密码错误！"
   end if
  else
   errstr = "没有此用户，或用户帐号被冻结！"
  end if
  rslogin.Close
  set rslogin = nothing
  cnlogin.close
  set cnlogin=nothing
 end if
end if

 Function CheckIfLogin()
  if IsEmpty(Session("USERACCOUNT_YHM")) or isnull(session("USERACCOUNT_YHM")) then
   CheckIfLogin = 0
  else
   if trim(Session("USERACCOUNT_YHM"))="" then
    CheckIfLogin = 0
   else
    CheckIfLogin = 1
   end if
  end if
 End Function

%>
<br>
<table width="760" height="90" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" rowspan="2">
<div align="center"><img src="./images/logo_3.gif" width="131" height="53" align="absmiddle">
      </div></td>
    <td colspan="2"><table width="560" height="24" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7"><img src="./images/box_left_3.gif" width="7" height="24"></td>

     <%if CheckIfLogin then%>
     <td valign="bottom" background="./images/box_center_5.gif" align=right>
      欢迎&nbsp;<strong><font color="#FF0000"><%=Session("USERACCOUNT_YHM")%></font></strong>&nbsp;使用数字图书馆：
      &nbsp;&nbsp; &nbsp;&nbsp;
      <a href="MyInfo.asp?ID=<%=Session("USERACCOUNT_ID")%>" title="自己的相关信息" class="a00">个人信息</a> |
      <%if replace(Session("USERGROUP_GLQX"),"0","")<>"" then %><a href="SysManage/SysManage.asp" title="进入系统管理,当然要有管理权限先" class="a00">系统管理</a> |<%end if%>
      <a href="Readme/readme.htm" title="说明书电子文档" target=_blank class="a00">帮助</a> |
      <a href="Logout.asp" title="在公众的地方上网记得要按退出哦" class="a00">退出</a>
      &nbsp;&nbsp;
     </td>
     <%else%>
     <form name=formlogin id=formlogin action="default.asp" method="post">
     <td valign="bottom" background="./images/box_center_5.gif" align=right>
      用户名: <input type=text size=16 name=userid value="admin" style="height:20;width:80"> 密码: <input type=password size=16 name=userpwd value="admin"  style="height:20;width:80"> <input type=submit value="登录"  style="height:20;">&nbsp;&nbsp;&nbsp;<a href="Regist.asp" class="a00">注册新用户</a>&nbsp;&nbsp;<a href="GetPasswdAcc.asp" class="a00">找回密码</a> <input type=hidden name=FromLogin value="1">
     </td>
     </form>
     <%end if%>

   <td width="7"><img src="./images/box_right_7.gif" width="7" height="24"></td>
        </tr>
      </table></td>
  </tr>
  <tr>
    <td width="437" height="62"><img src="./images/banner_15.gif" width="435" height="48"></td>
    <td width="125"><table width="100" height="45" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><img src="./images/homepage.gif" width="16" height="16"></td>
          <td><a href=# onclick="javascript:this.style.behavior='url(#default#homepage)';this.setHomePage('upload/2011/12/201112281050186241.gif" width="16" height="16"></td>
          <td><a href="javascript:window.external.Addfavorite('http://localhost/dlib/','数字图书馆')" class="a00">加入收藏</a></td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="102"><a href="Default.asp" title="首页面"><%if session("Range")=1 then%><img src="./images/stsy_1.gif" width="99" height="24" border="0"><%else%><img src="./images/stsy_0.gif" width="99" height="24" border="0"><%end if%></a></td>

    <td width="109"><a href="Books.asp?booktype=1" title="电子图书"><%if session("Range")=2 then%><img src="./images/dzts_1.gif" width="106" height="24" border="0"><%else%><img src="./images/dzts_0.gif" width="106" height="24" border="0"><%end if%></a></td>

    <td width="115"><a href="Books.asp?booktype=2" title="纸质图书"><%if session("Range")=3 then%><img src="./images/ptzzts_1.gif" width="112" height="24" border="0"><%else%><img src="./images/ptzzts_0.gif" width="112" height="24" border="0"><%end if%></a></td>

    <td width="112"><a href="Books.asp?booktype=3" title="连续出版物"><%if session("Range")=4 then%><img src="./images/lxcbw_1.gif" width="108" height="24" border="0"><%else%><img src="./images/lxcbw_0.gif" width="108" height="24" border="0"><%end if%></a></td>

    <td width="110"><a href="Favorbooks.asp" title="最受欢迎图书"><%if session("Range")=5 then%><img src="./images/rmts_1.gif" width="106" height="24" border="0"><%else%><img src="./images/rmts_0.gif" width="106" height="24" border="0"><%end if%></a></td>

    <td width="113"><a href="Tuijian.asp" title="推荐图书"><img src="./images/zxts_0.gif" width="109" height="24" border="0"></a></td>

    <td width="109"><a href="Statistic.asp" title="统计"><%if session("Range")=7 then%><img src="./images/dzgrxx_1.gif" width="109" height="24" border="0"><%else%><img src="./images/dzgrxx_0.gif" width="109" height="24" border="0"><%end if%></a></td>
  </tr>
</table>
<table width="770" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="3"><img src="./images/box_left_46.gif" width="3" height="6"></td>
    <td width="765" background="./images/box_center_42.gif"></td>
    <td width="2"><img src="./images/box_right_23.gif" width="2" height="6"></td>
  </tr>
</table>
 

还是当时为我们这里的一个学校开发了，一直到现在也没有去打理它，最近有个网友加我QQ说这个导出Excel功能有问题，今天圣诞节也没有出去，就看了下，发现真的有个问题

1 不管选择什么时间 都会提示时间错误

2 导出Excel文件后是空的 没有任何数据

看了下代码 原来是变量的问题 没有定义一个变量！ 修正 测试 正常！ 需要的朋友 可以下载补丁 覆盖下！

201112242250432855.rar

如果还有其他什么问题，可以留言我！

1 、学生文件不能上传问题的修复

2、后台上机记录 班级判断错误修正

3、增加编辑器（文件上传）后台 可以直接修改上传文件的类型和大小

4、机房管理后台菜单增加

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

经过1个月的调整，学校机房管理系统终于走上了1.0正式版的道路，欢迎大家测试！

目前学校机房管理系统主要功能如下：

1 学生登陆系统：

学生上课通过选择班级，输入自己的真实姓名，如果学生存在，则判断密码是否正确，如果学生不存在，则保存学生信息。

2 学生上课登记

由后台管理员设置好机房，可以是自动根据机房IP判断或者指定机房，主要是适应有些学校多个机房的问题，然后学生登陆后，就可以进行使用情况的登记。（后台可以设置好使用情况，方面学生选择），默认同个学生机房登记1个小时内，只能允许登记一次！

3、学生自我文件管理

对于机房来说 学生的文件管理一直是个头疼的问题，放本地，容易被其他同学误删，老师也难以管理；放服务器则好了很多，本系统通过学生文件管理，让学生把重要的东西传到系统中，同时也可以通过共享文件，和本班同学一起共享，同事加入了评分系统，提供学生的积极性！这个可以作为老师上课最后作业评价的一部分！

4、学生作业上交

通过客户端学生的作业上交，老师可以对作业进行评价和批阅，

5、学生在线问答

主要是通过学生提问，老师答复的简单形式 来达到一定的交互作用。

6、在线公告系统

通过对指定班级或者全校进行公告，发布信息！

备注：1，文件附件话，和学生进行绑定，避免了服务器资源的浪费，删除学生，就删除了学生相关的文件

2、上机记录独立，不会因为删除学生班级等信息而影响记录的完整性！

在线演示：http://test.forwork.net/

下载：http://test.forwork.net/www.rar

后台管理：http://test.fowork.net/admin_login.asp

管理员 admin 密码 123456

学生节目截图：

学校网站是采用的动易SiteWeaver核心，本身动易支持栏目和信息的权限访问，但仅仅是支持用户级别的，老师每次访问都需要登录学校网站，这样不是很方便，所以学校提出，对于校内访问，可以直接访问 不需要登录用户。也就是要求网站增加一个IP的判断，如果是校内IP，就不需要登录，如果是非校内IP，才需要登录判断权限。

动易本身有整个网站的白名单和黑名单IP限制功能的，但这个也仅仅是对整个网站，我们现在是对某个具体的信息，所以打开动易的源文件，修改如下：

文件：include/PowerEasy.Article.asp

在1792行处修改代码如下：

If FoundErr = True And UserTrueIP<>"学校IP" Then
        If PreviewContentLength > 0 Then
            If Trim(rsArticle("Intro")) & "" <> "" Then
                ErrMsg = "<p align=left><b>" & XmlText_Class("ArticleContent/Intro", "内容简介：") & "</b><br><br>" & ReplaceText(rsArticle("Intro"), 1) & "……</p>" & ErrMsg
            Else
                ErrMsg = "<p align=left><b>" & XmlText_Class("ArticleContent/Content", "内容预览：") & "</b><br><br>" & Left(ReplaceText(nohtml(rsArticle("Content")), 1), PreviewContentLength) & "……</p>" & ErrMsg
            End If
        End If
        GetArticleContent = ErrMsg
        Exit Function
    End If

红色地方为增加的IP判断。

Microsoft Office 2010 Professional Plus版包含以下套件

原文地址：http://blog.oobeta.com/archives/2011/11/30/2161.html

近期更新：
　　1、调整写字方式，仅保留颜色设置，和系统主题更搭配。
　　2、改进引导程序，提示更加精确。

主要功能：
　　1、本地会员。可以免费使用高级涂鸦工具、会员炫彩字，其它功能一概不能使用！
　　2、插件过滤。拥有插件向导与插件管理器，可以实时进行调整，节约系统资源。
　　3、探测IP。对方在线时，发送截图、传输文件或视频聊天等即可获取对方IP。
　　4、查询IP。
　　　　本地查询。全新数据库格式，查询飞快，体积超小。
　　　　网络查询。无需庞大的本地数据库，直接联网查询。
　　　　内网查询。用户使用自行制作内网数据库后，精确度简直令人发指。
　　5、连接过滤。可以去除群广告，去除后台自动下载QQ医生。
　　6、屏蔽弹窗。屏蔽一切右下角弹窗。注意，默认启用了本功能，请注意选择。
　　7、文本朗读。不需要打开聊天窗口，就知道来的消息。朗读参数可自定义。
　　8、皮肤修改。可以修改大量影响视觉的多余按钮、菜单等。
　　9、老板键。轻松一按，立刻隐藏所有QQ，避免被老板发现。

　　此外还有许多实用功能：
　　　　·去插件校验，这样就可以删除多余的插件文件。
　　　　·隐身探测。如果检测到好友是隐身状态，会自动提示。不是很准，仅供参考。
　　　　·屏蔽安全扫描，同时也屏蔽安全组件损坏提示。
　　　　·XP下可以强制开启QQ透明，单击更改外观，开启透明度效果。
　　　　·本地SSO破解，方便制作绿色版（新版QQ已经不需要）。
　　　　·禁止生成日志文件，避免占用大量空间，而且还是你还看不懂的日志。
　　　　·去除群窗口部分广告按钮。去掉登录界面广告。
　　　　·可关闭应用盒子。可禁止显示皮肤提醒。可禁止节日Banner。
　　　　·可突破体验版限制。无需申请体验即可直接登录。
　　　　·图标控制。可以显示好友的隐藏图标，可以本地点亮自己的大部分图标。
　　　　·聊天加密。可以和你的好友安心聊天，而不用担心服务器偷窥。
　　　　·群单次发图数量无限制，离线隐身好友可发送震动、动一下表情。
　　　　·屏幕边缘自动吸附窗口，方便排列多个聊天窗口。
　　　　·单击鼠标中键使窗口总在最前或者取消。
　　　　·关闭窗口的同时按住Shift可关闭相似窗口。（或按下 Shift+Alt+C 加速键）

　　更多功能参看配置文件。部分不需要设置的功能直接内置而没有写进配置文件。

常见问题：
　　1、总是崩溃。首先，请确认你使用的是原版QQ+幽香2。其次可以尝试打开应用盒子。
　　2、缺少图标。为了加速QQ运行，默认关闭了许多插件，如果你需要，可以在插件管理中启用全部插件。
　　3、朗读不全。过长文本会自动截断，你可以自行设置截断长度。另外，一次朗读完成之前的文本会自动抛弃。
　　4、发图也不显示IP。本软件不支持代理IP的探测。另外内网IP探测并非100%成功。不支持自己探测自己。
　　5、地址不准？
　　　　程序只能探测到IP，例如255.255.255.128，然后查询数据库才能得到汉字描述的地址。
　　　　也就是说地址精确度和查询数据库有关，和程序无关。目前最全的就是纯真数据库，可以自行下载转换。
　　　　友情提示，不要过于看重IP地址，不一定准的。随便开个VPN，IP就不知道跑多远去了。
　　6、报毒？
　　　　欢迎使用 http://www.virscan.org/　http://www.virustotal.com/ 进行在线扫描。
　　　　为了尊敬的36X用户的心脏着想，不建议你们使用，免得被吓到。
　　7、如果还有什么问题，可以加QQ群：41590162，可以提供部分帮助。

其它需知：
　　1、本软件只为兴趣制作，没有修改QQ的任何文件。不写注册表，绿色纯净。
　　2、本软件承诺绝不做恶，绝不盈利。同时也不保证你能使用。
　　3、特别感谢：Morning，未注册，童话，山野哥，Starfish，Βеуоиδ，Ansifa，JayXon，狼哥。

免责声明：
　　如果本软件侵犯了您的版权，请及时联系，我会在24小时内处理。
　　本软件参考网上各种文章、软件写成，仅出于学习目的之使用，请在下载后24小时之内卸载。
　　如果您使用本软件进行任何涉及商业盈利目的的行为，产生的一切后果将由您自己承担！
　　为了保障您的利益，请支持正版软件。

下载地址：http://kuai.xunlei.com/d/XZBWWHSIRJCE

原文地址：http://blog.oobeta.com/archives/2011/12/05/2171.html