查看文章 |
ASP技巧及常识
2007-11-01 00:32
1.在数据写入时,有两种方法一个是Insert into与AddNew,究竟哪一个会比较好呢? AddNew方法的实质就是封装了“Insert into”语句。所以，当我们需要对大量数据进行操作的时候，应优先选用“Insert into”语句。因为直接使用SQL语句，减少了ADO的解释时间，显然会大大加快存取数据的速度。 2.增加Access的线程数使系统性能得到提升 我知道Access在注册表里缺省的线程数是4,如果我将他修改为23.结果我发现服务器CPU占用率比以前下降了很多，即使在高峰时期也不用再100％满负荷的转了，这就是说增加了Access的线程数后，系统性能得到提升.这是Access的一个使用技巧，它会使服务器跑得更加顺畅。但这只对Access特别管用。 3.什么情况下用响应缓冲会提高运行速度？ 脚本引擎与 HTML 之间的切换频繁，对响应流写操作太多，导致性能下降.而如果所有的代码包含在一个 VBScript 块内，每一行对响应流有一次写操作，效率更高.下面我们来两个例子:(例1对应前者,例2对应后者.) 例1: <table> <% For Each fld in rs.Fields %> <th><% = fld.Name %></th> <% Next While Not rs.EOF %> <tr> <% For Each fld in rs.Fields %> <td><% = fld.Value %></td> <% Next </tr> <% rs.MoveNext Wend %> </table> 例2: <table> <% For each fld in rs.Fields Response.Write (?<th>? & fld.Name & ?</th>? & vbCrLf) Next While Not rs.EOF Response.Write (?<tr>?) For Each fld in rs.Fields %> Response.Write(?<td>? & fld.Value & ?</td>? & vbCrLf) Next Response.Write ?</tr>? Wend %> </table> 结论：尽可能地多用 Response.Write 调用来代替捆绑紧密的内嵌表达式。 4.如何调用DLL来加快服务器的执行速度？ 1、并双击新建工程窗口中ActiveX DLL图标，VB将自动为项目添加一个类模块，并将该项目类型设置为ActiveX DLL。 2、在属性窗口将类模块的名称属性改为clsDice。 3、从工程菜单中选择工程属性，将工程名称改为MyDLL。 4、从文件菜单中选择保存clsDice，将类模块保存为myDice.cls。 5、添加以下代码： Option Explicit Private Max, Point As Integer Public Property Get Result() As Integer Result = Point End Property Public Property Get Maxpoint() As Integer Maxpoint = Max End Property Public Property Let Maxpoint(num As Integer) Max = num End Property Public Sub Throw() Randomize Point = Int(Rnd * Max) + 1 End Sub Private Sub Class_Initialize() Max = 6 End Sub 这个类模块定义了clsDice对象的两个属性和一个方法，这些属性和方法模拟了掷色子的过程。其中Maxpoint属性表示色子的面数，加入Property Let语句可让用户修改色子的面数；Result属性表示最后掷出色子的点数；Throw方法代表掷色子的动作；Private Sub Class_Initialize语句将色子的面数缺省的设置为6面。 最后，从文件菜单中选择生成mydll.dll，并保存。 5.如何自动选择最快的站点. <html> <head> <meta http-equiv="refresh" content="10;url=./"> <title>速度测试中……</title> </head> <body> <p>请稍候,速度测试中……</p> <script>i=1 var autourl=new Array() autourl[1]="网址1" autourl[2]="网址2" autourl[3]="网址3" autourl[4]="网址4" autourl[5]="网址5" autourl[6]="网址6" function auto(url){if(i){i=0;top.location=url}} function run(){ for(var i=1;i<autourl.length;i++) document.write("<img src="+autourl[i]+" width=1 height=1 onerror=auto('"+autourl[i]+"')>") } run() </script> </body> </html> 其实就是在判断读取出错图片时，链接的速度越快，“出错”的速度就越快，然后根据速度快的某个站点，让它对应的程序先运行——至少在这一瞬是选择了一个快的站点哦。 6.如何遍历目录及目录下的文件？ <%@ 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 objFiles Response.Write "<br>---" Response.Write objFile.name next Response.Write "<p>" bianli(nowpath) ' 递归方法 next set objFolder=nothing set objSubFolders=nothing set fso=nothing end function %> <% bianli("f:") ' 遍历F盘 %> 7.FileSystem对象常用的文件操作函数 1、root 函数格式 root() 功能描述 返回一个路径串变量 应用代码 'sample string = c:\intels\jingcaichunfeng\' Public Function root() root = Request.ServerVariables("Appl_Physical_Path") End Function 2、url 函数格式 url() 功能描述 返回一个URL串变量 应用代码 'sample string = [url]http://www.intels.net/filesys.asp[/url]' Public Function url() url ="http://"&Request.ServerVariables("Server_Name") &Request.ServerVariables("Script_Name") End Function 3、mkdir 函数格式 mkdir( DIrName ) 功能描述 创建一个目录并返回信息 应用代码 Public Function mkdir( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FolderExists( xVar ) Then msg ="抱歉,该目录已存在! " Else Sys.CreateFolder( xVar ) msg ="恭喜,目录创建成功! " End If Set Sys = Nothing mkdir = msg End Function 4、rmdir 函数格式 rmdir( DirName ) 功能描述 删除一个目录并返回信息 应用代码 Public Function rmdir( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FolderExists( xVar ) Then Sys.DeleteFolder( xVar ) msg ="恭喜,目录删除成功!" Else msg ="抱歉,该目录还未被创建! " End If Set Sys = Nothing rmdir = msg End Function 5、isdir 函数格式 isdir( DirName ) 功能描述 检查一个目录是否存在并返回信息 应用代码 Public Function isdir( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FolderExists( xVar ) Then msg = True Else msg = False End If Set Sys = Nothing isdir = msg End Function 6、cpdir 函数格式 cpdir( DirName, Destination, OverWrite ) 功能描述 复制文件夹并返回信息 应用代码 Public Function cpdir( xVar, yVar, zVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FolderExists( xVar ) Then Sys.CopyFolder xVar, root&yVar, zVar msg ="恭喜,目录复制成功!" Else msg ="抱歉,没有找到您想要的目录!" End If Set Sys = Nothing cpdir = msg End Function 7、mvdir 函数格式 mvdir( DirName, Destination ) 功能描述 移动一个文件夹并返回信息 应用代码 Public Function mvdir( xVar, yVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FolderExists( xVar ) Then Sys.MoveFolder xVar, root&yVar msg ="恭喜,目录夹已移动!" Else msg ="抱歉,没有找到您想要的目录!" End If Set Sys = Nothing mvdir = msg End Function 8、isfile 函数格式 isfile( FileName ) 功能描述 检查文件是否存在并返回信息 应用代码 Public Function isfile( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then msg = True Else msg = False End If Set Sys = Nothing isfile = msg End Function 9、wfile 函数格式 wfile( FileName, OverWrite, String ) 功能描述 写入串到一个文件并返回信息 应用代码 Public Function wfile( xVar, yVar, zVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If yVar Then Set Txt = Sys.OpenTextFile( xVar, 2 ) Txt.Write( zVar ) Txt.Close msg ="恭喜,文件创建成功并保存!" Else If Sys.FileExists( xVar ) Then msg ="抱歉,文件已经存在!" End If Set Sys = Nothing wfile = msg End Function 10、rfile 函数格式 rfile( FileName ) 功能描述 读取一个文件并返回信息 应用代码 Public Function rfile( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then Set Txt = Sys.OpenTextFile( xVar, 1 ) msg = Txt.ReadAll Txt.Close Else msg ="抱歉,文件不存在!" End If Set Sys = Nothing rfile = msg End Function 11、afile 函数格式 afile( FileName, String ) 功能描述 添加串到一个文件并返回信息 应用代码 Public Function afile( xVar, zVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then Set Txt = Sys.OpenTextFile( xVar, 8 ) Txt.Write( zVar ) Txt.Close msg ="恭喜,文件添加成功并保存!" Else msg ="抱歉,文件不存在!" End If Set Sys = Nothing afile = msg End Function 12、cpfile 函数格式 cpfile( FileName, Destination, OverWrite ) 功能描述 复制一个文件并返回信息 应用代码 Public Function cpfile( xVar, yVar, zVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then Sys.CopyFile xVar, root&yVar, zVar msg ="恭喜,文件复制成功!" Else msg ="抱歉,文件复制失败!" End If Set Sys = Nothing cpfile = msg End Function 13、mvfile 函数格式 mvfile( FileName, Destination ) 功能描述 移动一个文件并返回信息 应用代码 Public Function mvfile( xVar, yVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then Sys.MoveFile xVar, root&yVar msg ="恭喜,文件移动成功!" Else msg ="抱歉,文件移动失败!" End If Set Sys = Nothing mvfile = msg End Function 14、rmfile 函数格式 rmfile( FileName ) 功能描述 删除一个文件并返回信息 应用代码 Public Function rmfile( xVar ) Set Sys = Server.CreateObject("Scripting.FileSystemObject") If Sys.FileExists( xVar ) Then Sys.DeleteFile( xVar ) msg ="恭喜,文件删除成功!" Else msg ="抱歉,文件删除失败!" End If Set Sys = Nothing rmfile = msg End Function 希望能对百度的朋友有帮助 |
最近读者：
