一段神奇的代码！！！请各位老大进来看下。

2006-05-03 12:05:10 123 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Android学习之线性布局。例如，在水平 LinearLayout 中，layout_gravity="right" 可能无法生效，因为子视图是按顺序从左向右排列的。例如，在一个水平排列的 LinearLayout 中，设置某个子视图的 layout_gravity="center_vertical" 可以让该子视图在其分配的高度空间内垂直居中。layout_marginTop、layout_marginBottom、layout_marginLeft、layout_marginRight：分别设置特定方向的边距。阅读详情

<%
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出问题了吧？？人在，可以立即送分。

...全文