0371-53778175
15333818157
15333818157
本文所介绍的几个ASP语言编程时的几个常用功能的实现方法，在很多的网页制作上基本都能用得上，相信会对网站制作的各位技术人员是有用的。下面笔者将这几个常用功能的实现方法写了出来，可供各位技术人员参考。
一、用ASP编程语言实现生成随机字符串：
<%
Function GetRandom(RandomLength)
'定义并初始化数组
dim char_array(80)
'初始化数字
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 '初始化随机数生成器
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程序代码实现记录和调用Cookies的方法，完成判断访客是否曾经访问过网页：
<BODY>
<B>Cookies的使用</B><BR>
<hr>
<%
'Cookies通过HTTP Headers来从服务器端返回到浏览器上.
'在发送Cookies之前,不能向浏览器端发送任何数据.
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
