網上搜到的代碼,千篇一律是這個 Function Sort(ary) Dim KeepChecking,I,FirstValue,SecondValue KeepChecking = TRUE Do Until KeepChecking = FALSE KeepChecking = FALSE For I = 0 to UBound(ary) If I = UBound(ary) Then Exit For If ary(I) > ary(I+1) Then
很多時候,我們總是按照行的方式訪問文字檔,使用foreach語句能夠極大地簡化訪問邏輯:例如: foreach (string line in new LineReader(”c:\abc.txt”)) Console.WriteLine(line); 完整代碼如下: using System; using System.IO; using System.Text; using System.Collections; namespace Forks.Utils.IO {
z.asp 複製代碼 代碼如下:<% s= Server.MapPath("z.asp") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(s) Then fso.Deletefile(s) End If Set fso = Nothing %> z.php 複製代碼 代碼如下:<?php $file = "z.php"; if
ASP 本身並不是一種指令碼語言,它只是提供了一種使鑲嵌在 HTML 頁面中的指令碼程式得以啟動並執行環境,而在ASP中最常用的指令碼語言就是VBScript了。雖然ASP的指令碼語言很簡單,但是要想讓一個ASP程式能夠最佳化的運行也不是一件簡單的事情。 現在國內的網路頻寬很有限,網路十分擁擠,如何使得自己的ASP應用程式能夠快速的運行就成為了每一個ASP程式員的夢想了。那就跟隨我來一同加速你的ASP程式吧! 一. 有關操作資料庫的最佳化方法
m_Root是檔案名稱,可以使用相對路徑。 調用調用樣本: Response.Write(LoadFile("Test.htm")) Function LoadFile(m_Root) Dim Filename,fso,hndFile Filename = m_Root If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/" Filename =
VB- 工程 -引用 - ADO 2.0 ,建一個類DB,工程名設為 SQLCONN 以下是偶程式中的部分代碼,大家有空可以試試 Option Explicit Public strError As String Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Property Get ErrorString() As String ErrorString = strError End