**********字符批量替换程序asp服务器版****************** 安装方法：直接把replace.asp文件放在任意的支持asp+FSO的环境中 运行方法：用http://localhost/.../replace.asp访问即可看到程序的效果 此程序的功能主要用来替换文件夹中所有文本文件字符用的。 如：txt、htm、asp、jsp、php、…… 一切的文本文件 div+CSS布局 兼容FF和IE浏览器 ---------目前具有功能------------------------ 即时查看当前替换文件路径 可选备份原文...
代码如下:Function makegroup(teams() As String) As String '函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始) '函数的变量定义. '显示变量声明是一个好习惯. Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer '初始化随机数产生器实现真正的随机性. Randomize (Timer) For tvar = 1 To 32 '共有32支球队 If (tvar - 1) Mod 4 = 0 Then '...
安装说明： 1、在IIS的Isapi上添加这个筛选器，筛选器名称 re，可执行文件选择 Rewrite.dll ； 2、设置httpd.ini文件 RewriteRule /news/(\d+)\.html /jsp/news\.jsp\?id=$1 [N,I] 表示将news.jsp?id=95 转换成news/95.html 以此类推，如果你有更多的参数，则增加相应的(\d+)，而后面的id=$1，则增加id=$2,等等。 目前较为普遍的动态网页包括asp,php,jsp,shtml,jhtml,cgi......甚至还有一些自己定义的，比如：aspx,do,index,hell...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!-- #include file="conn.asp" --> <!-- #include file="inc/function.asp" --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.gxlsystem.com"新闻网址knowsky.comgetcont=ReadXml(url,"gb2312","<table class=k2 border=""0""","</table>")getcont=RegexHtml(getcont)dim KeyId,NewsClass,City,Position,HouseType,Level,Area,Price,Demostra dim Contac...
代码如下:<% '======================================== class EngineerSearch '老龙:laolong9999@sina.com ':模拟XML获取http标记资源（用过之后就知道为什么XML有用：）） '利用引擎搜索(显示引擎信息或其超连接网站上的信息或直接一个指定页面的相关信息，利用正则和xmlHttp, '程序的使用需要会构造正则) '--------------------------------------------------------------- private oReg,oxmlHttp'一个正则，一个微软...
运行环境，NT（SERVER、WORKSTATION）、W2K 服务器上需要安装WSH2.0或者更高版本 如果您的系统目前没有安装WSH2.0，您可以从以下这个地址去下载它 http://www.gxlsystem.com/msdownload/vbscript/scripting.asp 里面包含了WSH2.0 下面是源代码 <%@ Language="VBScript" %> <% Option Explicit %> <% If Request.Form("frmHost") = "" Then '设置初始值 strIP = Request.ServerVariables("REMOTE_ADDR") Else strIP = ...
可以放在服务器上，对服务器上的文件进行浏览、上传、下载，可下载文件源码。 把下所有代码入在一个文件里即可，文件的后缀要为asp。 代码如下:<% thedir = request("thedir") if thedir = "" then folderini = server.mappath(".")&"\" else folderini = server.mappath(thedir)&"\" end if foldinfo=trim(Request.Querystring("foldinfo")) if foldinfo = "" then foldinfo = folderini end if class clsUp Dim ...
实在没辙，PJBlog 的垃圾引用防治补丁以及新日志发送失败的修正补丁发布后，天天都有因为修改错误而找上门询问的。为了简化大家的升级步骤，减少升级造成的错误。本人参考了部分前辈的程序后，做出了前面两个补丁的自动安装程序，代码替换，数据库升级都一步到位。恩恩。废话少讲，给下载，大家记得升级前要备份哈，尤其是数据库一定要备份一次。 虽然本程序在本人的本地环境里的全新 PJBlog 上测试成功，但不能排除装过其他插件...
代码如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '设置登陆密码，使用前务必修改此密码 PASSWORD = "www.gxlsystem.com" '其他扫描设置 DimFileExt = "asp,cer,asa,cdx" '文件类型扩展名列表，不在此列表的将不被扫描 maxfilesize= 51200 '500K，超过此文件大小的文件(一般不是木马)，将不被扫描 timeout=600 '如果扫描超过600秒，脚本将终止 'jspadmin@asp.web.csdn=阿笨狗=飞云 修改于2006.07.07 '获取最新修改版本，请关...
今天搞sxna,遇到了编码转换的难题，搞了一个多小时，历尽千辛万苦，总算总结了如下的汉字转换为各种UTF-8 Unicode Ansi编码的程序．不敢独享，特此奉献给各位编程爱好者！ -------------------------------------------------------------------------------- 符合GOOGLE的UTF编码 汉字 经过encodeURIComponent变成 %E6%B1%89%E5%AD%97 %E6%B1%89%E5%AD%97经过decodeURIComponent变成汉字 用google搜索"汉字": http://www.gxlsy...
若要使用浏览器，通过ASP调用ADSI来控制windows 2000的资源，必须使用Administrators组用户权限才可以正常使用。 有二种解决方案。 一、通过修改IIS站点--目录安全--匿名访问用户--将Administrators组用户设为匿名访问用户即可 设置后，访问此站点用户都将具有Administrators组用户权限，因此，应小心设置此操作。 二、通过修改IIS站点--目录安全--只选择基本难证一项即可 设置后，每次访问此站点，都将提示输入用户名及密码，输入...
sake: 很有用的程序 呵呵 转的，虽然现在打了防垃圾引用的补丁了 转自这里http://bbs.pjhome.net/viewthread.php?tid=12833&extra=page%3D1%26amp%3Bfilter%3D0%26amp%3Borderby%3Ddateline 今天彻底把我若怒了 自己写了一个,先清一下再说 保存到一个asp文件中,放到你BLOG的根目录,运行就OK了，页面中出现的数字是被删除的引用 我今天删了5000…… 代码如下:<!--#include file="const.asp" --> <!--#include file="common/functio...
ASPJPEG是Persits出品的共享软件，试用期为30天，您可以在这里下载：http://www.gxlsystem.com/aspjpeg.exe。最新版本号是1.3=========================================<% sub jpegclass(imgurl,fontsize,family,isbold,top,left,content,Horflip) '调用过程名 Dim Jpeg,font_color,font_size,font_family,f_width,f_height,f_content,f_Horflip '建立实例 Set Jpeg ...
示例地址: http://www.gxlsystem.com/rss.asp 站点:http://www.gxlsystem.com/jiankang 该程序放根目录 或者其他目录,地址自己改,读出最新的20条资源.( 可以修改成读取get叁数的形式) 自动判断网站地址端口,无需要人工干预. 代码如下:<% Option explicit %> <!--#include file="Manage/Include/Config.do" --> <% Dim sSQL, rs, sCrLf, sXmlClear, sRssHead, sRssEnd ,Url sCrLf = chr(13) & chr(10) '回车+换行 If Reque...
通常的聊天室所采用的程序，也就是Chat程序了，其基本结构原理是不会采用到数据库的。那究竟采用什么技术呢？我们知道ASP变量当中Session变量的作用是记录单个用户的信息，并且能跟踪用户的行为；Application对象的作用则起的全局变量，可以实现站点多个用户之间在页面中共享信息的。那可以想象，在针对当前聊天程序中，一个聊天成员即为一个Session变量，聊天成员之间的会话则当成Application变量进行共享显示，以使各成员都能看见...