0371-53778175
15333818157
15333818157
本文所介紹的幾個ASP語言編程時的幾個常用功能的實現(xiàn)方法，在很多的網(wǎng)頁制作上基本都能用得上，相信會對網(wǎng)站制作的各位技術人員是有用的。下面筆者將這幾個常用功能的實現(xiàn)方法寫了出來，可供各位技術人員參考。
一、用ASP編程語言實現(xiàn)生成隨機字符串：
<%
Function GetRandom(RandomLength)
'定義并初始化數(shù)組
dim char_array(80)
'初始化數(shù)字
For i = 0 To 9
char_array(i) = CStr(i)
Next
'初始化大寫字母
For i = 10 To 35
char_array(i) = Chr(i + 55)
Next
'初始化小寫字母
For i = 36 To 61
char_array(i) = Chr(i + 61)
Next
Randomize '初始化隨機數(shù)生成器
do while len(output) < RandomLength
num = char_array(Int((62 - 0 + 1) * Rnd + 0))
output = output + num
loop
GetRandom = output
End Function
response.write "本實例生成的20位隨機字符串為:"
response.write "<br><br>"
response.write GetRandom(20)
response.end()
%>
二、ASP編程里的 CheckBox空件的用法：
<BODY>
請選擇一種貨幣：
<hr>
<FORM>
<input name="Currency" type=checkbox value="人民幣">人民幣
<Br>
<input name="Currency" type=checkbox value="美元">美元
<Br>
<input name="Currency" type=checkbox value="盧布">盧布
<Br>
<input name="Currency" type=checkbox value="歐元">歐元
<Br>
<input name="Currency" type=checkbox value="日元">日元
<input type=submit value="選擇貨幣">
</FORM>
<hr>
<%
if Request.QueryString("Currency").Count=0 then
response.write("你還沒有選擇一種貨幣")
else
response.write("你已經選擇了：")
for each cur in Request.QueryString("Currency")
response.write "<br><font color=green>" & cur & "</font>"
next
end if
%>
</BODY>
三、ASP程序代碼實現(xiàn)記錄和調用Cookies的方法，完成判斷訪客是否曾經訪問過網(wǎng)頁：
<BODY>
<B>Cookies的使用</B><BR>
<hr>
<%
'Cookies通過HTTP Headers來從服務器端返回到瀏覽器上.
'在發(fā)送Cookies之前,不能向瀏覽器端發(fā)送任何數(shù)據(jù).
Response.Expires = 0
'從Cookie中取出上一次訪問的日期和時間
Dim LastVisit
LastVisit = Request.Cookies("LastVisitCookie")
Response.Cookies("LastVisitCookie") = FormatDateTime(NOW)
If (LastVisit = "") Then
'如果Cookie從未被寫過,則用戶是第一次訪問本頁
Response.Write("歡迎光臨本頁")
Else
'顯示上一次訪問日期及時間
Response.Write("你上一次訪問本頁在" + LastVisit)
End If
%>
</BODY>
1765879842 2632505191 2236519391
