const.asp

来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 82 行

<%
redim tmpArr1(53)
redim tmpArr2(53)
mygameArr=array("1002","A==> Ａ３","3026","A==> 傲世OL","1070","B==> 碧雪情天","1105","B==> 飚车","1072","B==> 冰风传奇","1049","C==> 彩虹冒险","1088","C==> 赤龙剑心","1055","C==> 传奇3G","1095","C==> 传奇世界","1115","C==> 传说OL","1025","C==> 热血传奇","1062","D==> 大海战II","1047","D==> 大话西游II","1125","D==> 刀OL","1073","D==> 刀剑Online","1033","D==> 地球文明","3096","E==> EVEOnline","1093","F==> 飞飞","1035","F==> 封神榜","1048","F==> 封神传说","1081","F==> 疯狂原始人","3090","H==> 海盗王Online","1034","H==> 海天英雄传","1005","H==> 航海世纪","1013","H==> 红月","1012","H==> 华夏","1045","H==> 幻灵游侠2.5","1078","H==> 幻灵游侠3.0","1024","H==> 辉煌","1043","H==> 混乱冒险","1071","H==> 火线任务","1022","J==> 剑侠情缘OL","1114","J==> 剑侠情缘OL　II","1119","J==> 江湖OL","3014","J==> 街头篮球","1061","J==> 金庸群侠OL","2100","J==> 金庸群侠传2","1110","J==> 劲乐团","1109","J==> 劲舞团","1052","J==> 巨商","1069","J==> 绝对女神","1028","K==> 开天","1051","K==> 凯旋","1041","K==> 科隆","1108","K==> 科隆2","1092","K==> 科洛斯","1101","K==> 快乐西游","1018","L==> 雷霆战队","1075","L==> 猎人MM","1107","L==> 龙魂","1040","L==> 龙族","1116","L==> 洛奇","1112","M==> 幻想春秋","1096","M==> 冒险岛","1032","M==> 美丽世界","1106","M==> 梦幻国度","1007","M==> 梦幻西游","1079","M==> 梦幻之星OL","1026","M==> 梦想","1001","M==> 密传","1064","M==> 命运","1082","M==> 魔法奇兵","1098","M==> 魔剑","1030","M==> 魔力宝贝","1074","M==> 魔兽世界","3256","M==> 魔域","1102","M==> 墨香","1057","P==> 破天一剑","1097","P==> 盛大泡泡堂","1196","Q==> QQ","1122","Q==> QQ幻想","1068","Q==> 奇迹（MU）","1039","Q==> 奇侠","1050","Q==> 奇域","1054","Q==> 骑士","1053","Q==> 千年","3322","R==> RFonline","1111","R==> 热血江湖","1083","R==> 人间","1003","R==> 荣耀","3178","S==> SOS","1036","S==> 三国策","1123","S==> 三国群英传OL","1031","S==> 三国演义","1063","S==> 神话","1085","S==> 神迹","1009","S==> 神甲奇兵M2","1094","S==> 神曲","1006","S==> 神之领域","1056","S==> 神州天戈","1000","S==> 圣战","1017","S==> 石器时代","3562","S==> 树世界","1015","S==> 水浒","1113","S==> 丝路传说","1023","S==> 搜神记","1046","T==> 坦克宝贝","1067","T==> 天地Online","1038","T==> 天骄","1104","T==> 天骄II","1065","T==> 天堂","1016","T==> 天堂II","1080","T==> 天外","1084","T==> 天下无双","1020","T==> 天翼之链","1019","T==> 天之炼狱","1087","T==> 天之游侠","1118","T==> 挑战","1060","T==> 铁血三国志","1010","T==> 吞食天地OL","2101","W==> 完美世界","3025","W==> 问道","1027","W==> 无尽的任务　II","1086","X==> 西游伏魔录","1100","X==> 希望online","1008","X==> 侠客天下","1004","X==> 侠义道","1021","X==> 仙境传说","1044","X==> 仙侣奇缘","3016","X==> 仙侣奇缘II","1103","X==> 新古龙群侠ol","1089","X==> 新西游记","3156","X==> 信长之野望","1076","X==> 信仰","1029","X==> 星际OL","3265","X==> 星际家园","1099","X==> 星空之门","1011","X==> 轩辕剑","1120","X==> 轩辕剑2--飞天历险","1042","Y==> 雅典娜","1066","Y==> 倚天","3050","Y==> 英雄OL","1091","Y==> 英雄年代","1059","Y==> 英雄王座","1014","Y==> 永恒","1077","Y==> 游戏机及周边","1090","Z==> 战场","3021","Z==> 战国英雄","1117","Z==> 真封神","1058","Z==> 真孔雀王","1037","Z==> 征服","3020","Z==> 征途","1195","Z==> 综合游戏")

function getGameName(strcode)
for ii=0 to ubound(mygameArr) step 2
if strcode=mygameArr(ii) then
getGameName=mygameArr(ii+1)
exit for
end if
next
end function
sub getGameName2
k=0
sql="select * from const order by clickNum desc"
set tmprs=server.createobject("adodb.recordset")
tmprs.open sql,conn,3,1 
for k=0 to ubound(tmpArr1)
tmpArr1(k)=tmprs("gamecode")
tmpArr2(k)=tmprs("gamename")
tmprs.movenext
next
tmprs.close
set tmprs=nothing
end sub
function formatGameName(strgame)
dim mygamename
mylen=len(strgame)
mygamename=mid(strgame,5,mylen)
if len(mygamename)>6 then
formatGameName=left(mygamename,5)&".."
else
formatGameName=mygamename
end if
end function
'dim sql,k
'k=0
'for i=0 to ubound(mygameArr) step 2
'tmpgamename=mygameArr(i+1)
'tmpgamecode=mygameArr(i)
'sql="insert into const (gamecode,gamename) values ('"&tmpgamecode&"','"&tmpgamename&"')"
'conn.execute(sql)
'k=k+1
'response.write k&" completed...<br>"
'next
function toten(str)
p=0
i=len(str) 
for m= 1 to i 
p=2^(i-m)*mid(str,m,1)+p
next
toten=p
end function
'--------------------------------------------
function totwo(str)
i=""
do while str>1 
if int((str/2))*2=str then 
i=0&i
else
i=1&i
end if
str=int(str/2)
loop
if str=1 then 
i=1&i
end if
totwo=i
end function
'---------------------------------------------
function getrandompwd
randomize
dim mydatestr
'mydatestr=year(date)&month(date)&day(date)&hour(now)&minute(now)&second(now)
ranArr="aAbBcCdDeEfFgG123456789hHiIjJkKlLmMn_NoOpPqQrRsStTuUvVwWxXyYzZ"
for i=0 to 14
mydatestr=mydatestr&mid(ranArr,cint(rnd*53)+1,1)
next
getrandompwd=mydatestr
end function
%>