asp
askingneil
这个作者很懒,什么都没留下…
展开
-
asp 汉字生成拼音
function GetPyChar(char) tmp=65536+asc(char) if(tmp>=45217 and tmp<=45252) then GetPyChar= "A" elseif(tmp>=45253 and tmp<=45760) then GetPyChar= "B" elseif(tmp>=45761 an...原创 2013-07-15 11:50:27 · 401 阅读 · 0 评论 -
asp生成随机字符
Function RandKey(obj,tit) Dim char_array(80) Dim temp 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 ...原创 2013-07-15 14:06:14 · 187 阅读 · 0 评论