<html><head><title>随风起舞之文件查询</title></head><body><p align="center" > <b><...
<%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量,并且GetProperty类是当前唯一可用的.str...
Function File_GetLastModified( sFile )Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject")&nbs...
<%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = My...
如何对一个文件夹进行创建和删除?<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %&g...
<%Function getFilename(text)text = Left(text,inStrRev(fl,".")-1)getFilename = text End Function Function getExt...
<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2&n...
docform.htm<form action="doccreate.asp">姓名: <input type="text" name="Name" size="50" maxlength="100">电子邮件: <input t...
<%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString &...
<%@ Language=VBScript %><% function bianli(path) set fso=server.CreateObject("scr...
creatfolder.htm' 表单文件.<form name="form1" method="post" action="folder.asp">创建一个文件夹: <input type="text" name="name"><...
creatdoc.asp<!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><ME...
<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = ...
Write(StrING) WriteLine(StrING) WriteBlankLines(LINES) 〈html〉 〈head〉 〈http-equiv="Content-Type" content...
<%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_...
dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObje...
<%Dim NumVisit' 声明变量.NumVisit = Request.Cookies("chunfeng")("totalvisit")' 检查用户来访问过多少次.If NumVisit = "" ThenNumVisit = 0End If'...
folder.htm<html><head><title>闪亮日子之在线创建文件夹</title></head><body>春风精彩<br>在线创建文件夹</td>...
testCookies.asp' 检查浏览器是否接受Cookies.<%strTest = Request.QueryString("CookieTest")If UCase(strTest) <> Ucase("true") ThenSes...
remberme.asp' 用户提交个人信息.<%response.Cookies("information")("姓名")=request.form("name")response.Cookies("information")("顾客号")=reque...