搜索列表
-
如何制作一个文本文件编辑器？
【编程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问】<html><head><title>随风起舞之文件查询</title></head><body><p align="center" > <b><font face="宋体" color="red" size="5"> 星河影动之文件查询系统</font></b></p><hr><form method="PO...
|如何|何在|在线|线查|查询|询本|本地|地机|机的|的文|文件|件？|？| -
如何获知文件最后的修改日期和时间？
【编程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问】 <%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]
|如何|何获|获取|取文|文件|件的|的名|名称|称和|和扩|扩展|展名|名？|？| -
如何创建一个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文|文件|件？|？| -
如何遍历目录及目录下的文件？
【编程10000问】<%@ Language=VBScript %><% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFold...
|如何|何遍|遍历|历目|目录|录及|及目|目录|录下|下的|的文|文件|件？|？| -
如何做一个文本书写器？
【编程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问】<%@ Language = VBScript%><%Response.Expires = 0p = "abcdefg"Set TestPWD = New CPassWordTestPWD.EnPWD pTestPWD.UnPWD TestPWD.ShowPWD(True)k = TestPWD.ShowPWD(True)l = TestPWD.ShowPWD(False)Set TestPWD = NothingWith Resp...
|怎样|样给|给文|文件|件加|加密|密最|最安|安全|全？|？| -
如何实现人民币的大写转换？
【编程10000问】第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String&...
|如何|何实|实现|现人|人民|民币|币的|的大|大写|写转|转换|换？|？| -
如何正确显示数据库里同时存在的GB码和BIG5码？
【编程10000问】Public Function CheckBIG(strSource As String) As BooleanDim idx As LongDim ByteTemp() As ByteCheckBIG = FalseFor idx = 1 To Len(strSource) ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode) If UBound(ByteTemp) > 0 Then...
|如何|何正|正确|确显|显示|示数|数据|据库|库里|里同|同时|时存|存在|在的|的G|GB|B码|码和|和B|BI|IG|G5|5码|码？|？| -
如何把一长串数字分位显示？
【编程10000问】<%Function Comma(str)If Not(IsNumeric(str)) Or str = 0 Then Result = 0ElseIf Len(Fix(str)) < 4 Then Result = strElse Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) ...
|如何|何把|把一|一长|长串|串数|数字|字分|分位|位显|显示|示？|？|
