[其它] ASP页面随机添加字符实现防复制的代码

说明：<%         ‘作用:文字防复制乱码 函数         ‘Date:2006-3-6         ‘作者:blue2004         ‘参数str 为原文,str1作者也是你自己,reslut产生乱码的种子         Function ReadToCode(str,Str1,result)                 dim name                 dim i,j,k                 If isnull(str) then
<weixin_38689922> 上传 | 大小：28kb

[其它] asp实现计算两个时间内的工作日的函数

说明：<% ‘****************************** ‘函数：workdays(date_begin , date_end) ‘参数：date_begin,开始日期；date_end,结束日期 ‘作者：阿里西西 ‘日期：2007/7/15 ‘描述：计算两个时间内的工作日 ‘示例：workdays(“2007-05-18” , “2007-05-21”) ‘****************************** function workdays(date_begin 
<weixin_38633897> 上传 | 大小：18kb

[其它] asp 取得用户真实IP，对代理地址仍然有效的函数

说明：<% ‘****************************** ‘函数：GetUserTrueIP() ‘参数：无 ‘作者：阿里西西 ‘日期：2007/7/13 ‘描述：取得用户真实IP，对代理地址仍然有效；返回值：文本类型的IP地址 ‘示例： ‘****************************** Function GetUserTrueIP()    dim strIPAddr    If Request.ServerVariables(“HTTP_X_FORWARDED
<weixin_38638596> 上传 | 大小：20kb

[其它] ASP实现GB2312字符与区位码的相互转换的代码

说明：研究编码，得知GB2312编码与区位码的关系，尝试之后，得此程序。 搜索，似乎没人写，故发此地。 原创首发： http://bbs.blueidea.com http://mytju.com/classcode/ 任意转载，任意使用。 1.简述 （1）GB2312标准的定义，其实就是区位码。 共94行，94列，行就是区号，列就是位号。 如“啊”字区号为16，位号为01，它的区位码就是1601。 （2）每个字符由区号+位号组成，共占两个字节。 每个字节都是01-94，与通信控制符0-31冲突， 所
<weixin_38752897> 上传 | 大小：48kb

[其它] 用javascript解决外部数据抓取中的乱码问题

说明：我们一般会在两个地方用到外部数据抓取，一个是在asp中，一个是在hta中。如果外部数据是gb2312编码的，就涉及到转码的问题，但是传统的用vbs函数进行处理的方法，运算量比较大，有些特殊字符还会出错。    如果用adodb.stream控件来进行转码，就简单多了，不需要借助vbs的二进制处理函数了，同时速度快了很多。 代码如下:[removed]  function loadData(sUrl){      var xh      xh=new ActiveXObject(“Microsof
<weixin_38690407> 上传 | 大小：39kb

[其它] ASP中实现限制IP的函数详解

说明：‘****************************** ‘Function CheckIp(cInput_Ip,cBound_Ip) ‘Created by qqdao, qqdao263.net 2001/11/28 ‘说明：首先需要根据;号循环，然后判断是否含有”-“，如果有则进行拆分处理，最后判断是否在范围内 ‘参数： cInput_Ip,代检查的ip ‘cBound_Ip,给定的范围格式为,单个ip,和范围ip，范围ip最后使用”-“分割，如果是“*”则必须放到最后一位 ‘每个范
<weixin_38627213> 上传 | 大小：35kb

[其它] ASP使用FSO读取模板的代码

说明：m_Root是文件名，可以使用相对路径。 调用调用示例： Response.Write(LoadFile(“Test.htm”)) Function LoadFile(m_Root) Dim Filename,fso,hndFile Filename = m_Root If Right(Filename, 1)”/” And Right(Filename, 1)”” Then Filename = Filename & “/” Filename = Server.MapPath(Filename
<weixin_38654382> 上传 | 大小：29kb

[其它] 方便的大家admin及admin888 经过 md5加密后16位和32位代码

说明：面是 admin 的加密代码： 16位加密：7a57a5a743894a0e 32位加密：21232f297a57a5a743894a0e4a801fc3 admin888的MD5加密码 16位：469e80d32c0559f8 32位：7fef6171469e80d32c0559f88b377245 经常调试源码用的，留个记号，省的以后老是在网上找。 记得另外一种加密方式 admin 加密后是 bfpms 您可能感兴趣的文章:java实现MD5
<weixin_38570854> 上传 | 大小：32kb

[其它] 一小偷类!!有兴趣的可以看看

说明：类代码 (cls.asp) <% Class clsThief Private strUrl    ‘ 偷取地址 Private strValue  ‘ 偷取的内容,所有内容 Private strResult ‘ 偷取结果,可以具体某一块内容 Private flag      ‘ 是否已经偷过 ‘——-初始化类——–‘ Private Sub Class_Initialize()     strUrl=””  strValue=””  strResult=””  flag=false
<weixin_38722607> 上传 | 大小：38kb

[其它] Access 2000 数据库 80 万记录通用快速分页类

说明：代码本人优化过，测试通过 主要思路: 用一条语句统计(Count)出记录数(而不在查询时获得 RecordCount 属性), 缓存在 Cookies 中, 跳转时就不用再次统计. 使用 ADO 的 AbsolutePage 属性进行页面跳转即可. 为方便调用而写成类, 代码主要地方已有说明 硬件环境: AMD Athlon XP 2600+, 256 DDR  软件环境: MS Windows 2000 Advanced Server + IIS 5.0 + Access 2000 + IE 
<weixin_38609571> 上传 | 大小：71kb

[其它] VBScript中变量作用域

说明：下午在写程序的时候，碰到个变量重定义的问题，具体是在一个函数中的两个地方定义了相同的变量，两个变量分别放在IF语句的两部分中，本来以为这两次定义在语句中不同的块，应该没有影响，然而在运行中IIS却提示变量重定义，把重复定义去掉即正确。 解决了问题之后突然想到在Fdream的blog看过一篇文章《Javascr ipt变量无块级作用域》，似乎这两个是差不多的，在VBscr ipt中变量同样没有块级作用域。 再次去看了那篇文章之后我也做了下试验，得到结果：在VBscr ipt中，函数中定义的变量的作
<weixin_38627826> 上传 | 大小：46kb

[其它] 写入文本文件的过程函数(ASP)

说明：今天写程序的时候要反复用到写入文本文件,于是就写了一个过程函数,希望对大家有用. 代码: 代码如下:Sub Write2File(strFile, strContent, blnAppend)         ‘ 写入文件  ‘ strFile 文件名(路径) , strContent 写入的内容, blnAppend 是否追加          On Error Resume Next          Set objFSO = Server.CreateObject(“scr ipting
<weixin_38637272> 上传 | 大小：24kb