ASP常見問題及解答(7)

解答|問題 1.分 類：文法應用
問題描述：尋找兩個字串間的字元出現次數
解決辦法：

function FindStringTimes(strContent,start_string,end_string) 'start_string 與 end_string 之間字元出次的數
'written by Jaron
FindStringTimes = ubound(split(strContent,start_string))
end function

樣本： 尋找以下字串有多少張圖片
response.write FindStringTimes(HTML,"<img",">")
<img src=http://www.163design.net/a/q/"a.jpg"><img src=http://www.163design.net/a/q/"b.jpg"><img src=http://www.163design.net/a/q/"d.jpg"><img src=http://www.163design.net/a/q/"c.jpg">



2.遍曆目錄以及目錄下檔案的函數

<%
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("d:") '遍曆d:盤
%>




3.產生一個不重複的隨即數字

Sub CalCaPiao()
Dim strCaiPiaoNoArr() As String
Dim strSQL As String
Dim strCaiPiaoNo As String
strCaiPiaoNo = "01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33"
Dim StrTempArr(7) As String
Dim strZhongJiangArr(7) As String
strCaiPiaoNoArr = Split(strCaiPiaoNo, ",")
Dim intRand As Integer
Dim i As Integer
Dim j As Integer
i = 0
Dim find As Boolean
Do While True
find = False
Randomize
intRand = Int((33 * Rnd) + 1)
For j = 0 To i - 1
If StrTempArr(j) = CStr(intRand) Then
find = True
End If
Next
If Not find Then
StrTempArr(j) = CStr(intRand)
strZhongJiangArr(i) = CStr(intRand)
'Text1(i) = strZhongJiangArr(i)
i = i + 1
If i = 7 Then
Exit Do
End If
End If
Loop
End Sub



4.下載任何檔案（尤其是IE關聯開啟的）
<%
Dim Stream
Dim Contents
Dim FileName
Dim FileExt
Const adTypeBinary = 1
FileName = Request.QueryString("FileName")
if FileName = "" Then
Response.Write "無效檔案名稱."
Response.End
End if
' 下面是不希望下載的檔案
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保護檔案,不能下載."
Response.End
End Select
' 下載這個檔案
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadFromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.Close
Set Stream = Nothing
Response.Flush
Response.End
%>


5.背景色變換
<form>
<p><input TYPE="button" value="背景色變換" onClick="BgButton()"></p>
</form>
<script>function BgButton(){
if (document.bgColor==#00ffff)
{document.bgColor=#ffffff;}
else{document.bgColor=#00ffff;}
}
</script>　



6.點擊開啟新視窗
<form>
<p><input TYPE="button" value="開啟新視窗" onCLICK="NewWindow()"></p>
</form>
<script language="javascript"><!--
function NewWindow(){window.open("http://www.mcmx.com";;;,"","height=240,width=340,status=no,location=no,toolbar=no,directories=no,menubar=no");}
// --></script></body>



7.分頁代碼:
<%本程式檔案名稱為：Pages.asp%>
<%包含ADO常量表檔案adovbs.inc，可從"\Program Files\Common Files\System\ADO"目錄下拷貝%>
<!--#Include File="adovbs.inc"-->
<%＊建立資料庫連接，這裡是Oracle8.05資料庫
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Prov