jujuchen的专栏

guest.xml殷亮pic/20.jpg湖北荆门2002-10-17 22:48:01ask10@msn.com这是一个基于XML的留言本黄娟pic/7.jpg湖北武汉2002-10-17 22:48:01fengzhongluwei@hotmail.com你好吗? set guestXml = Server.CreateObject("MSXML.DOMDocument")gu

Sub CreateFile(filename,filetext)Dim fso, tfSet fso = CreateObject("Scripting.FileSystemObject")Set tf = fso.CreateTextFile(Server.MapPath(filename), True)tf.WriteLine(filetext) tf.CloseEnd Sub调用方式:

Function DeleteFile(filename)Dim fso, tfSet fso = CreateObject("Scripting.FileSystemObject")Set tf = fso.GetFile(Server.MapPath(filename))tf.Deleteset tf=nothingset fso=nothingEnd Function调用方式: De

Sub CreateFile(filename,filetext)Dim fso, tfSet fso = CreateObject("Scripting.FileSystemObject")Set tf = fso.CreateTextFile(Server.MapPath(filename), True)tf.WriteLine(filetext) set tf=nothingset fso=

Function DeleteFolder(FolderName) Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFolder (Server.MapPath(FolderName)) set fso=nothingEnd Function调用方式DeleteFolder(replace(date(),"-",

http://download1.youkuaiyun.com/down3/20070529/29092344467.rar 

=============================================================================================== File: Wyd_Class.asp                                                                           Versio

function FSOFileRead(filename) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,Tru

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>截取一定数量的文字输出>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Public Function OutText(strText,intOutSize) IF Len(strText)>intOutSize Then 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>判断是否非法提交数据 True 为正常 False 为非法提交 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Function ChkPost() Dim server_v1,server_v2 Chkpost=Fals

====================================================判断用户名是否包含非法字符 True 合法的字符串====================================================Function CheckString(Str1) Dim N Dim S For N = 1 To Len(Str1)  S = A

先下载远程图片 url="http://www.im286.com/images/im286/logo.gif" 远程图片地址 savepath="D:/photo/" 保存路径 为文件重命名 randomize ranNum=int(999*rnd) filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(n

Class CacheConn    Public Conn 数据连接对像    Private ErrStr 出错字符串    Private DBcache 是否使用dbcheck    Private ConFlag 数据连接状态    Private CookieName CookIe名(用于防止多网站冲突)    Private ConnStr 连接数据字串    类始

--------------------------------------Fly38.com - VerifyCode Class        gif 验证码生成类                 原作者：NetRube --------------------------------------Class Fly38_VerifyCode        Public GlobalC

用xmldom方法打开xml文件，如果是本地的没有问题，就是用Server.MapPath("xml.xml")的方法，这时能正常分析出内容，但是直接用url却不显示出xml内容（在XMLDOM里表示是支持URL方式的），后来研究一下发现可以用XMLHTTP的方法获取XML后再分析，代码如下：Set http=Server.CreateObject("Microsoft.XMLHTTP")ht

 在IE进行文档链接时,如果遇到OLE支持的文档,IE会自动调用相应程序打开它,有时候这种功能并不是我们所需的,虽然我们可以提醒用户用鼠标右键-->"目标另存为...."命令来下载文档,但这样毕竟不太友好,本文描述了利用FSO及Stream方法实现IE直接下载文档.Filename must be inputif Request("Filename")="" then respons

一、环境配置二、ASP对Excel的基本操作三、ASP操作Excel生成数据表四、ASP操作Excel生成Chart图五、服务器端Excel文件浏览、下载、删除方案六、附录正文一、环境配置服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即：1．Win9x+PWS+Office2．Win2000Professional+PWS+Office3．Win2000Server+IIS+Offic

********************************************** vbs Cache类 属性valid，是否可用，取值前判断 属性name，cache名，新建对象后赋值 方法add(值,到期时间)，设置cache内容 属性value，返回cache内容 属性blempty，是否未设置值 方法makeEmpty，释放内存，测试用 方法eq

Request.ServerVariables("HTTP_REFERER")    上一页Request.ServerVariables("Remote_Addr") ip地址Request.ServerVariables("HTTP_USER_AGENT") 浏览器信息 

Response.Buffer=true取得要下载的文件，如果不为空。就下载dim url,trueurlurl="下载文件路径和下载文件名"   fname=Request("filename")   if fname      trueurlurl=server.MapPath("/") &url   end if   set objFso=server.CreateObject("scrip

摘要: 本文演示了在 MSSQL查询分析器中使用存储过程和在 ASP使用存储过程 对 MSSQL 的基本数据操作, 包括建表, 添加,更新,选取,删除记录.说明: 建=建表 / create table添=添加记录 / insert更=更新记录 / update选=选取记录 / select删=删除记录 / delete目录:1. 在查询分析器中建表, 名 t, 并授权给用户(组)2. 添加记录2

一，获得网页来访者IP地址的代码是： 您的IP是: 二，获得操作系统版本的代码是： " & browser function operationsystem() 操作系统版本 agent = Request.ServerVariables("HTTP_USER_AGENT") if Instr(agent,"NT 5.2")>0 then SystemVer="Windows Server 2

 1%@Language = "VBScript" Codepage = "936"%> 2% 3分页sql语句生成代码 4Function GetPageSql(TblName,FldName,PageSize,PageIndex,OrderType,StrWhere) 5    Dim StrTemp,StrSql,StrOrder 6    根据排序方式生成相关代码 7    If Or

工程名flysoft   类模块image.clsOption Explicit*****************************************************优快云 VB版 online(龙卷风3.0 笑傲江湖)2005-6-30日修改部分代码名称:缩略水印组件时间:2005-02-11功能:增加了文字水印功能时间:2005-02-12功能

最近网上流行着一些采集程序,更多人拿着这些东西在网上叫卖,很多不太懂的人看着那些程序眼羡,其实如果你懂一些ASP,了解自动采集程序的原理后,你会感觉实现自动化也是那么的简单.原理及优点:通过XML中的XMLHTTP组件调用其它网站上的网页，然后批量截取或替换原有的信息使其转化成变量后再一一储存到数据库中。其主要的优点便是无需再手工添加大量的信息了，可以指定对某一个站信息的截取进行批量录入，达到省时

Class ImgWHInfo 获取图片宽度和高度的类，支持JPG，GIF，PNG，BMP    Dim ASO    Private Sub Class_Initialize        Set ASO=Server.CreateObject("ADODB.Stream")        ASO.Mode=3        ASO.Type=1        ASO.Open    End

dim tmpnum从第一张页面传过来的小写金额tmpnum=request("page1num")调用并显示大写金额response.write rmb(cdbl(tmpnum))response.end%>common.aspFunction rmb(num)num = FormatNumber(num, 2)Dim numList Dim rmbList Dim numLenDi

const savepath="tempfile/"function myreplace(str)newstr=strset objregEx = new RegExpobjregEx.IgnoreCase = trueobjregEx.Global = trueobjregEx.Pattern = "http://(.+?)/.(jpg|gif|png|bmp)"set matches =

我在用ASP为某单位制作网页时遇到这样一个问题，单位以前的MIS系统中将一些Word文件以字节流的形式保存在数据库中，现在用户要求我用ASP将这些Word文件数据从数据库中取出并在网页中显示出来。 开始我自然地想到在服务器上创建临时文件、然后在网页中增加一个指向这个临时文件的链接，但这个方法将大大增加服务器的负担不说，而且在服务上如何保证特定客户端所使用的临时文件不被其它客户端使用的文件覆盖，如何

        　　所有自定义的VBS函数 　　 　　function DeleteFile(Filenam

dim selstr,rqstr as string if trim(request("sword")) = "" then rqstr = "" else rqstr = trim(request("sword")) rqstr = rqstr.replace("=","") rqstr = rqstr.replace("%","") rqstr = rqstr.replace(chr(32),

为了使asp尽量减少服务器端的工作量，就应该多使用javascript，把所有提交字段使用javascript或vbscript检测后提交给服务器，这样服务器就不必再作检测，而在提交时可能会有人修改script从本地提交，这样便存在安全提交的问题，所以应该要求从服务器断路径提交，使其他地址提交提交无无效： server_v1=Cstr(Request.ServerVariables("HTTP

先说一下我的测试环境:XPSP2，IIS5.1，FCKeditor2.0　　在IIS上建立一个新的站点，我直接取名为FCKeditor　　在DW里建立一个相对应的站点，测试服务器为本机，支持VBScript　　下载FCKeditor2.0，这个东西是开源的，网上能下到的地方很多，自己找去……　　下载下来的应该是压缩包，解压到FCKeditor站点根目录，什么都不需要更改，直接就可以

获取访问者的地址ip=Request.ServerVariables("REMOTE_ADDR") 允许的IP地址段为10.0.0.0～10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71"response.write checkip(ip,allowip1,allowip2)function checkip(ip,allowip1,al

RegReplace(str,regexStr,RepalceStr) 对str 进行正则替换 如： htmlstr = "123456" htmlstr2 = RegReplace(htmlstr,"","") 返回 htmlstr2 为123456 Function RegReplace(Str,PatternStr,RepStr)Dim NewStr,regExNewStr

Response.Buffer=true取得要下载的文件，如果不为空。就下载dim url,trueurlurl="下载文件路径和下载文件名"fname=Request("filename")if fnametrueurlurl=server.MapPath("/") &urlend ifset objFso=server.CreateObject("scripting.filesystemobj

ASP: str="这里是一些含有html标签的字符传，也可以是多行的文本。"Set re = New RegExpx="/]+()/>"re.Pattern = xre.Global = Truere.IgnoreCase = Truere.MultiLine = Truestr=re.replace(str,"1")运行结果：　　　这里是一些含有html标签的字符传，也可以是多行的

本文全面的详细的介绍了ASP正则表达式的规范，以及如何建立和使用的注意事项。什么是正则表达式如果原来没有使用过正则表达式，那么可能对这个术语和概念会不太熟悉。不过，它们并不是您想象的那么新奇。请回想一下在硬盘上是如何查找文件的。您肯定会使用 ? 和 * 字符来帮助查找您正寻找的文件。? 字符匹配文件名中的单个字符，而 * 则匹配一个或多个字符。一个如 data?.dat 的模式可以找到下述

dim RefreshIntervalTimeRefreshIntervalTime = 3 防止刷新的时间秒数，0表示不防止If Not IsEmpty(Session("visit")) and isnumeric(Session("visit")) and int(RefreshIntervalTime) > 0 Thenif (timer()-int(Session("visit")))

******************************||Function TimeDiff(sBegin, sEnd)||本函数计算两个时间的差，可以不用更改直接使用||作者：machinecat 2001/10/26************************************************************注：首先需要判断用户输入的sBegin与