搜索列表
-
如何获知文件最后的修改日期和时间？
【编程10000问】<%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量，并且GetProperty类是当前唯一可用的.strModified = objCMFU.LastModified' 检索并返回包含最后修改日期和时间（LastModified function ）值.当然了,还要考虑到出错的...
|如何|何获|获知|知文|文件|件最|最后|后的|的修|修改|改日|日期|期和|和时|时间|间？|？| -
如何对一个文件夹进行创建和删除？
【编程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...
|如何|何对|对一|一个|个文|文件|件夹|夹进|进行|行创|创建|建和|和删|删除|除？|？| -
如何对文件进行操作？
【编程10000问】<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename ' 映射...
|如何|何对|对文|文件|件进|进行|行操|操作|作？|？| -
如何通过表单创建一个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？|？| -
如何做一个文本书写器？
【编程10000问】<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode, True)oTextFile.Write C...
|如何|何做|做一|一个|个文|文本|本书|书写|写器|器？|？| -
如何显示一个文本文件？
【编程10000问】 Write（StrING） WriteLine（StrING） WriteBlankLines（LINES） 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉春风精彩之文本文件显示〈/title〉 〈/head〉 〈body〉 <%...
|如何|何显|显示|示一|一个|个文|文本|本文|文件|件？|？| -
如何读取文本文件的内容？
【编程10000问】<%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read' 检索要读的文件的完整路径.Set fileSysOb...
|如何|何读|读取|取文|文本|本文|文件|件的|的内|内容|容？|？| -
如何一行行地读取文件？
【编程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...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？| -
如何用Cookie进行登录验证？
【编程10000问】login.htm请注册登录随风起舞<FORM ACTION="checklogin.asp" METHOD="POST"> 电子邮件: <input TYPE="Text" NAME="email" SIZE="40"> 密码: <input TYPE="Password" NAME="Password" SIZE="40"> <i...
|如何|何用|用C|Co|oo|ok|ki|ie|e进|进行|行登|登录|录验|验证|证？|？| -
为什么用磁盘序列号加密过的代码不能被复制安装？
【编程10000问】default.asp＜html＞＜head＞＜title＞星河影动之磁盘序列号加密代码存取管理＜/title＞＜/head＞＜% dim conn,fs,fSet conn = Server.CreateObject("ADODB.Connection")conn.open "driver={Microsoft Access Driver (*.mdb)};uid=;pwd=3302;dbq="&server.mappath("id.mdb")set fs=server.createObj...
|为什|什么|么用|用磁|磁盘|盘序|序列|列号|号加|加密|密过|过的|的代|代码|码不|不能|能被|被复|复制|制安|安装|装？|？| -
如何实现人民币的大写转换？
【编程10000问】第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String&...
|如何|何实|实现|现人|人民|民币|币的|的大|大写|写转|转换|换？|？| -
如何验证字符串是否包含有效字符？
【编程10000问】<%FUNCTION TestString(SomeString)TempString = trIM(SomeString)TempString_Length = Len(TempString)TempString_OK = trueFOR TempString_Pos = 1 TO TempString_Length TempString_Char = Mid(TempString,TempString_Pos) TempString_Cha...
|如何|何验|验证|证字|字符|符串|串是|是否|否包|包含|含有|有效|效字|字符|符？|？|
