<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% response.Charset="gb2312" hostid=requesta("hostid") conn.open constr act=requesta("act") set up=new uphost_class:up.u_sysid=session("u_sysid"):up.setHostid=hostid if up.istostatepage and instr(requesta("script_name"),"uphost_state.asp")=0 then gowithwin "uphost_state.asp?hostid="&hostid elseif not up.istostatepage and instr(requesta("script_name"),"uphost.asp")=0 then gowithwin "uphost.asp?hostid="&hostid end if if act="sub" then new_proid=requesta("new_proid") new_room=requesta("new_room") ismovedata=requesta("ismovedata") call up.getUpInfo(new_proid,new_room,ismovedata) if up.isLimitMove="true" then ismovedata=0 if up.dosub(new_proid,new_room,ismovedata,errstr) then alert_redirect "恭喜，升级成功",requesta("script_name")&"?hostid="&hostid else alert_redirect errstr,requesta("script_name")&"?hostid="&hostid end if conn.close response.end elseif act="getroom" then proid=requesta("proid") call up.getUpInfo(proid,0,0) response.write up.selectroomlist conn.close:set up=nothing response.end elseif act="getmovedata" then new_proid=requesta("new_proid") new_room=requesta("new_room") call up.getUpInfo(new_proid,new_room,0) ismovedataStr=lcase(up.isLimitMove) response.write ismovedataStr conn.close:set up=nothing response.end elseif act="checkprice" then new_room=requesta("new_room") new_proid=requesta("new_proid") ismovedata=requesta("ismovedata") movestr="" call up.getUpInfo(new_proid,new_room,ismovedata) if lcase(up.isLimitMove)="true" then ismovedata=0 if new_room<>up.s_room or instr(up.new_proname,"linux")>0 or instr(up.new_proname,"java")>0 or up.s_islinux then movestr="跨平台升级需要您自己下载并迁移数据，原服务器的数据保留至"& up.clearDate &"日，请及时迁移，过期后系统会自动清除。迁移后绑定的域名将清空，需要重新绑定" end if elseif instr(up.new_proname,"集群")>0 and instr(s_proname,"集群")=0 then movestr="升级到集群主机后绑定的域名将清空，需要重新绑定" end if needPrice=up.getupNeedPrice(new_proid,new_room,ismovedata) result="每天差价["& fmtPrice(up.everydayPrice) &"]×剩余天数["& up.dayHave &"]+手续费["& fmtPrice(up.upShouXuFei) &"]="& needPrice & "元^|^" & _ "(新价格["& fmtPrice(up.newPrice) &"]-原价格["& fmtPrice(up.oldPrice) &"])÷总天数["& up.dayCount &"]="& fmtPrice(up.everydayPrice) & _ "^|^型号手续费["& fmtPrice(up.ProShouXuFei) &"]+转移数据["& fmtPrice(up.RoomShouXuFei) &"]=" & fmtPrice(up.upShouXuFei) & _ "^|^"&movestr response.write result conn.close:set up=nothing response.end end if call doUserSyn("vhost",up.s_comment) %> 主机升级
" method="post">
虚拟主机升级
1.升级主机型号可以获得更大的空间和更多的系统资源。
2.跨平台升级，如windows系列升级至linux系列，系统不会自动迁移数据，需要您提前备份好网页和数据库，升级完成后系统会自动在新服务器上开通主机，需要重新上传数据。
3.升级后主机的到期日期不变，升级费用为：新旧主机型号每天的差价*主机剩余的天数。升级费用不足30元的，按30元计算。
4.主机升级后对应的企业邮局自动升级，但是新型号如果有域名赠品，则无法获取。
5.集群主机只接收企业用户，个人用户请勿升级为分布式集群主机，否则无法绑定域名。
6.智能建站主机，如果跨机房升级，刚数据不能被保留，需要重建网站!如果原来的主机不支持asp.net，而升级后需要使用asp.net功能的，请联系客服增加"network service"权限。
7.如果选择了"自动转移数据"，则需要等数据迁移完成后，系统再完成域名解析、变更服务器IP等操作;如果不需要数据，则是实时生效。电信和网通机房之间速度很慢，如果数据量太大，可能需要相当长的转移时间，甚至转移失败。
8.升级不享受购买时的优惠活动
<% function fmtPrice(byval numstr) if numstr<>"" and isnumeric(numstr) then fmtPrice=formatnumber(Round(numstr,2),2,-1,-2,0) else fmtPrice=0.00 end if end function %>