主机升级

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% response.Charset="gb2312" response.Buffer=true dataID=Trim(Requesta("id")) act=trim(requesta("act")) new_proid=requesta("new_proid") new_room=requesta("new_room") conn.open constr set up=new upmssql_class:up.u_sysid=session("u_sysid"):up.setdataid=dataID if act="sub" then if up.dosub(new_proid,new_room,errstr) then alert_redirect "恭喜,升级成功","/manager/sqlmanager/manage.asp?p_id="& dataid else url_return "抱歉，升级失败:" & errstr,-1 end if elseif act="getroomlist" then call up.getProInfo(new_proid,0) response.write up.roomlist conn.close:set up=nothing:response.end elseif act="getneedprice" then needPrice=up.getupNeedPrice(new_proid,new_room) movestr="" if not (new_room=up.dbroom and up.newp_server=up.dbp_server) then movestr="

变更服务器后数据将不会保留，若需数据请自行迁移。

" result="每天差价["& fmtPrice(up.everydayPrice) &"]×剩余天数["& up.dayHave &"]+手续费["& fmtPrice(up.RoomShouXuFei) &"]="& needPrice & "元^|^" & _ "(新价格["& fmtPrice(up.newPrice) &"]-原价格["& fmtPrice(up.oldPrice) &"])÷总天数["& up.dayCount &"]="& fmtPrice(up.everydayPrice) & "元" & _ "^|^" & fmtPrice(up.RoomShouXuFei) & "元" & _ "^|^" & movestr response.write result conn.close:set up=nothing:response.end end if %> 主机升级

1.升级后MSSQL数据库的到期日期不变
2.升级费用为：新旧数据库型号每天的差价×剩余的未使用天数。升级费用不足30元的，按30元计算。
3.建议网站与Mssql放在同一机房，跨机房调用速度会非常慢

<% 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 %>