HTML文件标记 <html> <head> <!--> <title> <body> 文字排版标记 <br/> <nobr> <p> <pre> 原始文字样式 <center> <blockquote> 向内缩排 <h> 标题 <strong>,<b> 粗体 <em>,<i>,<cite> 斜体 <U> 底线 <strike> 删除线 <blink> 文字闪烁 <big> 大型字体 <small> 小型字体 <sup> 文字上标 <SUB> 文...
============================================================= ' 感谢您使用ASP001工作室开发的实用函数程序 ' HTTP://WWW.ASP001.NET '============================================================= 'ASP001工作室为您提供订制程序开发、企业互联网拓展服务 'QQ：1974229 'E-Mail：Shenyangchuqi@tom.com '更多程序下载请到HTTP://WWW.ASP001.NET '=============================================...
函数，就是该语言封装了的一个功能块，以方便用户的调用。比如“now()”在VBScript中就是一个能显示出当前日期和时间的函数。至于具体为什么能显示，则是该语言内核所定的，用户只需明白“now()”就是用来能显示日期时间的。那么，我们当前接触的VBScript还有其他什么功能的函数么？1，日期/时间函数这些函数包括对“年”、“月”、“日”、“时”、“分”、“秒”、“星期”等的显示。（1）Now函数：根据计算机系统设定的日期和时...
大致如下：1，POP3对象，是对POP3邮件接收服务器的操作。2，Messages对象，是有关邮件集合的对象。3，Message对象，是有关邮件的对象，其是Jmail组件最常用的对象，能发送邮件信息，也能接收邮件信息。4，Header对象，是与邮件头相关的对象。5，Recipients对象，是有关接收邮件集合的对象。6，Recipient对象，是有关接收邮件的对象。7，Attachments对象，是有关邮件附件集合的对象。8，Attachment对象，是有关邮件附件的对象。9，M...
代码如下:<% '转发时请保留此声明信息,这段声明不并会影响你的速度! '************************** 【日期扩展类】Ver 0.1.1******************************** '开发人: Sman、Net Fetch '开发日期: 2005-11-11 '版本号: Ver 0.1.1 '官方网站:http://www.gxlsystem.com NetFetchStudio@163.com '每日在线QQ:19341293 32050450 '版权声明:版权没有,盗版不究,源码公开,欢迎盗版,欢迎你到官方...
FSO的意思是FileSystemObject，即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中，它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象，用来操作文件和文件夹十分方便。 FSO文件（File）对象属性 属 性 说 明 DateCreated 返回该文件夹的创建日期和时间 DateLastAccessed 返回最后一次访问该文件的日期和时间 DateLastModified 返回最后一次修改该文件的日期和时间 Drive 返回该文件所在的...
代码如下:<% '///****************************************************************** ' 常用公共函数库 文件名：PubFunction.asp '******************************************************************/// Const Go_back="<a href='javascript:history.back(1)'>[返回上页]</a>" Const Closer="<a href='javascript:self.close()'>『关闭窗口』</a>" '//*********************************************************...
<%@ Language=VBScript %> <% '遍历目录以及目录下文件的函数， %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders nowpath=path + "\" + objSubFolder.name Response.Write nowpath set objFiles=objSubFolder.Files for each objFile in ...
asp 中处理文件上传以及删除时常用的自定义函数 <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '所有自定义的VBS函数 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' function DeleteFile(Filename) '删除文件if Filename<>"" thenSet fso = server.CreateObject("Scripting.FileSystemObject")if fso.FileExists(Filename) thenfso.DeleteFile Filenameend ifset fs...
<%function bianli(path)'initiatepath = server.mappath(path)set fso=server.CreateObject("scripting.filesystemobject") set objFolder=fso.GetFolder(path)set objfiles = objfolder.files'把文件名及文件路经存入theFiles数组int slot = 0Dim theFiles()redim theFiles(50)for each objFile in objFilesfilename = objFile.namefilePath = split(objFile.path,"docs\")thepath1 = "./docs/"thepath = thepath1 & filepath(1)...
代码如下: <% ==============================================================检查提交数据合法性 Function CheckInput() --------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql 自定义需要过滤的字串,用 "|" 分隔 Fy_In = "|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" Fy_Inf = split(Fy_In,"|") ...
代码如下:<% '建立文件夹函数 Function CreateFolder(strFolder)'参数为相对路径 '首选判断要建立的文件夹是否已经存在 Dim strTestFolder,objFSO strTestFolder = Server.Mappath(strFolder) Set objFSO = CreateObject("Scripting.FileSystemObject") '检查文件夹是否存在 If not objFSO.FolderExists(strTestFolder) Then '如果不存在则建立文件夹 objFSO.CreateFolder(strTestFolder) End If ...
Array() FUNCTION: 返回一个数组 SYNTAX: Array(list) ARGUMENTS: 字符，数字均可 EXAMPLE: <% Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %> RESULT: 建立了一个包含7个元素的数组myArray myArray("Sunday","Monday", ... ... "Saturday") CInt() FUNCTION: 将一个表达式转化为数字类型 S...
先检查是否已经存在该目录了，如果存在，则不做任何处理，如果不存在则创建。 希望对各位快速开发有用。 CheckFolder.asp <% '*********************************************************************************************************** '作 者: 赵敏 flash90@sohu.com '页面名称: CreateFolder.asp '页面功能: 生成n层目录的文件夹 '使用方法: 调用CheckFolder()函数,例如: CheckFolder(path) '传入参数: 即将上传的文件的相...
代码如下:<% Dim Cmd Set Cmd = New Cls_Command Class Cls_Command Private Re Public Function IsPositiveInteger(value) Set Re = New RegExp Re.Pattern = "^[1-9][\d]*$" Re.IgnoreCase = True Re.Global = True IsPositiveInteger = Re.Test(value) Set Re = Nothing End Function Public Function IsDigit(vString) If vString = "" Then IsDigit...