搜索列表
-
如何简单地上传文件?
【编程10000问】<html><script language="VB" runat="server"> Sub UploadBtn_Click(Sender as Object, E as EventArgs) UploadFile.PostedFile.SaveAs(Server.MapPath("chunfeng.jpg")) &nb...
|如何|何简|简单|单地|地上|上传|传文|文件|件?|?| -
如何制作一个文本文件编辑器?
【编程10000问】newdoc.asp<%@ Language=VBScript %><script id=DebugDirectives runat=server language=javascript>//Set these to true to enable debugging or tracing@set @debug=false@set @trace=false</script><html><head><META name=VI60_defaultClientScr...
|如何|何制|制作|作一|一个|个文|文本|本文|文件|件编|编辑|辑器|器?|?| -
如何获知文件最后的修改日期和时间?
【编程10000问】<%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量,并且GetProperty类是当前唯一可用的.strModified = objCMFU.LastModified' 检索并返回包含最后修改日期和时间(LastModified function )值.当然了,还要考虑到出错的...
|如何|何获|获知|知文|文件|件最|最后|后的|的修|修改|改日|日期|期和|和时|时间|间?|?| -
如何获知文件被改动的情况?
【编程10000问】Function File_GetLastModified( sFile )Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME") ) End If Set objFile ...
|如何|何获|获知|知文|文件|件被|被改|改动|动的|的情|情况|况?|?| -
如何获知并显示文件的大小?
【编程10000问】<%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%><p><% =MyPath %> is <% =MyFolder.Size %> bytes</p>  ...
|如何|何获|获知|知并|并显|显示|示文|文件|件的|的大|大小|小?|?| -
如何获取文件的名称和扩展名?
【编程10000问】 <%Function getFilename(text)text = Left(text,inStrRev(fl,".")-1)getFilename = text End Function Function getExtn(text)text = Left(text,inStr(text,".")-1)getExtn = textEnd Function%>[1]
|如何|何获|获取|取文|文件|件的|的名|名称|称和|和扩|扩展|展名|名?|?| -
如何对一个文件夹进行创建和删除?
【编程10000问】如何对一个文件夹进行创建和删除?<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %><%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End If%> <%If fs.folde...
|如何|何对|对一|一个|个文|文件|件夹|夹进|进行|行创|创建|建和|和删|删除|除?|?| -
如何通过表单创建一个Word?
【编程10000问】docform.htm<form action="doccreate.asp">姓名: <input type="text" name="Name" size="50" maxlength="100">电子邮件: <input type="text" name="Email" size="50" maxlength="100"><p>内容:<textarea cols="50" rows="10" name="comments"></textarea><...
|如何|何通|通过|过表|表单|单创|创建|建一|一个|个W|Wo|or|rd|d?|?| -
如何创建一个PDF文件?
【编程10000问】 <%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" &n...
|如何|何创|创建|建一|一个|个P|PD|DF|F文|文件|件?|?| -
如何创建Word文件?
【编程10000问】creatdoc.asp<!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"></head><% dotLocatio...
|如何|何创|创建|建W|Wo|or|rd|d文|文件|件?|?| -
如何显示一个文本文件?
【编程10000问】 Write(StrING) WriteLine(StrING) WriteBlankLines(LINES) 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉春风精彩之文本文件显示〈/title〉 〈/head〉 〈body〉 <%...
|如何|何显|显示|示一|一个|个文|文本|本文|文件|件?|?| -
如何一行行地读取文件?
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件?|?|