一段神奇的代码！！！请各位老大进来看下。
<%
dim output,num
function gen_key(digits)
dim char_array(35)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "a"
char_array(11) = "b"
char_array(12) = "c"
char_array(13) = "d"
char_array(14) = "e"
char_array(15) = "f"
char_array(16) = "g"
char_array(17) = "h"
char_array(18) = "i"
char_array(19) = "j"
char_array(20) = "k"
char_array(21) = "l"
char_array(22) = "m"
char_array(23) = "n"
char_array(24) = "o"
char_array(25) = "p"
char_array(26) = "q"
char_array(27) = "r"
char_array(28) = "s"
char_array(29) = "t"
char_array(30) = "u"
char_array(31) = "v"
char_array(32) = "w"
char_array(33) = "x"
char_array(34) = "y"
char_array(35) = "z"
randomize
do while len(randm) < digits
num = cstr(char_array(int((50 - 0 + 1) * rnd + 0)))
randm = randm + num
loop
gen_key = randm
end function
dim cid:cid = trim(request("cid"))
dim pid:pid = trim(request("pid"))
if cid = "" or not isnumeric(cid) or pid = "" or not isnumeric(pid) then
response.redirect("index.asp")
end if
dim okey
okey = gen_key(4)
if request.cookies("d_str") <> "" then
response.write("<script>alert(""请您不要重复点击!\n\n非常感谢您的大力支持!^_^"");this.location.href=""index.asp"";</script>")
else
response.cookies("a_str") = okey
response.cookies("a_str").expires = date() + 1
response.redirect("photo.asp?cid=" & cid & "&pid=" & pid & "&okey=" & okey & "")
end if
%>
num = cstr(char_array(int((50 - 0 + 1) * rnd + 0))) 这一行报错：int(...)下标越界
还有就是，这段代码是我自己写的，刚开始运行速度还没问题，后来就不能运行了，一运行这段代码，系统就很慢，CPU使用率100%，，，我的是WIN2000系统，不知道是什么原因，是代码的原因？还是我操作COOKIES出问题了？还是什么原因？请各位老大帮忙看一下。目前其他ASP代码都可以稳定运行，可以排除是IIS出问题了吧？？人在，可以立即送分。
问题点数：20、回复次数：2Top
1 楼zhybxyz（小虾米）回复于 2006-05-03 01:08:36 得分 0
2006-05-02 17:03:35 127.0.0.1 - 127.0.0.1 80 GET /p/photo.asp cid=1&pid=1|-|ASP_0113|脚本超时|242|800a03f6|缺少_'End' 500 Mozilla/4.0+(compatible;+MSIE+6.0;+Windows+NT+5.0;+TencentTraveler+)
IIS日志是这样的。不知道哪里出问题，xxx.asp?id=10这样文件的执行全部超时!（代码无错的前提下）
请高手帮忙，小弟分数不多了，最后财产还有10分，可以全部加上。Top
2 楼fisherboy（渔夫的孩子）回复于 2006-05-03 04:50:37 得分 0
我帮你顶起啊！！！！！！！！！！！！！！！Top
