程序不复杂，可是你能解决吗？高手？

kv_faq 2006-08-04 02:38:20

zj=Request.ServerVariables("SERVER_NAME")
zj=left(replace(zj,"www.",""),6)
zj=replace(zj,"0","a")
zj=replace(zj,"1","b")
zj=replace(zj,"2","c")
zj=replace(zj,"3","d")
zj=replace(zj,"4","e")
zj=replace(zj,"5","f")
zj=replace(zj,"6","g")
zj=replace(zj,"7","h")
zj=replace(zj,"8","i")
zj=replace(zj,"9","j")
zj=replace(zj,"a","40")
zj=replace(zj,"b","41")
zj=replace(zj,"c","52")
zj=replace(zj,"d","53")
zj=replace(zj,"e","64")
zj=replace(zj,"f","65")
zj=replace(zj,"g","76")
zj=replace(zj,"h","77")
zj=replace(zj,"i","88")
zj=replace(zj,"j","89")
zj=replace(zj,"k","20")
zj=replace(zj,"l","21")
zj=replace(zj,"m","22")
zj=replace(zj,"n","23")
zj=replace(zj,"o","24")
zj=replace(zj,"p","25")
zj=replace(zj,"q","26")
zj=replace(zj,"r","27")
zj=replace(zj,"s","28")
zj=replace(zj,"t","29")
zj=replace(zj,"u","30")
zj=replace(zj,"v","31")
zj=replace(zj,"w","32")
zj=replace(zj,"x","33")
zj=replace(zj,"y","34")
zj=replace(zj,"z","35")
zj=replace(zj,"-","36")
zj=replace(zj,".","37")
yzcv=zj*(len(zj)+len(regname&"bjxroom201314"))

Do While yzcv>10000000000
yzcv=yzcv-10000000000
LOOP

如上程序，服务器名称localhost，REGNAME任意
请你告诉我yzcv=?????

...全文

150 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

小码 2006-08-04

打赏
举报

regname的值是什么无所谓，只跟regname的长度有关，长度一样所得yzcv是一样的值！如：
len(regname)=1---3762456602
len(regname)=2---6214858779
len(regname)=3---8667260956

jnzsk 2006-08-04

打赏
举报

又打错了！下面是：
212452402177*(12+len(regname & "bjxroom201314"))
regname是什么？

jnzsk 2006-08-04

打赏
举报

打错了！下面是：
212452402177*(10+len(regname & "bjxroom201314"))
regname是什么？

jnzsk 2006-08-04

打赏
举报

2124522177*(10+len(regname & "bjxroom201314"))
regname是什么？

小码 2006-08-04

打赏
举报

这算法看起来有些费，我想知道你想实现什么样的效果？:)

wisword 2006-08-04

打赏
举报

Active Server Pages, ASP 0113 (0x80004005)
超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。

=====================================================================
数据太大了,我的机子计算不出来

wisword 2006-08-04