FreeHost

<%on error resume next server.ScriptTimeout =3600 Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Dim domainhaveset domainhaveset=true Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist" ds.Open Sql,conn,1,3 if ds.eof Then domainhaveset=false 'response.write "您尚未设置管理区-----产品定义-----域名注册中的域名价格，因此不能运行升级程序，请您先设置好域名价格。" 'response.end end if Set dsver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Admuser where superuser='freehost'" dsver.Open Sql,conn,1,1%>
欢迎使用星外虚拟主机管理平台升级程序.....
原版本是：<%=dsver("ver")%> 版本 数据结据时间：<%=dsver("vertime")%> <% if dsver("ver")<3.8 then if dsver("ver")<3.45 then Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD pauseweb varchar(200)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD pauseweb2 varchar(200)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD pauseweb3 varchar(200)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD pauseweb4 varchar(200)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD statusinfo varchar(50)"'1222 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD postcon text"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD years int"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD Mailfrom varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD Mailfrom varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD tempdomainagn varchar(100)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD byhost int"'19 license have update conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD bydomain int"'19 license have update conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ALTER COLUMN password varchar(32)"'3.0 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD haveupdate varchar(1)" conn.Execute Sql Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Admuser where (haveupdate is null or haveupdate='n')" dsreg.Open Sql,conn,1,3 while not dsreg.Eof ' if isnull(dsreg("haveupdate")) or dsreg("haveupdate")="n" then dsreg("password")=md5(dsreg("password")) dsreg("haveupdate")="y" con="超级用户组密码成功升级到md5加密。
" ' end if dsreg.update dsreg.movenext wend dsreg.close Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ALTER COLUMN password varchar(32)"'19 license have update conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD haveupdate varchar(1)" conn.Execute Sql Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_USER where (haveupdate is null or haveupdate='n')" dsreg.Open Sql,conn,1,3 while not dsreg.Eof ' if isnull(dsreg("haveupdate")) or dsreg("haveupdate")="n" then dsreg("password")=md5(dsreg("password")) dsreg("haveupdate")="y" dsreg.update con=con&"用户 "&dsreg("username")&" 密码成功升级到md5加密。
" ' end if dsreg.movenext wend dsreg.close Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ALTER COLUMN password varchar(32)"'19 license have update conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD haveupdate varchar(1)" conn.Execute Sql Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where (haveupdate is null or haveupdate='n')" dsreg.Open Sql,conn,1,3 while not dsreg.Eof ' if isnull(dsreg("haveupdate")) or dsreg("haveupdate")="n" then dsreg("password")=md5(dsreg("password")) dsreg("haveupdate")="y" dsreg.update con=con&"代理 "&dsreg("username")&" 密码成功升级到md5加密。
" ' end if dsreg.movenext wend Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyA varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyA='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyB varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyB='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyC varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyC='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyD varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyD='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyE varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyE='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyF varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyF='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyG varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyG='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyH varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyH='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyI varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyI='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyJ varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyJ='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canaws varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canaws='y' where superuser='freehost' and canaws is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmOther varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmOther='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmodifyhtml varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmodifyhtml='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canaddmoney varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canaddmoney='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD candelmoney varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set candelmoney='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cancheckmoney varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cancheckmoney='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansetserver varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansetserver='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canrebuild varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canrebuild='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmodpass varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmodpass='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmuser varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmuser='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canshowuser varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canshowuser='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canuserpass varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canuserpass='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD candeluser varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set candeluser='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmailuser varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmailuser='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canshowpro varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canshowpro='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansetpro varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansetpro='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmhost varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmhost='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmhostadd varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmhostadd='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmhostset varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmhostset='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmdomain varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmdomain='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD candomainpay varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set candomainpay='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD candomaindel varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set candomaindel='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmemail varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmemail='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmemailadd varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmemailadd='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmemailset varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmemailset='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmsql varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmsql='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmsqladd varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmsqladd='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmsqlset varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmsqlset='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansetnews varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansetnews='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmlog varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmlog='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canagnper varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canagnper='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmagn varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmagn='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canshowagn varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canshowagn='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canagnpass varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canagnpass='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansetagn varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansetagn='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansuperuser varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansuperuser='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD cansysteminfo varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set cansysteminfo='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD cannextagn varchar(1)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD agentdegree int default 0"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set agentdegree=0 where agentdegree is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set cannextagn='n' where cannextagn is null" conn.Execute Sql Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_pers where agenttype='子代理'" dsreg.Open Sql,conn,1,3 if dsreg.Eof then dsreg.addnew dsreg("agenttype")="子代理" dsreg("id")=dsreg.recordcount+1 dsreg("pers")=1 dsreg.update end if Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ALTER COLUMN pdid varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD MailfromName varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD MailfromName varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD MailfromPass varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD MailfromPass varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD MailfromServer varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD MailfromServer varchar(50)"'19 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canbyenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canbyenduser='y' where canbyenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canbyagnenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canbyagnenduser='y' where canbyagnenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canbyagn varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canbyagn='y' where canbyagn is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD canbyenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set canbyenduser='y' where canbyenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD canbyagnenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set canbyagnenduser='y' where canbyagnenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD canbyagn varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set canbyagn='y' where canbyagn is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD canbyenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set canbyenduser='y' where canbyenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD canbyagnenduser varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set canbyagnenduser='y' where canbyagnenduser is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD canbyagn varchar(1)"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set canbyagn='y' where canbyagn is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD Domain_API int default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set Domain_API='"&Application("Domain_API")&"' where Domain_API is null" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_OtherProductlist] (id int primary key identity(1,1),Othertype varchar(100) unique,Othercount int,usermoney float,maxsend int,userspacelimt int,domainspacelimt int,ServerlistID int,isbyhost varchar(1),Hosttype varchar(100),info text,infomore text,cantest varchar(1),canmonth varchar(1),canhalfyear varchar(1),domainmustsame varchar(1),emailstatus varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_OtherProductlist_AGN] (id int,Othertype varchar(100),Othercount int,usermoney float,maxsend int,userspacelimt int,domainspacelimt int,ServerlistID int,isbyhost varchar(1),Hosttype varchar(100),info text,infomore text,cantest varchar(1),domainmustsame varchar(1),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_Other] (id int primary key identity(1,1),username varchar(14),ServerlistID int,Othertype varchar(100),starttime datetime,endtime datetime,istest varchar(1),status varchar(50),Othercount int,userspacelimt int,domainspacelimt int,domainmustsame varchar(1),Otherstatus varchar(1),agent1 varchar(14),agent2 varchar(14),byhost int)" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_Other](username)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_System_Info] (id int,FreeHostsharekey varchar(50),FreeHost varchar(200),indexsame bit,NP_ShopID varchar(50),NP_NPS_ShopID varchar(50),NP_NPS_Key varchar(50),NP_NPS_IP varchar(50),NP_Payone_ShopID varchar(50),NP_Ipay_ShopID varchar(50),NP_Ipay_Key varchar(50),NP_ChinaBank_ShopID varchar(50),NP_ChinaBank_Key varchar(50),Domain_API int,Domain_Agent_username varchar(50),Domain_Agent_password varchar(50),Domain_HTTP varchar(50),PAY_Month varchar(50),nohost bit,notusedomain varchar(200),EmailSendAPI int,Domain_Agent_username_1 varchar(50),Domain_Agent_username_2 varchar(50),Domain_Agent_username_3 varchar(50),Domain_Agent_username_4 varchar(50),Domain_Agent_password_1 varchar(50),Domain_Agent_password_2 varchar(50),Domain_Agent_password_3 varchar(50),Domain_Agent_password_4 varchar(50))" conn.Execute Sql Set dsreg = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_System_Info where id=0" dsreg.Open Sql,conn,1,3 if dsreg.Eof then dsreg.addnew dsreg("id")=0 dsreg("FreeHostsharekey")=Application("FreeHostsharekey") dsreg("FreeHost")=Application("FreeHost") dsreg("indexsame")=Application("indexsame") dsreg("NP_ShopID")=Application("NP_ShopID") dsreg("NP_NPS_ShopID")=Application("NP_NPS_ShopID") dsreg("NP_NPS_Key")=Application("NP_NPS_Key") dsreg("NP_NPS_IP")=Application("NP_NPS_IP") dsreg("NP_Payone_ShopID")=Application("NP_Payone_ShopID") dsreg("NP_Ipay_ShopID")=Application("NP_Ipay_ShopID") dsreg("NP_Ipay_Key")=Application("NP_Ipay_Key") dsreg("NP_ChinaBank_ShopID")=Application("NP_ChinaBank_ShopID") dsreg("NP_ChinaBank_Key")=Application("NP_ChinaBank_Key") dsreg("Domain_API")=Application("Domain_API") dsreg("Domain_Agent_username")=Application("Domain_Agent_username") dsreg("Domain_Agent_password")=Application("Domain_Agent_password") dsreg("Domain_Agent_username_"&Application("Domain_API"))=Application("Domain_Agent_username") dsreg("Domain_Agent_password_"&Application("Domain_API"))=Application("Domain_Agent_password") dsreg("Domain_HTTP")=Application("Domain_HTTP") dsreg("PAY_Month")=Application("PAY_Month") dsreg("nohost")=Application("nohost") dsreg("notusedomain")=Application("notusedomain") dsreg("EmailSendAPI")=Application("EmailSendAPI") dsreg.update end if Sql="Create table [FreeHost].[FreeHost_online_aws] (id int identity(1,1),username varchar(50),title varchar(150),con text,posttime datetime,status varchar(10),thread int,type1 varchar(10),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_online_aws](username)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD type1 varchar(15)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD pingzheng varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD bank varchar(10)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD haveget varchar(2)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD havecheck varchar(2)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD isbydomain varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD Domaintype varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set isbydomain='n' where isbydomain is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD isbydomain varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD Domaintype varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set isbydomain='n' where isbydomain is null" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Preopen_Product] (id int identity(1,1),username varchar(50),haveget varchar(1),byid int,whichProduct varchar(50),type1 varchar(100),attime datetime,agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD isbyhost varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD Hosttype varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD byid int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set isbyhost='n' where isbyhost is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD orderbyid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD orderbyid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_DomainProductlist] ADD orderbyid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD orderbyid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD orderbyid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD byhost int"'19 license have update conn.Execute Sql '2005-4-1 前的数据库结构 '3.4 Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD beianstatus varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD unit varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD unit_code tinyint" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD unit_id varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD investor varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD province_code varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD city_code varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD county_code varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD address varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD principal varchar(15)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD principal_id_type varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD principal_id_num varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD work_phone varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD mobile varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD email varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD web_name varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD web_index varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD web_domain varchar(150)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD web_ip varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD working_type varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyK varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyK='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD ver varchar(10)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD vertime datetime" conn.Execute Sql '2005-4-24 前的数据库结构'v3.41 Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ALTER COLUMN web_domain varchar(150)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD ICP_logname varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD ICP_logpass varchar(40)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD ICP_SN varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD ISP_ID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD entertype_ID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD Serverplace_ID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD isdyIP varchar(1)" conn.Execute Sql '2005-4-29 Sql="Create table [FreeHost].[FreeHost_ServerDNSlist] (id int primary key identity(1,1),servername varchar(25) unique,site varchar(100),dnsdomain varchar(100),ip varchar(30))" conn.Execute Sql '2005-5-3 Sql="Create table [FreeHost].[FreeHost_Product_ALLDNS] (id int primary key identity(1,1),username varchar(14),PdDID int,RRType varchar(6),RRData varchar(50),NodeName varchar(60),TTL int,mxper int)" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_ALLDNS](username,PdDID)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_URLRE] (id int identity(1,1),PdDID int,hostname varchar(50) unique,homename varchar(50),username varchar(14),url varchar(100),havecheck varchar(1),re varchar(1),NodeName varchar(60),status varchar(10))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_URLRE](username,PdDID)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD DNS_API int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set DNS_API=0 where DNS_API is null" conn.Execute Sql 'FreeHost_System_Info Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNS_API int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set DNS_API=0 where DNS_API is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNS1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNS1_IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNS2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNS2_IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD URLRE_IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD DNScount int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set DNScount=20 where DNScount is null" conn.Execute Sql end if if dsver("ver")<3.5 then '前面是3.45 Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.45'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-5-8 14:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerDNSlist] ADD agent1 varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerDNSlist] ADD agent2 varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ALTER COLUMN perid varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD perid varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set agent1='n' where agent1 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set agent2='n' where agent2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serversqllist] set agent1='n' where agent1 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serversqllist] set agent2='n' where agent2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serveremaillist] set agent1='n' where agent1 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serveremaillist] set agent2='n' where agent2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerDNSlist] set agent1='n' where agent1 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerDNSlist] set agent2='n' where agent2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD FreeHostsharekey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set FreeHostsharekey='"&Application("FreeHostsharekey")&"' where FreeHostsharekey is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serversqllist] ADD FreeHostsharekey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serversqllist] set FreeHostsharekey='"&Application("FreeHostsharekey")&"' where FreeHostsharekey is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serveremaillist] ADD FreeHostsharekey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serveremaillist] set FreeHostsharekey='"&Application("FreeHostsharekey")&"' where FreeHostsharekey is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerDNSlist] ADD FreeHostsharekey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerDNSlist] set FreeHostsharekey='"&Application("FreeHostsharekey")&"' where FreeHostsharekey is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD canmyserver varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set canmyserver='n' where canmyserver is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist_AGN] set ServerlistID=0 where ServerlistID is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist_AGN] set ServerlistID=0 where ServerlistID is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist_AGN] set ServerlistID=0 where ServerlistID is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD icpbyhost bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set icpbyhost='1' where icpbyhost is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD beianfile image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD beianfilelen int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set beianfilelen=0 where beianfilelen is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD beianfile image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD beianfilelen int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set beianfilelen=0 where beianfilelen is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD haveupdate varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD nowuse bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HtmlStyle] set nowuse='1',haveupdate='y' where haveupdate is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD pubuse bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HtmlStyle] set pubuse='1' where pubuse is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD stylename varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HtmlStyle] set stylename='默认模板' where stylename is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_ALLEmail] ADD emailpass varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD fax varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD coreinfo varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD fax varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD coreinfo varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_password_2_API varchar(50)" conn.Execute Sql '前面是3.5 Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-6-13 14:00'" conn.Execute Sql response.write "
3.5以前版本升级
" end if if dsver("ver")<3.6 then response.write "
3.6以前版本升级
" Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_ALLBUY_ShopID varchar(12)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_ALLBUY_Key varchar(30)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-7-5 14:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ALTER COLUMN MaxConnections numeric" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist_AGN] ALTER COLUMN MaxConnections numeric" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-7-5 14:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD emailstatus varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-7-14 14:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD allowupdate varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_News] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD allowsub varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set allowsub='n' where allowsub is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD subweb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set subweb='0' where subweb is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD allowsub varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set allowsub='n' where allowsub is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD allowsubbyid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set allowsubbyid='0' where allowsubbyid is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD subweb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set subweb='0' where subweb is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD useper int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set useper='100' where useper is null" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-7-26 14:00'" ' conn.Execute Sql Set dspre = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Preopen_Product where haveget='n'" dspre.Open Sql,conn,1,3 while not dspre.Eof Set dsdom = Server.CreateObject("ADODB.Recordset") sql="Select * from FreeHost.FreeHost_Product_Domain where byid='"&dspre("byid")&"'" dsdom.Open sql,conn,1,1 if not dsdom.eof then dspre("haveget")="y" dspre.update end if Sql="delete from FreeHost.FreeHost_Preopen_Product where byid='"&dspre("byid")&"' and id<>"&dspre("id") conn.Execute Sql dsdom.close dspre.movenext wend dspre.close Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_username_4_checksum varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD dirname varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD IISID varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD allowupdatetoother varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD netby varchar(20)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set netby='电信' where netby is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD ServerlistID2 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set ServerlistID2=0 where ServerlistID2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD ServerlistID3 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set ServerlistID3=0 where ServerlistID3 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD ServerlistID4 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set ServerlistID4=0 where ServerlistID4 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD ServerlistID5 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set ServerlistID5=0 where ServerlistID5 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serversqllist] ADD netby varchar(20)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serversqllist] set netby='电信' where netby is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD ServerlistID2 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set ServerlistID2=0 where ServerlistID2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD ServerlistID3 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set ServerlistID3=0 where ServerlistID3 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD ServerlistID4 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set ServerlistID4=0 where ServerlistID4 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD ServerlistID5 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set ServerlistID5=0 where ServerlistID5 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerEmaillist] ADD netby varchar(20)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerEmaillist] set netby='电信' where netby is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD ServerlistID2 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set ServerlistID2=0 where ServerlistID2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD ServerlistID3 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set ServerlistID3=0 where ServerlistID3 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD ServerlistID4 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set ServerlistID4=0 where ServerlistID4 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD ServerlistID5 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set ServerlistID5=0 where ServerlistID5 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD ishand varchar(1) default 'n'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isadd varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isAgnHostSer bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD norusername varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD norStmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD norEndmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD agnusername varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD agnStmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD agnEndmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD supusername varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isuser varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isagn varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD issup varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD forwhatagn varchar(200)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD forwhatSubagn varchar(200)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD forwhatfreehost varchar(200)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isnew varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD atspace varchar(6)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD pdtype varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD pdsttime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD pdendtime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isdel varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD AgnRunasUser bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Moneylog] ADD isfortest bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD emailau varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailau bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set emailau=0 where emailau is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD hpsystem bit default 0" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2005-9-16 17:00'"'au have update ' conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD agnimgpath varchar(40)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set agnimgpath='c:\FreeHostAgentPhoto' where agnimgpath is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD canagnimg bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set canagnimg=0 where canagnimg is null" conn.Execute Sql 'other by 1113 Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD remindinfo text"'auok conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD canshowyear varchar(1) default 'n'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist_AGN] ADD remindinfo text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD userremindinfo text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD openinfo text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD admremindinfo text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD ordertime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD finishtime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uname1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uname2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uname3 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uname4 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD rname1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD rname2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ust varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uprov varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ucity1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ucity2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uaddr1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uaddr2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD location varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uzip varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD utelc varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD utela varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uteln varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD utele varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ufaxc varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ufaxa varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ufaxn varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ufaxe varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD uemail varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD aname1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD aname2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD atelc varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD atela varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD ateln varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD atele varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD afaxc varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD afaxa varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD afaxn varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD afaxe varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD aemail varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD dns1 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD dns2 varchar(50)" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Serversqllist ADD admurl varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_ali_ShopID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_ali_Key varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD openmustre bit"'au have update conn.Execute Sql If domainhaveset=True then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=1" ds.Open Sql,conn,1,3 if not ds.eof then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=4" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=4 ds("Domaintype")=".biz" ds("usermoney")=280 ds("usermoneyagn")=220 ds("agent1")="n" ds("domstr")=".biz" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=5" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=5 ds("Domaintype")=".info" ds("usermoney")=350 ds("usermoneyagn")=300 ds("agent1")="n" ds("domstr")=".info" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=6" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=6 ds("Domaintype")="普通通用网址" ds("usermoney")=500 ds("usermoneyagn")=400 ds("agent1")="n" ds("domstr")="通用网址" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=7" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=7 ds("Domaintype")="中文国际域名" ds("usermoney")=300 ds("usermoneyagn")=200 ds("agent1")="n" ds("domstr")="中文.com" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=8" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=8 ds("Domaintype")=".cc" ds("usermoney")=400 ds("usermoneyagn")=300 ds("agent1")="n" ds("domstr")=".cc" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=9" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=9 ds("Domaintype")=".mobi" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=1 ds("regapi")=1 ds("agent1")="n" ds("domstr")=".mobi" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=10" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=10 ds("Domaintype")=".tv" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=5 ds("regapi")=5 ds("agent1")="n" ds("domstr")=".tv" response.write "增中了.tv类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if end If End if'已设置域名接口 Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyrepay float" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyagnrepay float" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist_AGN ADD usermoneyrepay float" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD usermoneyrepay float" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD usermoneyrepay float" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist set usermoneyrepay=usermoney where usermoneyrepay is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist set usermoneyagnrepay=usermoneyagn where usermoneyagnrepay is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist_AGN set usermoneyrepay=usermoney where usermoneyrepay is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_price set usermoneyrepay=usermoney where prtype='域名产品'" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_user_price set usermoneyrepay=usermoney where prtype='域名产品'" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2006-1-8 9:00'" ' conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_username_5 varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_password_5 varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_DomainProductlist] ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD allowdomain int default 15" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set allowdomain=15 where allowdomain is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_News ADD typeid int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_IPS_ShopID varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_IPS_Key varchar(30)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD fcon text" conn.Execute Sql end if'检查3.6 'if dsver("ver")<3.7 then'-------------------------------------------------------------------------- 'response.write "3.6..." ' response.write "
3.7以前版本升级
" Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.6'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD ctldomain varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailreg text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailregact text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailuserforget text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailregagn text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailregactagn text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailuserforgetagn text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emaildomainopen text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emaildomainend text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailhostopen text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailhostend text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailsqlopen text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailsqlend text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailopen text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailend text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailotheropen text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailotherend text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailendmessage text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD emailendmessage text" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set emailendmessage='' where emailendmessage is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD emailstatus varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD istemplate varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_Netcard_ShopID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_Netcard_Key varchar(50)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Order] (id int identity,username varchar(14),email varchar(50),truename varchar(50),prv varchar(50),city varchar(50),address varchar(50),postid varchar(10),perid varchar(50),tel varchar(50),qq varchar(20),starttime datetime,regip varchar(30),agent1 varchar(14),agent2 varchar(14),fax varchar(30),RealID int,Hosttype varchar(100),Ftpname varchar(14),Ftppassword varchar(14),ServerlistID int,hostname varchar(1000),ICP_SN varchar(50),Emailtype varchar(100),EmailDomain varchar(200),Domain varchar(100),Domain_API int,DNS_API int,Sqltype varchar(100),sqlname varchar(50),sqlpassword varchar(50),Othertype varchar(100),status varchar(10),coreinfo varchar(100),userremindinfo text,site varchar(100),usermoney money,year int,name1 varchar(50),con1 varchar(100),name2 varchar(50),con2 varchar(100),name3 varchar(50),con3 varchar(100),name4 varchar(50),con4 varchar(100),name5 varchar(50),con5 varchar(100),name6 varchar(50),con6 varchar(100),name7 varchar(50),con7 varchar(100),name8 varchar(50),con8 varchar(100),productid int)" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Order](username,truename,email,qq,starttime)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD backuptime1 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD backuptime2 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD backuptime3 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD backuptime4 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD backuptime5 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD randir varchar(10)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD ftpname varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD ftppassword varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD ftpendtime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autobackup varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autobackupdir varchar(256)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD lastbackuptime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD ip1 varchar(15)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD ip2 varchar(15)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD spacelimt int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD MaxConnections numeric" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD MaxBandwidth varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD AppPoolnum int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD cpulimt int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD timetake int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ALTER COLUMN IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serversqllist] ALTER COLUMN IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serveremaillist] ALTER COLUMN IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerDNSlist] ALTER COLUMN IP varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD retdns text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_password_1_API varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD NameServer1 varchar(50),NameServer2 varchar(50), OrganizationZH varchar(50), OrganizationEN varchar(50), StreetZH varchar(50), StreetEN varchar(50), CityZH varchar(50), CityEN varchar(50), Country varchar(50), Province varchar(50), Postcode varchar(50), NameZH varchar(50), NameEN varchar(50), PhoneRegionCode varchar(50), PhoneAreaCode varchar(50), PhoneNumber varchar(50), PhoneExt varchar(50), FaxRegionCode varchar(50), FaxAreaCode varchar(50), FaxNumber varchar(50), FaxExt varchar(50), Email varchar(50), Trade varchar(50), Manager varchar(50), OrganizationZH2 varchar(50), OrganizationEN2 varchar(50), StreetZH2 varchar(50), StreetEN2 varchar(50), CityZH2 varchar(50), CityEN2 varchar(50), Country2 varchar(50), Province2 varchar(50), Postcode2 varchar(50), NameZH2 varchar(50), NameEN2 varchar(50), PhoneRegionCode2 varchar(50), PhoneAreaCode2 varchar(50), PhoneNumber2 varchar(50), PhoneExt2 varchar(50), FaxRegionCode2 varchar(50), FaxAreaCode2 varchar(50), FaxNumber2 varchar(50), FaxExt2 varchar(50), Email2 varchar(50), Trade2 varchar(50), Manager2 varchar(50),DomainComplex varchar(50),Encode varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_DomainProductlist] ADD checkapi int default 2, regapi int default 2" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD alipayid varchar(50),netpayselect varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD testtime int" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set testtime='7' where testtime is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2006-8-8 18:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ALTER COLUMN icpbyhost int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD subtype bit default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD plugin1 varchar(50),plugin1vertime datetime,plugin1url varchar(100),plugin1ad text" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2006-8-29 18:00'" ' conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD PAY_Season varchar(50),PAY_halfyear varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set PAY_Season=0.25 where PAY_Season is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set PAY_halfyear=0.5 where PAY_halfyear is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canseason varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD canseason varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD canseason varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD canseason varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_username_6 varchar(24),Domain_Agent_password_6 varchar(24)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD MaxConnections varchar(50),spacelimit varchar(50),MaxBandwidth varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set MaxConnections=20,spacelimit=10,MaxBandwidth=524288 where MaxConnections is null" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2006-9-10 18:00:00'" ' conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ALTER COLUMN qq varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ALTER COLUMN qq varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Agentcantest bit default 0,Agentcanunlimit bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set Agentcantest=0,Agentcanunlimit=0 where Agentcantest is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD BytesReceived numeric default 0,BytesSent numeric default 0,TimeTaken numeric default 0,cangetlog varchar(1) default 'n',getmelog varchar(1) default 'n',lastlogtime datetime,Maxbytes numeric default 0,thismonbytes numeric default 0,oldmonthbytes numeric default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set BytesReceived=0,BytesSent=0,TimeTaken=0,Maxbytes=0,cangetlog='y',getmelog='n',thismonbytes=0,oldmonthbytes=0 where BytesReceived is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD Maxbytes numeric default 0,cangetlog varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set Maxbytes=0,cangetlog='y' where Maxbytes is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD lastlogtime datetime,lastanatime datetime,Bytes numeric default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set Bytes=0 where Bytes is null" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-1-18 9:00:00'" ' conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD strCompanyCN varchar(100),strCompanyEN varchar(100), strAddressCN varchar(100), strAddressEN varchar(100), strCityCN varchar(50), strCityEN varchar(50), strProvince varchar(50), strPostcode varchar(50), strNameCN varchar(50), strNameEN varchar(50), intPhoneAreaCode varchar(50), intPhoneNumber varchar(50), intFaxAreaCode varchar(50), intFaxNumber varchar(50), strEmail varchar(50), strTrade varchar(50), strManager varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD thismonbytesALL numeric default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD cpuALL numeric default 0,MaxCPU numeric default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set thismonbytesALL=0,cpuALL=0,MaxCPU=0 where MaxCPU is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD MaxCPU numeric default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set MaxCPU=0 where MaxCPU is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_username_5_emamil varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD backupdir varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD backupyes varchar(1) default 'n',backupday int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set backupyes='n',backupday=3 where backupyes is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD admmailname varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set admmailname='webmaster' where admmailname is null or admmailname=''" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD testsame bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD backupsave int default 3" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set backupsave=3 where backupsave is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD userspacelimtReal int,logspacelimtReal int,checktime datetime" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_Domain](username)" conn.Execute Sql Sql="Create index b on [FreeHost].[FreeHost_Product_Domain](Domain)" conn.Execute Sql Sql="Create index c on [FreeHost].[FreeHost_Product_Domain](status,starttime)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canseelog varchar(1) default 'n',canrar varchar(1) default 'n',canback varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canseelog='y',canrar='y',canback='y' where canseelog is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD canseelog varchar(1) default 'n',canrar varchar(1) default 'n',canback varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set canseelog='y',canrar='y',canback='y' where canseelog is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ALTER COLUMN principal varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ALTER COLUMN work_phone varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_99bill_ShopID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_99bill_Key varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD urlcheck bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set urlcheck='0' where urlcheck is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_URLRE] ADD addtime datetime,agent1 varchar(14),agent2 varchar(14)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD realspaceuse int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD superdns bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set superdns='0' where superdns is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerDNSlist] ADD netby varchar(20) default '电信'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerDNSlist] set netby='电信' where netby is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_ALLDNS] ADD netby varchar(20) default '全部'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_ALLDNS] set netby='全部' where netby is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-5-25 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD repaymoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD repaymoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_SQL] ADD repaymoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD repaymoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent_pers] ADD template varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD updatebytypeid varchar(1),canupdatespace varchar(1),updatespacemoney money,canupdateiis varchar(1),updateiismoney money,canupdatebank varchar(1),updatebanksmoney money,canupdatebyte varchar(1),updatebytesmoney money,canupdatecpu varchar(1),updatecpusmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD updatebytypeid varchar(1),canupdatespace varchar(1),updatespacemoney money,canupdateemailcount varchar(1),updateemailcountmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD updatebytypeid varchar(1),canupdatespace varchar(1),updatespacemoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD updatebytypeid varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD agentdefault bit default 0" conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_HtmlStyle] set agentdefault='1' where username='freehost' and nowuse='1'" ' conn.Execute Sql'--------------------不处理这部分--------------------2008 Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD onlyone bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set onlyone='0' where onlyone is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD showdomainpass bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set showdomainpass='1' where showdomainpass is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD year2 money,year3 money,year4 money,year5 money,year6 money,year7 money,year8 money,year9 money,year10 money,year2agn money,year3agn money,year4agn money,year5agn money,year6agn money,year7agn money,year8agn money,year9agn money,year10agn money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist_AGN ADD year2 money,year3 money,year4 money,year5 money,year6 money,year7 money,year8 money,year9 money,year10 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD year2 money,year3 money,year4 money,year5 money,year6 money,year7 money,year8 money,year9 money,year10 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD year2 money,year3 money,year4 money,year5 money,year6 money,year7 money,year8 money,year9 money,year10 money" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10,year2agn=usermoneyagnrepay*2,year3agn=usermoneyagnrepay*3,year4agn=usermoneyagnrepay*4,year5agn=usermoneyagnrepay*5,year6agn=usermoneyagnrepay*6,year7agn=usermoneyagnrepay*7,year8agn=usermoneyagnrepay*8,year9agn=usermoneyagnrepay*9,year10agn=usermoneyagnrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist_AGN set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_user_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD nottype varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD oridir varchar(100)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_IDCJG] (id int primary key identity(1,1),jfname varchar(100),jgname varchar(100),jginfo text,agent1 varchar(14),agent2 varchar(14));Create table [FreeHost].[FreeHost_IDCIP] (id int identity(1,1),JGID int default 0,PDID int default 0,IP varchar(50),agent1 varchar(14),agent2 varchar(14));" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_IDCProductlist] (id int primary key identity(1,1),IDCtype varchar(100) unique,istg bit default 1,usermoney money,ServerlistID int default 0,ServerlistID2 int default 0,ServerlistID3 int default 0,ServerlistID4 int default 0,ServerlistID5 int default 0,info text,infomore text,remindinfo text,canmonth varchar(1),canhalfyear varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1),orderbyid int default 0,canshowyear varchar(1) default 'n',typeid int default 0,canseason varchar(1),allowupdate varchar(1),allowupdatetoother varchar(1),updatebytypeid varchar(1),price0 money,price1 money,price2 money,price3 money,price4 money,price5 money,price6 money,price7 money,price8 money,price9 money,price10 money)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_IDCProductlist_AGN] (id int primary key identity(1,1),IDCtype varchar(100) unique,istg bit default 1,usermoney money,ServerlistID int default 0,info text,infomore text,canmonth varchar(1),canhalfyear varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1),orderbyid int default 0,canshowyear varchar(1) default 'n',typeid int default 0,canseason varchar(1),updatebytypeid varchar(1))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_IDC] (id int primary key identity(1,1),username varchar(14),ServerlistID int,ip1 int,ip2 int,ip3 int,ip4 int,ip5 int,IDCtype varchar(100),starttime datetime,endtime datetime,istest varchar(1),status varchar(50),Othercount int,maxbank int,maxbyte int,agent1 varchar(14),agent2 varchar(14),byhost int,orderbyid int,userremindinfo text,openinfo text,admremindinfo text,ordertime datetime,finishtime datetime,repaymoney money,admname varchar(50),admpass varchar(50),port varchar(10))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_IDC_repair] (id int primary key identity(1,1),username varchar(14),PDID int,idctitle varchar(200),idctype varchar(20),status varchar(20),addtime datetime,moreinfo text,opusername varchar(50),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_IDC](username)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmidc varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmidc='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmidcadd varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmidcadd='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmidcset varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmidcset='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NetPaypercent varchar(10)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set NetPaypercent=0 where NetPaypercent is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Order] ADD idctype varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_BJ_ShopID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD NP_BJ_Key varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD domaincount int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ALTER COLUMN hostname varchar(4000)"'modi hostname conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD aspx2 text,netver varchar(10) default '1.1'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set netver='1.1',aspx2='.ad,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.adprototype,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.asax,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ascx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ashx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.asmx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.aspx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.axd,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.browser,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.cd,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.compiled,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.config,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.cs,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.csproj,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.dd,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.exclude,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.java,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.jsl,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldb,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldd,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.lddprototype,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldf,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.licx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.master,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.mdb,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.mdf,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.msgx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.refresh,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.rem,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.resources,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.resx,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sd,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sdm,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sdmDocument,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sitemap,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.skin,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.soap,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.svc,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.vb,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vbproj,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vjsproj,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vsdisco,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.webinfo,c:\windows\microsoft.net\framework\v2.0.50727\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|' where netver is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD netver varchar(10)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD netver varchar(10),poolname varchar(100)" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyrepay2 money,usermoneyrepay3 money,usermoneyrepay4 money,usermoneyrepay5 money,usermoneyrepay6 money,usermoneyagnrepay2 money,usermoneyagnrepay3 money,usermoneyagnrepay4 money,usermoneyagnrepay5 money,usermoneyagnrepay6 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist_AGN ADD usermoneyrepay2 money,usermoneyrepay3 money,usermoneyrepay4 money,usermoneyrepay5 money,usermoneyrepay6 money,usermoneyagnrepay2 money,usermoneyagnrepay3 money,usermoneyagnrepay4 money,usermoneyagnrepay5 money,usermoneyagnrepay6 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist_AGN] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD usermoneyrepay2 money,usermoneyrepay3 money,usermoneyrepay4 money,usermoneyrepay5 money,usermoneyrepay6 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD usermoneyrepay2 money,usermoneyrepay3 money,usermoneyrepay4 money,usermoneyrepay5 money,usermoneyrepay6 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_user_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD usercanselectapi bit,api1 bit,api2 bit,api3 bit,api4 bit,api5 bit,api6 bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set usercanselectapi=0,api1=1,api2=1,api3=1,api4=1,api5=1,api6=1 where usercanselectapi is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-6-19 9:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD alipayuser7i24 bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set alipayuser7i24=0 where alipayuser7i24 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD DenySiteIP text" conn.Execute Sql If domainhaveset=True then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=1" ds.Open Sql,conn,1,3 if not ds.eof then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=10" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=10 ds("Domaintype")=".tv" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=5 ds("regapi")=5 ds("agent1")="n" ds("domstr")=".tv" response.write "
增中了.tv类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=13" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=13 ds("Domaintype")="中文.biz" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=5 ds("regapi")=5 ds("agent1")="n" ds("domstr")=".biz" response.write "
增中了 中文.biz 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=15" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=15 ds("Domaintype")="中文.cc" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=5 ds("regapi")=5 ds("agent1")="n" ds("domstr")=".cc" response.write "
增中了 中文.cc 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=17" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=17 ds("Domaintype")="中文.tv" ds("usermoney")=280 ds("usermoneyagn")=220 ds("usermoneyrepay")=280 ds("usermoneyagnrepay")=220 ds("checkapi")=5 ds("regapi")=5 ds("agent1")="n" ds("domstr")=".tv" response.write "
增中了 中文.tv 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=11" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=11 ds("Domaintype")=".hk" ds("usermoney")=360 ds("usermoneyagn")=360 ds("usermoneyrepay")=360 ds("usermoneyagnrepay")=360 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".hk" response.write "
增中了 .hk 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=18" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=18 ds("Domaintype")="中文.hk" ds("usermoney")=420 ds("usermoneyagn")=420 ds("usermoneyrepay")=420 ds("usermoneyagnrepay")=420 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".hk" response.write "
增中了 中文.hk 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=12" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=12 ds("Domaintype")=".tw" ds("usermoney")=450 ds("usermoneyagn")=450 ds("usermoneyrepay")=450 ds("usermoneyagnrepay")=450 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".tw" response.write "
增中了 .tw 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=19" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=19 ds("Domaintype")="中文.tw" ds("usermoney")=450 ds("usermoneyagn")=450 ds("usermoneyrepay")=450 ds("usermoneyagnrepay")=450 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".tw" response.write "
增中了 中文.tw 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=20" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=20 ds("Domaintype")=".name" ds("usermoney")=450 ds("usermoneyagn")=450 ds("usermoneyrepay")=450 ds("usermoneyagnrepay")=450 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".name" response.write "
增中了 .name 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end if '新加类型后设置价格 Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist_AGN] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_user_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql '--------------------- end If End if'设置了域名价格 Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-6-24 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ALTER COLUMN web_domain varchar(1000)"'modi hostname conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD contact varchar(20),mobi varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD contact varchar(20),mobi varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmkefu varchar(1),canmodkefu varchar(1),candelkefu varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmkefu='y',canmodkefu='y',candelkefu='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD kefunow varchar(20),kefuto varchar(20),changekefufor varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD kefunow varchar(20),kefuto varchar(20),changekefufor varchar(50)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_KeFu] (id int primary key identity(1,1),kefu varchar(20),kefumd5 varchar(32),finishmoney money default 0,per int default 0,havegetmoney money default 0,addtime datetime)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_SQL] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_IDC] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_domain] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_moneylog] ADD kefu varchar(20),realmoney money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-7-27 9:00:00'" conn.Execute Sql 'end if' 3.7以前.........................--------------------------------------------------------------------------- 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.7'" ' conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-8-8 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD todelday int default 30" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set todelday=30 where todelday is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD testhostcandomain bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canchnkefu varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canchnkefu='y' where superuser='freehost'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-8-23 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD SMSUserName varchar(50),SMSKey varchar(50),canuseorder bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set canuseorder=1 where canuseorder is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD pausebyagn varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set pausebyagn='a' where pausebyagn is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD zbdwzjtype varchar(10) default '0',mobileuni varchar(50),mobileton varchar(50),websitecon varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2007-12-21 17:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD blockip text,blockdomain text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsreg bit default 0,smshostopen bit default 0,smshosttimeout bit default 0,smsemailopen bit default 0,smsemailtimeout bit default 0,smsdomainopen bit default 0,smsdomaintimeout bit default 0,smstimeout int default 7" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsregcon text,smshostopencon text,smshosttimeoutcon text,smsemailopencon text,smsemailtimeoutcon text,smsdomainopencon text,smsdomaintimeoutcon text" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set smstimeout=7 where smstimeout is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smssqlopen bit default 0,smssqltimeout bit default 0,smssqlopencon text,smssqltimeoutcon text,smsothertimeout bit default 0,smsothertimeoutcon text,smsidctimeout bit default 0,smsidctimeoutcon text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_IDC] ADD smsstatus varchar(1),emailstatus varchar(1);ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD smsstatus varchar(1);ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD smsstatus varchar(1);ALTER TABLE [FreeHost].[FreeHost_Product_Email] ADD smsstatus varchar(1);ALTER TABLE [FreeHost].[FreeHost_Product_Sql] ADD smsstatus varchar(1);ALTER TABLE [FreeHost].[FreeHost_Product_Other] ADD smsstatus varchar(1);" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HtmlStyle] ADD html26 text,html27 text,html28 text,html29 text,html30 text,html31 text,html32 text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD orderbyid int" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD agncangetsms bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD canuseapi bit,apipass varchar(50),apiip1 varchar(50),apiip2 varchar(50),apiip3 varchar(50),apiip4 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD tenpayid varchar(50),tenpaykey varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD onlypasusesite varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set onlypasusesite='y' where superuser='freehost' and onlypasusesite is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD canagnrar bit default 0" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_AgentRaR] (id int identity,username varchar(14),sendtime datetime,status varchar(14),site1 varchar(100),site2 varchar(100))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Fapiao] (id int identity,username varchar(14),usermoney money,realmoney money,title varchar(100),con text,usercodeinfo text,admcodeinfo text,address varchar(100),postid varchar(10),recman varchar(50),tel varchar(50),apptime datetime,agreetime datetime,sendtime datetime,status varchar(14),productid int,moneyid int,agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Fapiao](username,title)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD FapiaoPaypercent int default 0,MinFapiaomoney int default 50" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set FapiaoPaypercent=10,MinFapiaomoney=50 where FapiaoPaypercent is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Fapiao] ADD mobi varchar(50),sendtype varchar(20)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Fapiaokuai int default 20" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set Fapiaokuai=20 where Fapiaokuai is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2008-7-14 17:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autodelhost bit default 0,autodeltesthostnow bit default 0,netpaylessmoney int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set autodelhost=0,autodeltesthostnow=0,netpaylessmoney=0 where autodelhost is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_News] ADD type1 int default 0,type2 int default 0,type3 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_News] set type1=0,type2=0,type3=0 where type1 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD cnrepay bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set cnrepay=0 where cnrepay is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD admemail varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD awstoadmin bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set awstoadmin=0 where awstoadmin is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_ALLDNS] ADD type1 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_ALLDNS] set type1=0 where type1 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD type1 int default 0,DNScount int default 20" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set type1=0,DNScount='"&Application("DNScount")&"' where type1 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD cantwodb bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set cantwodb=0 where cantwodb is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autodelicp bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set autodelicp=0 where autodelicp is null" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_ICPDB] (id int identity,username varchar(14),ftpname varchar(14),domain varchar(100),status varchar(50),firstaddtime datetime,checktime datetime,ICP_SN varchar(50),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_ICPDB](username,ftpname,domain);Create index b on [FreeHost].[FreeHost_ICPDB](ftpname);Create index c on [FreeHost].[FreeHost_ICPDB](domain);Create index d on [FreeHost].[FreeHost_ICPDB](status,firstaddtime)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD usernotice text,lastnotice datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD alldomainok bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set alldomainok=0 where alldomainok is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD openmustre bit default 0,autodelicp bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set openmustre=0,autodelicp=0 where openmustre is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Netpay] ALTER COLUMN ORDERID varchar(100)"'3.0 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD pricetemp1 varchar(30),pricetempname1 varchar(50),pricetemp2 varchar(30),pricetempname2 varchar(50),pricetemp3 varchar(30),pricetempname3 varchar(50),pricetemp4 varchar(30),pricetempname4 varchar(50),pricetemp5 varchar(30),pricetempname5 varchar(50)"'1202 conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD waitmoney money default 0,totalmoney money default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_USER] set waitmoney=0,totalmoney=0 where waitmoney is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_AGENT] ADD waitmoney money default 0,totalmoney money default 0,NP_ali_ShopID varchar(50),tenpayid varchar(50),tenpaykey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_AGENT] set waitmoney=0,totalmoney=0 where waitmoney is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD agentcannetpay bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set agentcannetpay=0 where agentcannetpay is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_AGENT] ADD canusenetpay bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_AGENT] set canusenetpay=0 where canusenetpay is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_AGENT] set tenpayid=null,NP_ali_ShopID=null where canusenetpay=0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmhostch varchar(1) default 'y',canadmhostmidsub varchar(1) default 'y',canadmhostmiddomain varchar(1) default 'y',canadmhostmidcpu varchar(1) default 'y',canadmhostmidrepay varchar(1) default 'y',canadmhostdel varchar(1) default 'y',canadmhostoth varchar(1) default 'y',canadmemailreapy varchar(1) default 'y',canadmemaildel varchar(1) default 'y',canadmemailch varchar(1) default 'y',canadmemailrenow varchar(1) default 'y',canadmemailupdate varchar(1) default 'y',canadmsqlrepay varchar(1) default 'y',canadmsqldel varchar(1) default 'y',canadmsqlch varchar(1) default 'y',canadmsqlrenow varchar(1) default 'y',canadmsqlupdate varchar(1) default 'y'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmhostch='y',canadmhostmidsub='y',canadmhostmiddomain='y',canadmhostmidcpu='y',canadmhostmidrepay='y',canadmhostdel='y',canadmhostoth='y',canadmemailreapy='y',canadmemaildel='y',canadmemailch='y',canadmemailrenow='y',canadmemailupdate='y',canadmsqlrepay='y',canadmsqldel='y',canadmsqlch='y',canadmsqlrenow='y',canadmsqlupdate='y' where (superuser='freehost' or canadmhostset='y') and canadmhostch is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set PAY_Month='"&Application("PAY_Month")&"',PAY_Season='"&Application("PAY_Season")&"',PAY_halfyear='"&Application("PAY_halfyear")&"',PAY_Nextyear='1',PAY_2year='2',PAY_3year='3',PAY_4year='4',PAY_5year='5' where PAY_Month is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_SqlProductlist] set PAY_Month='"&Application("PAY_Month")&"',PAY_Season='"&Application("PAY_Season")&"',PAY_halfyear='"&Application("PAY_halfyear")&"',PAY_Nextyear='1',PAY_2year='2',PAY_3year='3',PAY_4year='4',PAY_5year='5' where PAY_Month is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_EmailProductlist] set PAY_Month='"&Application("PAY_Month")&"',PAY_Season='"&Application("PAY_Season")&"',PAY_halfyear='"&Application("PAY_halfyear")&"',PAY_Nextyear='1',PAY_2year='2',PAY_3year='3',PAY_4year='4',PAY_5year='5' where PAY_Month is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_IDCProductlist] ADD PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_IDCProductlist] set PAY_Month='"&Application("PAY_Month")&"',PAY_Season='"&Application("PAY_Season")&"',PAY_halfyear='"&Application("PAY_halfyear")&"',PAY_Nextyear='1',PAY_2year='2',PAY_3year='3',PAY_4year='4',PAY_5year='5' where PAY_Month is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_OtherProductlist] set PAY_Month='"&Application("PAY_Month")&"',PAY_Season='"&Application("PAY_Season")&"',PAY_halfyear='"&Application("PAY_halfyear")&"',PAY_Nextyear='1',PAY_2year='2',PAY_3year='3',PAY_4year='4',PAY_5year='5' where PAY_Month is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autopausebytesite bit default 0,sendtonodefineagn bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set autopausebytesite=0,sendtonodefineagn=1 where autopausebytesite is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmsqlpau varchar(1) default 'y'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmsqlpau='y' where (superuser='freehost' or canadmhostset='y') and canadmsqlpau is null" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_NetCN] (id int primary key identity(1,1),username varchar(14),ftpname varchar(50),Ftppassword varchar(50),volume int,ipaddress varchar(50),dbname varchar(50),dbpassword varchar(50),starttime datetime,endtime datetime,Domain varchar(100),category varchar(50),productid varchar(50),os varchar(50),idc varchar(50),vyear int,amount int,status varchar(50),corewhat varchar(400),retdns text,agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_NetCN](username,Domain,ftpname,starttime,endtime)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_AGENT] ADD haveclosehtml bit default 0"'删除分配的代理域名asa不用改,删除已有的代理模板, conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_AGENT] set haveclosehtml=0 where haveclosehtml is null" conn.Execute Sql If domainhaveset=True then Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=30"'net,org ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=30 ds("Domaintype")="国际英文域名.net/.org" ds("usermoney")=80 ds("usermoneyagn")=80 ds("usermoneyrepay")=80 ds("usermoneyagnrepay")=80 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".net/.org" response.write "
由于价格变动,系统中增中了 .net/.org 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。
" ds.update ds.close end If End if Sql="UPDATE FreeHost.FreeHost_DomainProductlist set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10,year2agn=usermoneyagnrepay*2,year3agn=usermoneyagnrepay*3,year4agn=usermoneyagnrepay*4,year5agn=usermoneyagnrepay*5,year6agn=usermoneyagnrepay*6,year7agn=usermoneyagnrepay*7,year8agn=usermoneyagnrepay*8,year9agn=usermoneyagnrepay*9,year10agn=usermoneyagnrepay*10,usermoneyagnrepay2=usermoneyagnrepay*2,usermoneyagnrepay3=usermoneyagnrepay*3,usermoneyagnrepay4=usermoneyagnrepay*4,usermoneyagnrepay5=usermoneyagnrepay*5,usermoneyagnrepay6=usermoneyagnrepay*6,usermoneyrepay2=usermoneyrepay*2,usermoneyrepay3=usermoneyrepay*3,usermoneyrepay4=usermoneyrepay*4,usermoneyrepay5=usermoneyrepay*5,usermoneyrepay6=usermoneyrepay*6 where year2 is null" conn.Execute Sql'正确的接口设置 Sql="UPDATE FreeHost.FreeHost_DomainProductlist set Domaintype='国际英文域名.com',domstr='.com' where id=1" conn.Execute Sql 'Sql="ALTER TABLE [FreeHost].[FreeHost_News] ADD newsid varchar(200)" ' conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_Host_IP] (id int identity(1,1),ServerlistID int default 0,HostID int default 0,IP varchar(50),orderbyid int default 0,agent1 varchar(14),agent2 varchar(14));" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_Host_IP](ServerlistID,HostID)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD hostoneip bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set hostoneip=0 where hostoneip is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2008-9-8 9:00:00'" conn.Execute Sql 'domain new Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyAPI1 money,year2API1 money,year3API1 money,year4API1 money,year5API1 money,usermoneyagnAPI1 money,year2agnAPI1 money,year3agnAPI1 money,year4agnAPI1 money,year5agnAPI1 money,usermoneyAPI2 money,year2API2 money,year3API2 money,year4API2 money,year5API2 money,usermoneyagnAPI2 money,year2agnAPI2 money,year3agnAPI2 money,year4agnAPI2 money,year5agnAPI2 money,usermoneyAPI3 money,year2API3 money,year3API3 money,year4API3 money,year5API3 money,usermoneyagnAPI3 money,year2agnAPI3 money,year3agnAPI3 money,year4agnAPI3 money,year5agnAPI3 money,usermoneyAPI4 money,year2API4 money,year3API4 money,year4API4 money,year5API4 money,usermoneyagnAPI4 money,year2agnAPI4 money,year3agnAPI4 money,year4agnAPI4 money,year5agnAPI4 money,usermoneyAPI5 money,year2API5 money,year3API5 money,year4API5 money,year5API5 money,usermoneyagnAPI5 money,year2agnAPI5 money,year3agnAPI5 money,year4agnAPI5 money,year5agnAPI5 money,usermoneyAPI6 money,year2API6 money,year3API6 money,year4API6 money,year5API6 money,usermoneyagnAPI6 money,year2agnAPI6 money,year3agnAPI6 money,year4agnAPI6 money,year5agnAPI6 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD usermoneyAPI1 money,year2API1 money,year3API1 money,year4API1 money,year5API1 money,usermoneyAPI2 money,year2API2 money,year3API2 money,year4API2 money,year5API2 money,usermoneyAPI3 money,year2API3 money,year3API3 money,year4API3 money,year5API3 money,usermoneyAPI4 money,year2API4 money,year3API4 money,year4API4 money,year5API4 money,usermoneyAPI5 money,year2API5 money,year3API5 money,year4API5 money,year5API5 money,usermoneyAPI6 money,year2API6 money,year3API6 money,year4API6 money,year5API6 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD usermoneyAPI1 money,year2API1 money,year3API1 money,year4API1 money,year5API1 money,usermoneyAPI2 money,year2API2 money,year3API2 money,year4API2 money,year5API2 money,usermoneyAPI3 money,year2API3 money,year3API3 money,year4API3 money,year5API3 money,usermoneyAPI4 money,year2API4 money,year3API4 money,year4API4 money,year5API4 money,usermoneyAPI5 money,year2API5 money,year3API5 money,year4API5 money,year5API5 money,usermoneyAPI6 money,year2API6 money,year3API6 money,year4API6 money,year5API6 money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD domaincansetM bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set domaincansetM=0 where domaincansetM is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD iisver int default 6" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set iisver=6 where iisver is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD nullhead bit default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD onlyusebyagn varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_EmailProductlist] ADD onlyusebyagn varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_SqlProductlist] ADD onlyusebyagn varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_OtherProductlist] ADD onlyusebyagn varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_IDCProductlist] ADD onlyusebyagn varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD iphead bit default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD iphead bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set iphead=0 where iphead is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD cname varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_AGENT] ADD NP_ChinaBank_ShopID varchar(50),NP_ChinaBank_Key varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmhostaddtest varchar(1) default 'y'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmhostaddtest='y' where (canadmhostadd='y') and canadmhostaddtest is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2008-11-7 17:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD UAcopyName1 varchar(50),UAcopydir1 varchar(50),UAcopyabcout1 varchar(200),UAcopyName2 varchar(50),UAcopydir2 varchar(50),UAcopyabcout2 varchar(200),UAcopyName3 varchar(50),UAcopydir3 varchar(50),UAcopyabcout3 varchar(200),UAcopyName4 varchar(50),UAcopydir4 varchar(50),UAcopyabcout4 varchar(200),UAcopyName5 varchar(50),UAcopydir5 varchar(50),UAcopyabcout5 varchar(200),UAcopyName6 varchar(50),UAcopydir6 varchar(50),UAcopyabcout6 varchar(200),UAcopyName7 varchar(50),UAcopydir7 varchar(50),UAcopyabcout7 varchar(200),UAcopyName8 varchar(50),UAcopydir8 varchar(50),UAcopyabcout8 varchar(200)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent_ALLdomain] ADD status varchar(50)" conn.Execute Sql End If 'if dsver("ver")<3.8 then 前面是3.8前 if dsver("ver")<3.81 then '下面开始是3.8 Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.8'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2008-12-9 20:00:00'" conn.Execute Sql '服务器列表: Sql="Create table [FreeHost].[FreeHost_ServerVPSlist] (id int primary key identity(1,1),servername varchar(25) unique,site varchar(100),homedir varchar(200),ip varchar(50),agent1 varchar(14),agent2 varchar(14),FreeHostsharekey varchar(50),netby varchar(20),backupdir varchar(100),orderbyid int,CpuNum int default 1,MAXRAM int,MaxCPU int default 10,MAXSPACE int default 10,MAXVPS int default 10,osname1 varchar(100),osfile1 varchar(100),osname2 varchar(100),osfile2 varchar(100),osname3 varchar(100),osfile3 varchar(100),osname4 varchar(100),osfile4 varchar(100))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_VPSProductlist] (id int primary key identity(1,1),VPStype varchar(100) unique,usermoney float,ServerlistID int,CpuNum int default 1,MAXRAM int,MaxCPU int default 10,MAXSPACE int default 10,info text,infomore text,cantest varchar(1),canmonth varchar(1),canhalfyear varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1),orderbyid int default 0,allowupdate varchar(1),allowupdatetoother varchar(1),ServerlistID2 int default 0,ServerlistID3 int default 0,ServerlistID4 int default 0,ServerlistID5 int default 0,typeid int default 0,caninstallos varchar(1),canbackupvhd varchar(1),updatebytypeid varchar(1),PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5',onlyusebyagn varchar(100),canseason varchar(1))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_VPSProductlist_AGN] (id int,VPStype varchar(100),usermoney float,ServerlistID int,info text,infomore text,html varchar(1),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_VPS] (id int primary key identity(1,1),username varchar(14),ServerlistID int,VPStype varchar(100),starttime datetime,endtime datetime,vpsname varchar(14),VPSpassword varchar(50),status varchar(50),istest varchar(1),corewhat varchar(200),emailstatus varchar(1),agent1 varchar(14),agent2 varchar(14),statusinfo varchar(50),orderbyid int, beianstatus varchar(14),unit varchar(100),unit_code tinyint,unit_id varchar(30),investor varchar(100),province_code varchar(20),city_code varchar(30),county_code varchar(40),address varchar(100),principal varchar(50), principal_id_type varchar(20),principal_id_num varchar(30),work_phone varchar(50),mobile varchar(20),email varchar(40),web_name varchar(40), web_index varchar(40),web_domain varchar(1000),web_ip varchar(40),working_type varchar(40),ICP_logname varchar(40),ICP_logpass varchar(40),ICP_SN varchar(50),ISP_ID varchar(50),entertype_ID varchar(50),Serverplace_ID varchar(50), isdyIP varchar(1),MaxCPU int default 10,CpuNum int default 1,MaxRAM int default 256,MaxSpace int default 10,repaymoney money,kefu varchar(20),realmoney money,pausebyagn varchar(1) default 'n',zbdwzjtype varchar(10) default '0',mobileuni varchar(50),mobileton varchar(50),websitecon varchar(50),smsstatus varchar(1),caninstallos varchar(1),canbackupvhd varchar(1),vhdpath varchar(100),ostype varchar(50))" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_VPS](username,vpsname,starttime)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_VPS_IP] (id int identity(1,1),ServerlistID int default 0,VPSID int default 0,IP varchar(50),IPmask varchar(50),IPgateway varchar(50),IPdns1 varchar(50),IPdns2 varchar(50),orderbyid int default 0,agent1 varchar(14),agent2 varchar(14));" conn.Execute Sql Sql="Create index a on [FreeHost].[FreeHost_Product_VPS_IP](ServerlistID,VPSID)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmvps varchar(1),canadmvpsadd varchar(1),canadmvpsaddtest varchar(1),canadmvpsset varchar(1),canadmvpsch varchar(1),canadmvpsmidcpu varchar(1),canadmvpsmidrepay varchar(1),canadmvpsdel varchar(1),canadmvpsoth varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmvps='y',canadmvpsadd='y',canadmvpsaddtest='y',canadmvpsset='y',canadmvpsch='y',canadmvpsmidcpu='y',canadmvpsmidrepay='y',canadmvpsdel='y',canadmvpsoth='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Order] ADD VPStype varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD agnchangelogin bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set agnchangelogin=0 where agnchangelogin is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD showapi1 bit default 1,showapi2 bit default 1,showapi3 bit default 1,showapi4 bit default 1,showapi5 bit default 1,showapi6 bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set showapi1=1,showapi2=1,showapi3=1,showapi4=1,showapi5=1,showapi6=1 where showapi1 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2008-12-24 17:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD upgif image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD upgiflen int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set upgiflen=0 where upgiflen is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD upgif image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD upgiflen int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set upgiflen=0 where upgiflen is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_url_6 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_md5_6 varchar(32)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD Domain_Agent_md5_6 varchar(32)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-1-4 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ALTER COLUMN nottype varchar(128)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set uname1=strCompanyCN,uname2=strCompanyEN where (uname1 is null and strCompanyCN is not null)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set uname1=OrganizationZH,uname2=OrganizationEN where (uname1 is null and OrganizationZH is not null)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD Domain_Agent_nonemd5_6 varchar(32)" conn.Execute Sql '下面开始是3.81 Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.81'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-1-8 17:00:00'" conn.Execute Sql End If 'if dsver("ver")<3.81 then 前面是3.81前 if dsver("ver")<3.84 then '下面开始是3.84 Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD ostype varchar(10) default 'windows';"'19 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set ostype='windows' where ostype is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD ostype varchar(10) default 'windows',vdomains int default 1,nemails int default 1,nemailf int default 1,nemailml int default 1,nemailr int default 1,mysql int default 1,domainptr int default 1,ftp int default 1,aftp varchar(10) default 'OFF',spam varchar(10) default 'ON',catchall varchar(10) default 'ON',ssl varchar(10) default 'ON',ssh varchar(10) default 'ON',cron varchar(10) default 'ON',sysinfo varchar(10) default 'ON',dnscontrol varchar(10) default 'OFF',suspend_at_limit varchar(10) default 'ON',skin varchar(50) default 'enhanced',language varchar(50) default 'en',packagename varchar(50) default '7i24';" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set ostype='windows' where ostype is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD ostype varchar(10) default 'windows';" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set ostype='windows' where ostype is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD vdomains int default 1,nemails int default 1,nemailf int default 1,nemailml int default 1,nemailr int default 1,mysql int default 1,domainptr int default 1,ftp int default 1,aftp varchar(10) default 'OFF',spam varchar(10) default 'ON',catchall varchar(10) default 'ON',ssl varchar(10) default 'ON',ssh varchar(10) default 'ON',cron varchar(10) default 'ON',sysinfo varchar(10) default 'ON',dnscontrol varchar(10) default 'OFF',suspend_at_limit varchar(10) default 'ON',packagename varchar(50) default '7i24',allowdomain int default 1;" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Netpay] ADD agentcannetpay bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Netpay] set agentcannetpay=0 where agentcannetpay is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD ispinfo text;" conn.Execute Sql Sql="SELECT * INTO [FreeHost].[FreeHost_Netpay_BACKUP] FROM [FreeHost].[FreeHost_Netpay]" conn.Execute Sql Sql="delete from [FreeHost].[FreeHost_Netpay]" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Netpay] ADD CONSTRAINT idxorderid UNIQUE NONCLUSTERED(ORDERID)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.84'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-2-20 20:30:00'" conn.Execute Sql End If 'if dsver("ver")<3.84 then 前面是3.84前 if dsver("ver")<3.85 then '下面开始是3.84 Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autodelsql bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set autodelsql=0 where autodelsql is null" conn.Execute Sql Sql="update FreeHost.FreeHost_Product_Sql set FreeHost.FreeHost_Product_Sql.endtime=FreeHost.FreeHost_Product_host.endtime from FreeHost.FreeHost_Product_host where FreeHost.FreeHost_Product_SQL.byhost=FreeHost.FreeHost_Product_host.id" conn.Execute Sql Sql="update FreeHost.FreeHost_Product_Email set FreeHost.FreeHost_Product_Email.endtime=FreeHost.FreeHost_Product_host.endtime from FreeHost.FreeHost_Product_host where FreeHost.FreeHost_Product_Email.byhost=FreeHost.FreeHost_Product_host.id" conn.Execute Sql Sql="update FreeHost.FreeHost_Product_Email set FreeHost.FreeHost_Product_Email.endtime=FreeHost.FreeHost_Product_Domain.endtime from FreeHost.FreeHost_Product_Domain where FreeHost.FreeHost_Product_Email.bydomain=FreeHost.FreeHost_Product_Domain.id" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.85'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-2-22 20:00:00'" conn.Execute Sql End If 'if dsver("ver")<3.85 then 前面是3.84前 if dsver("ver")<3.86 then Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD beianupsaok bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set beianupsaok=0 where beianupsaok is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD beianusecode bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set beianusecode=0 where beianusecode is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.86'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-4-3 18:00:00'" conn.Execute Sql Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=32" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=32 ds("Domaintype")=".tel" ds("usermoney")=150 ds("usermoneyagn")=150 ds("usermoneyrepay")=150 ds("usermoneyagnrepay")=150 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".tel" response.write "
增中了 .tel 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close end if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=31" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=31 ds("Domaintype")=".me" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".me" response.write "
增中了 .me 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=21" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=21 ds("Domaintype")=".asia" ds("usermoney")=150 ds("usermoneyagn")=150 ds("usermoneyrepay")=150 ds("usermoneyagnrepay")=150 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".asia" response.write "
增中了 .asia 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close end If Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=70" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=70 ds("Domaintype")=".gov.cn" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".gov.cn" response.write "
增中了 .gov.cn 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close end If '新加类型后设置价格 Sql="UPDATE FreeHost.FreeHost_DomainProductlist set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10,year2agn=usermoneyagnrepay*2,year3agn=usermoneyagnrepay*3,year4agn=usermoneyagnrepay*4,year5agn=usermoneyagnrepay*5,year6agn=usermoneyagnrepay*6,year7agn=usermoneyagnrepay*7,year8agn=usermoneyagnrepay*8,year9agn=usermoneyagnrepay*9,year10agn=usermoneyagnrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist_AGN set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_user_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist_AGN] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyagnrepay2=usermoneyagnrepay,usermoneyagnrepay3=usermoneyagnrepay,usermoneyagnrepay4=usermoneyagnrepay,usermoneyagnrepay5=usermoneyagnrepay,usermoneyagnrepay6=usermoneyagnrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_user_price] set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql '--------------------- End If 'if dsver("ver")<3.86 if dsver("ver")<3.87 then Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD agnpubdomain varchar(100),apipubdomain varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.87'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-6-18 18:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canrecypool varchar(1) default 'n'"'1202 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canrecypool='n' where canrecypool is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD canrecypool varchar(1) default 'n',pausereason int default 0"'1222 conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set canrecypool='n', pausereason=0 where canrecypool is null" conn.Execute Sql End If 'if dsver("ver")<3.87 if dsver("ver")<3.88 then Sql="ALTER TABLE [FreeHost].[FreeHost_Fapiao] ADD titleID varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD canchnetver varchar(1) default 'n',notuserar varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set canchnetver='n',notuserar='n' where canchnetver is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD canchnetver varchar(1) default 'n',notuserar varchar(1) default 'n'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set canchnetver='n',notuserar='n' where canchnetver is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD notuserar text" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set notuserar='.rar,C:\WINDOWS\system32\inetsrv\asp.dll,4|.zip,C:\WINDOWS\system32\inetsrv\asp.dll,4|.rm,C:\WINDOWS\system32\inetsrv\asp.dll,4|.rmvb,C\WINDOWS\system32\inetsrv\asp.dll,4|.wma,C:\WINDOWS\system32\inetsrv\asp.dll,4|.wmv,C:\WINDOWS\system32\inetsrv\asp.dll,4|.mp3,C:\WINDOWS\system32\inetsrv\asp.dll,4|.mp4,C:\WINDOWS\system32\inetsrv\asp.dll,4|.mpeg,C:\WINDOWS\system32\inetsrv\asp.dll,4|.avi,C:\WINDOWS\system32\inetsrv\asp.dll,4|.exe,C:\WINDOWS\system32\inetsrv\asp.dll,4|.msi,C:\WINDOWS\system32\inetsrv\asp.dll,4|.iso,C:\WINDOWS\system32\inetsrv\asp.dll,4|' where notuserar is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD emailR varchar(50),truenameR varchar(50),prvR varchar(50),cityR varchar(50),addressR varchar(50),postidR varchar(10),peridR varchar(50),telR varchar(50),qqR varchar(100),faxR varchar(30),contactR varchar(20),mobiR varchar(20),havecheckR bit default 0,havechnR bit default 0,auadmR varchar(20),lastauRtime datetime" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_USER] set emailR=email,truenameR=truename,prvR=prv,cityR=city,addressR=address,postidR=postid,peridR=perid,telR=tel,qqR=qq,faxR=fax,contactR=contact,mobiR=mobi" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD havechnR bit default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD mustcheckid bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.88'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-9-25 18:00:00'" conn.Execute Sql End if if dsver("ver")<3.89 then Sql="sp_rename 'FreeHost.FreeHost_System_Info.beianusecode','OLDbeianusecode','COLUMN '" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD beianusecode int default -1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set beianusecode=OLDbeianusecode where beianusecode is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.89'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-10-23 9:00:00'" conn.Execute Sql End if if dsver("ver")<3.90 then Sql="ALTER TABLE [FreeHost].[FreeHost_ICPDB] ADD ICP_Who varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.90'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-12-7 18:00:00'" conn.Execute Sql End if if dsver("ver")<3.91 then Sql="ALTER TABLE [FreeHost].[FreeHost_ServerEmaillist] ADD openmustre bit default 0,autodelicp bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerEmaillist] set openmustre=0,autodelicp=0 where openmustre is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD beianrecheck int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set beianrecheck=0 where beianrecheck is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.91'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-12-28 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD api7 bit,api8 bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set api7=1,api8=1 where usercanselectapi is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD showapi7 bit default 1,showapi8 bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set showapi7=1,showapi8=1 where showapi7 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyAPI7 money,year2API7 money,year3API7 money,year4API7 money,year5API7 money,usermoneyagnAPI7 money,year2agnAPI7 money,year3agnAPI7 money,year4agnAPI7 money,year5agnAPI7 money,usermoneyAPI8 money,year2API8 money,year3API8 money,year4API8 money,year5API8 money,usermoneyagnAPI8 money,year2agnAPI8 money,year3agnAPI8 money,year4agnAPI8 money,year5agnAPI8 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist ADD usermoneyrepay7 money,usermoneyrepay8 money,usermoneyagnrepay7 money,usermoneyagnrepay8 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist] set usermoneyrepay7=usermoneyrepay,usermoneyrepay8=usermoneyrepay,usermoneyagnrepay7=usermoneyagnrepay,usermoneyagnrepay8=usermoneyagnrepay where usermoneyrepay7 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_DomainProductlist_AGN ADD usermoneyrepay7 money,usermoneyrepay8 money,usermoneyagnrepay7 money,usermoneyagnrepay8 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_DomainProductlist_AGN] set usermoneyrepay7=usermoneyrepay,usermoneyrepay8=usermoneyrepay,usermoneyagnrepay7=usermoneyagnrepay,usermoneyagnrepay8=usermoneyagnrepay where usermoneyrepay7 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD usermoneyAPI7 money,year2API7 money,year3API7 money,year4API7 money,year5API7 money,usermoneyAPI8 money,year2API8 money,year3API8 money,year4API8 money,year5API8 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD usermoneyAPI7 money,year2API7 money,year3API7 money,year4API7 money,year5API7 money,usermoneyAPI8 money,year2API8 money,year3API8 money,year4API8 money,year5API8 money" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_price ADD usermoneyrepay7 money,usermoneyrepay8 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_price] set usermoneyrepay7=usermoneyrepay,usermoneyrepay8=usermoneyrepay where usermoneyrepay7 is null" conn.Execute Sql Sql="ALTER TABLE FreeHost.FreeHost_Agent_user_price ADD usermoneyrepay7 money,usermoneyrepay8 money" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent_user_price] set usermoneyrepay7=usermoneyrepay,usermoneyrepay8=usermoneyrepay where usermoneyrepay7 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD Domain_Agent_username_7 varchar(24),Domain_Agent_password_7 varchar(24)" conn.Execute Sql response.write "
注意!这个版本增加了Enom域名接口,您在升级后必须马上到管理区,产品管理,域名中,再点一次提交域名价格,如果同时使用多个注册接口的用户,请马上设置Enom接口的价格." End if if dsver("ver")<3.96 then Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.92'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2009-12-30 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD usenetcnhost bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set usenetcnhost=0 where usenetcnhost is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_NetCN] ADD repaymoney money" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_NetCN] ADD emailstatus varchar(1),smsstatus varchar(1)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_NetCNProductlist] (id int primary key identity(1,1),productid varchar(100) unique,HosttypeORI varchar(100) unique,Hosttype varchar(100) unique,usermoney float default 9999,ServerlistID int,info text,infomore text,remindinfo text,cantest varchar(1),canmonth varchar(1),canhalfyear varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1),orderbyid int default 0,allowupdate varchar(1),ServerlistID2 int default 0,ServerlistID3 int default 0,ServerlistID4 int default 0,ServerlistID5 int default 0,typeid int default 0,canseason varchar(1),updatebytypeid varchar(1),PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50) default '1',PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5',onlyusebyagn varchar(100),ostype varchar(10) default 'windows',allowupdatetoother varchar(1),price0 money,price1 money,price2 money,price3 money,price4 money,price5 money,price6 money,price7 money,price8 money,price9 money,price10 money)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_NetCNProductlist_AGN] (id int,productid varchar(100),Hosttype varchar(100),usermoney float,ServerlistID int,info text,infomore text,agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD openispsystem bit,Beian_ver varchar(10),Beian_vertime datetime,ispID varchar(50),userName varchar(50),isppass varchar(50),SOAP_Url_QS varchar(100),SOAP_Url_UP varchar(100),AESIV varchar(50),AESKey varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.94'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2010-2-1 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmispbeian varchar(1)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ICPDB] ADD idimg image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD idimg1 image,idimg2 image" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.95'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2010-2-28 9:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD lastchecktime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD syntype bit default 0,synH int default 1,synM int default 1" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD useisp bit default 0" conn.Execute Sql End if if dsver("ver")<3.97 then Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.97'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2010-9-30 9:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_online_aws] ADD ip varchar(50),admuser varchar(50),admpass varchar(50),ftpname varchar(50),url varchar(100),aboutimg image" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD pauseinfo text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD opencheckmobi bit default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD wantcheckmobiok bit default 1,checkmobiok bit default 0,checkmobisend int default 0" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD wantcheckmobiok bit default 1,checkmobiok bit default 0,checkmobisend int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Agent] set wantcheckmobiok=1,checkmobiok=0,checkmobisend=0 where checkmobiok is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_USER] set wantcheckmobiok=1,checkmobiok=0,checkmobisend=0 where checkmobiok is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD api7select int default 0" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_online_aws] ADD aboutimg2 image,aboutimg3 image,aboutimg4 image,aboutimg5 image,aboutimg6 image,aboutimg7 image,aboutimg8 image,aboutimg9 image,aboutimg10 image" conn.Execute Sql Sql="sp_rename 'FreeHost.FreeHost_online_aws.aboutimg','aboutimg1','COLUMN'" conn.Execute Sql End if if dsver("ver")<3.99 then Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.99'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-3-15 18:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canmoneyNew varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canmoneyNew='y' where superuser='freehost' and canmoneyA='y'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD CurPoolName varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_online_aws] ADD firstposttime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serverlist] ADD aspx4 text" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set aspx4='.ad,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.adprototype,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.asax,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ascx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ashx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.asmx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.aspx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.axd,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.browser,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.cd,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.compiled,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.config,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.cs,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.csproj,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.dd,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.exclude,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.java,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.jsl,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldb,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldd,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.lddprototype,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.ldf,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.licx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.master,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.mdb,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.mdf,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.msgx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.refresh,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.rem,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.resources,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.resx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sd,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sdm,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sdmDocument,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.sitemap,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.skin,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.soap,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.vb,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vbproj,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vjsproj,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.vsdisco,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1,GET,HEAD,POST,DEBUG|.webinfo,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5,GET,HEAD,POST,DEBUG|.php,C:\PHP\php5isapi.dll,5,GET,HEAD,POST,TRACE|.xamlx,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1|.aspq,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|.cshtm,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|.cshtml,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|.vbhtm,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|.vbhtml,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|.svc,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1|.xoml,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,1|.rules,c:\windows\microsoft.net\framework\v4.0.30319\aspnet_isapi.dll,5|' where aspx4 is null" conn.Execute Sql Sql="update [FreeHost].[FreeHost_Product_Host] set AppPoolnum=(Select AppPoolnum from FreeHost.FreeHost_HostProductlist where Hosttype=[FreeHost].[FreeHost_Product_Host].Hosttype) where AppPoolnum is null and hosttype<>'子目录绑定'" conn.Execute Sql End If 'if dsver("ver")<3.994 then if dsver("ver")<4.1 then Sql="Create index acn on [FreeHost].[FreeHost_Product_Host](CurPoolName)" conn.Execute Sql Sql="Create index acnb on [FreeHost].[FreeHost_Product_Host](AppPoolnum)" conn.Execute Sql Sql="Create index acnc on [FreeHost].[FreeHost_Product_Host](serverlistid)" conn.Execute Sql Sql="Create index acnd on [FreeHost].[FreeHost_Product_Host](hosttype)" conn.Execute Sql Sql="Create index acne on [FreeHost].[FreeHost_Product_Host](serverlistid,hosttype,CurPoolName)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD api7select int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Domain] set api7select=0 where api7select is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='3.994'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-4-22 11:00:00'" conn.Execute Sql 'End If if dsver("ver")<4.000 then '服务器列表: Sql="Create table [FreeHost].[FreeHost_ServerCDNlist] (id int primary key identity(1,1),servername varchar(25) unique,site varchar(100),ip varchar(50),FreeHostsharekey varchar(50),netby varchar(20),orderbyid int default 0,cachemgrHead text,cachemgr text,mimeHead text,mime text,squidHead text,squid text,squid_radius_authHead text,squid_radius_auth text,hostsHead text,hosts text,cdntype varchar(50),logpath varchar(50),cname varchar(50),openmustre bit default 0,autodelicp bit default 0,useisp bit default 0)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD isONEip bit default 0,usecdn1 int default 0,usecdn2 int default 0,usecdn3 int default 0,usecdn4 int default 0,usecdn5 int default 0,port int default 80" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Serverlist] ADD port int default 80,isuseCDN bit default 0,usecdn1 int default 0,usecdn2 int default 0,usecdn3 int default 0,usecdn4 int default 0,usecdn5 int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serverlist] set port=80,isuseCDN=0 where port is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] add hostname varchar(6000),allowdomain int default 10,CDNMB1 int default 0,CDNMB2 int default 0,CDNMB3 int default 0,CDNMB4 int default 0,CDNMB5 int default 0,CDNMB6 int default 0,CDNMB7 int default 0,CDNMB8 int default 0,CDNMB9 int default 0,CDNMB10 int default 0,CDNMB11 int default 0,CDNMB12 int default 0,CDNMB13 int default 0,CDNMB14 int default 0,CDNMB15 int default 0,CDNMB16 int default 0,CDNMB17 int default 0,CDNMB18 int default 0,CDNMB19 int default 0,CDNMB20 int default 0,CDNMB21 int default 0,CDNMB22 int default 0,CDNMB23 int default 0,CDNMB24 int default 0,CDNMB25 int default 0,CDNMB26 int default 0,CDNMB27 int default 0,CDNMB28 int default 0,CDNMB29 int default 0,CDNMB30 int default 0,CDNMB31 int default 0,CDNMBthismonth int default 0,CDNMBlastmonth int default 0,CDNMaxMb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set allowdomain=10,CDNMB1=0,CDNMB2=0,CDNMB3=0,CDNMB4=0,CDNMB5=0,CDNMB6=0,CDNMB7=0,CDNMB8=0,CDNMB9=0,CDNMB10=0,CDNMB11=0,CDNMB12=0,CDNMB13=0,CDNMB14=0,CDNMB15=0,CDNMB16=0,CDNMB17=0,CDNMB18=0,CDNMB19=0,CDNMB20=0,CDNMB21=0,CDNMB22=0,CDNMB23=0,CDNMB24=0,CDNMB25=0,CDNMB26=0,CDNMB27=0,CDNMB28=0,CDNMB29=0,CDNMB30=0,CDNMB31=0,CDNMBthismonth=0,CDNMBlastmonth=0,CDNMaxMb=0 where allowdomain is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] add allowdomain int default 10,CDNMaxMb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set allowdomain=10,CDNMaxMb=0 where allowdomain is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD useportserver int default 0" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_ServerPORTlist] (id int primary key identity(1,1),servername varchar(25) unique,site varchar(100),ip varchar(50),FreeHostsharekey varchar(50),netby varchar(20),orderbyid int default 0,portperip int default 10)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS_IP] ADD portstart int default 0,portend int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS_IP] set portstart=0,portend=0 where portstart is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] add lastlogtime datetime,serverbyteMB int" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_CDN_analog] (id int primary key identity(1,1),ServerlistID int,CDNdomain varchar(255),CDNdomainbyteMB int,vpsname varchar(50),ftpname varchar(50),username varchar(14),lastlogtime datetime)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_HOST] add CDNMB1 int default 0,CDNMB2 int default 0,CDNMB3 int default 0,CDNMB4 int default 0,CDNMB5 int default 0,CDNMB6 int default 0,CDNMB7 int default 0,CDNMB8 int default 0,CDNMB9 int default 0,CDNMB10 int default 0,CDNMB11 int default 0,CDNMB12 int default 0,CDNMB13 int default 0,CDNMB14 int default 0,CDNMB15 int default 0,CDNMB16 int default 0,CDNMB17 int default 0,CDNMB18 int default 0,CDNMB19 int default 0,CDNMB20 int default 0,CDNMB21 int default 0,CDNMB22 int default 0,CDNMB23 int default 0,CDNMB24 int default 0,CDNMB25 int default 0,CDNMB26 int default 0,CDNMB27 int default 0,CDNMB28 int default 0,CDNMB29 int default 0,CDNMB30 int default 0,CDNMB31 int default 0,CDNMBthismonth int default 0,CDNMBlastmonth int default 0,CDNMaxMb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_HOST] set CDNMB1=0,CDNMB2=0,CDNMB3=0,CDNMB4=0,CDNMB5=0,CDNMB6=0,CDNMB7=0,CDNMB8=0,CDNMB9=0,CDNMB10=0,CDNMB11=0,CDNMB12=0,CDNMB13=0,CDNMB14=0,CDNMB15=0,CDNMB16=0,CDNMB17=0,CDNMB18=0,CDNMB19=0,CDNMB20=0,CDNMB21=0,CDNMB22=0,CDNMB23=0,CDNMB24=0,CDNMB25=0,CDNMB26=0,CDNMB27=0,CDNMB28=0,CDNMB29=0,CDNMB30=0,CDNMB31=0,CDNMBthismonth=0,CDNMBlastmonth=0,CDNMaxMb=0 where CDNMBthismonth is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_HostProductlist] add CDNMaxMb int default 0,candowncdnlog bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set CDNMaxMb=0,candowncdnlog=1 where CDNMaxMb is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.000'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-6-17 12:00:00'" conn.Execute Sql End if 'Sql="drop table [FreeHost].[FreeHost_ServerBindlist]" ' conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_ServerBindlist] (id int primary key identity(1,1),servername varchar(25) unique,site varchar(100),ip varchar(50),FreeHostsharekey varchar(50),domain varchar(50),nsname varchar(50),aname varchar(50) default 'cdn',typeid int default 0)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] add Bindserverid1 int default 0,Bindserverid2 int default 0,Bindserverid3 int default 0,IpAry text default ''" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerCDNlist] set Bindserverid1=0,Bindserverid2=0,Bindserverid3=0,IpAry='' where Bindserverid1 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] add lastchangetime datetime" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_CDN] (id int primary key identity(1,1),username varchar(14),CDNtype varchar(100),starttime datetime,endtime datetime,Ftpname varchar(14),Ftppassword varchar(14),hostname varchar(4000),status varchar(50),istest varchar(1),corewhat varchar(200),emailstatus varchar(1),agent1 varchar(14),agent2 varchar(14),statusinfo varchar(50),orderbyid int, beianstatus varchar(14),allowdomain int default 1,repaymoney money,pausebyagn varchar(1) default 'n',msstatus varchar(1),alldomainok bit default 0,pausereason int default 0,pauseinfo text,CDNMB1 int default 0,CDNMB2 int default 0,CDNMB3 int default 0,CDNMB4 int default 0,CDNMB5 int default 0,CDNMB6 int default 0,CDNMB7 int default 0,CDNMB8 int default 0,CDNMB9 int default 0,CDNMB10 int default 0,CDNMB11 int default 0,CDNMB12 int default 0,CDNMB13 int default 0,CDNMB14 int default 0,CDNMB15 int default 0,CDNMB16 int default 0,CDNMB17 int default 0,CDNMB18 int default 0,CDNMB19 int default 0,CDNMB20 int default 0,CDNMB21 int default 0,CDNMB22 int default 0,CDNMB23 int default 0,CDNMB24 int default 0,CDNMB25 int default 0,CDNMB26 int default 0,CDNMB27 int default 0,CDNMB28 int default 0,CDNMB29 int default 0,CDNMB30 int default 0,CDNMB31 int default 0,CDNMBthismonth int default 0,CDNMBlastmonth int default 0,CDNMaxMb int default 0,Bindserverid1 int default 0,Bindserverid2 int default 0,kefu varchar(20),realmoney money,smsstatus varchar(1))" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_CDNProductlist] (id int primary key identity(1,1),CDNtype varchar(100) unique,usermoney float,info text,infomore text,cantest varchar(1),canmonth varchar(1),canhalfyear varchar(1),agent1 varchar(14),agent2 varchar(14),canbyenduser varchar(1),canbyagnenduser varchar(1),canbyagn varchar(1),orderbyid int default 0,allowupdate varchar(1),allowupdatetoother varchar(1),typeid int default 0,updatebytypeid varchar(1),PAY_Month varchar(50) default '0.084',PAY_Season varchar(50) default '0.25',PAY_halfyear varchar(50) default '0.5',PAY_Nextyear varchar(50),PAY_2year varchar(50) default '2',PAY_3year varchar(50) default '3',PAY_4year varchar(50) default '4',PAY_5year varchar(50) default '5',onlyusebyagn varchar(100),canseason varchar(1),CDNMaxMb int,allowdomain int default 1,Bindserverid1 int default 0,Bindserverid2 int default 0)" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_CDNProductlist_AGN] (id int,CDNtype varchar(100),usermoney float,info text,infomore text,html varchar(1),agent1 varchar(14),agent2 varchar(14))" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Admuser] ADD canadmCDN varchar(1),canadmCDNadd varchar(1),canadmCDNaddtest varchar(1),canadmCDNset varchar(1),canadmCDNch varchar(1),canadmCDNmidcpu varchar(1),canadmCDNmidrepay varchar(1),canadmCDNdel varchar(1),canadmCDNoth varchar(1)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set canadmCDN='y',canadmCDNadd='y',canadmCDNaddtest='y',canadmCDNset='y',canadmCDNch='y',canadmCDNmidcpu='y',canadmCDNmidrepay='y',canadmCDNdel='y',canadmCDNoth='y' where superuser='freehost'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsvpsopen bit default 0,smsvpstimeout bit default 0,smsvpsopencon text,smsvpstimeoutcon text,smscdnopen bit default 0,smscdntimeout bit default 0,smscdnopencon text,smscdntimeoutcon text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailvpsopen text,emailvpsend text,emailcdnopen text,emailcdnend text,emailidcopen text,emailidcend text" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_CDN_analog] add cdnname varchar(14)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.001'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-6-23 18:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS_IP] ADD ipbyid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS_IP] set ipbyid=0 where ipbyid is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] add lastSYNtime datetime" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerBindlist] add ttl int default 3600" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerBindlist] set ttl=3600 where ttl is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD fastlogin int default 0,user_id varchar(32),real_name varchar(50),token varchar(50)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_USER] set fastlogin=0 where fastlogin is null"'0为正常用户,1为支付宝,2为QQ conn.Execute Sql Sql="Create index alipay on [FreeHost].[FreeHost_USER](user_id)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD fastlogin_usealipay bit default 0,fastlogin_useqq bit default 0,fastlogin_useqq_appid varchar(50),fastlogin_useqq_appkey varchar(50)" conn.Execute Sql End if if dsver("ver")<4.22 then Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] ADD StartRam int default 0" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD StartRam int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set StartRam=0 where StartRam is null;UPDATE [FreeHost].[FreeHost_Product_VPS] set StartRam=0 where StartRam is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.21'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-9-29 9:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] ADD iserr bit default 0,backupCDNid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerCDNlist] set iserr=0,backupCDNid=0 where iserr is null" Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] ADD syntime int default 10;" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerCDNlist] set syntime=10 where syntime is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.21'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2011-10-28 9:00:00'" conn.Execute Sql End If if dsver("ver")<4.25 then Sql="ALTER TABLE [FreeHost].[FreeHost_Product_CDN] ALTER COLUMN hostname varchar(6000)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerCDNlist] ADD nettype varchar(10) default '不分类'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerCDNlist] set nettype='不分类' where nettype is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.23'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2012-2-21 18:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_USER] ADD haveblock bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Agent] ADD haveblock bit" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Serversqllist] ADD MySQLver varchar(10) default '5.5',MSSQLver varchar(10) default '2008'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Serversqllist] set MySQLver='5.1',MSSQLver='2000' where MySQLver is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD lastbackuptime datetime" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD OStype varchar(32) default 'Windows 2008R2'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set OStype='Windows 2008R2' where OStype is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] ADD Minmbps8 int default 1,Maxmbps8 int default 2" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set Minmbps8=1,Maxmbps8=2 where Maxmbps8 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD Minmbps8 int default 1,Maxmbps8 int default 2" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set Minmbps8=1,Maxmbps8=2 where Minmbps8 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD vpscantest bit default 0,vpscantestST int default 0,vpscantestEN int default 23,QQ_CALLBACK_URL varchar(200)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set vpscantest=0,vpscantestST=0,vpscantestEN=23 where vpscantestST is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsau bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set smsau=0 where smsau is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD emailmustone bit,mobimustone bit" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set emailmustone=0,mobimustone=0 where emailmustone is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD osname5 varchar(100),osfile5 varchar(100),osname6 varchar(100),osfile6 varchar(100),osname7 varchar(100),osfile7 varchar(100),osname8 varchar(100),osfile8 varchar(100)" conn.Execute Sql Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=27" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=27 ds("Domaintype")=".us" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".us" response.write "
增中了 .us 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=71" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=71 ds("Domaintype")=".co" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".co" response.write "
增中了 .co 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=72" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=72 ds("Domaintype")=".cm" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".cm" response.write "
增中了 .co 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=52" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=52 ds("Domaintype")=".la" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".la" response.write "
增中了 .la 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=73" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=73 ds("Domaintype")=".im" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".im" response.write "
增中了 .im 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=24" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=24 ds("Domaintype")=".in" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".in" response.write "
增中了 .in 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Sql="UPDATE FreeHost.FreeHost_DomainProductlist set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10,year2agn=usermoneyagnrepay*2,year3agn=usermoneyagnrepay*3,year4agn=usermoneyagnrepay*4,year5agn=usermoneyagnrepay*5,year6agn=usermoneyagnrepay*6,year7agn=usermoneyagnrepay*7,year8agn=usermoneyagnrepay*8,year9agn=usermoneyagnrepay*9,year10agn=usermoneyagnrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist_AGN set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_user_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyrepay7=usermoneyrepay,usermoneyagnrepay2=usermoneyrepay,usermoneyagnrepay3=usermoneyrepay,usermoneyagnrepay4=usermoneyrepay,usermoneyagnrepay5=usermoneyrepay,usermoneyagnrepay6=usermoneyrepay,usermoneyagnrepay7=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.25'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2012-5-18 18:00:00'" conn.Execute Sql End If if dsver("ver")<4.26 then Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsBy bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set smsBy=0 where smsBy is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set OStype='Windows Server 2012' where OStype='Windows Server 8'" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_Agent_price set prtype='云服务器产品' where prtype='VPS产品'" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_Agent_user_price set prtype='云服务器产品' where prtype='VPS产品'" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_VPSProductlist set VPStype=REPLACE(VPStype,'VPS','云服务器')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_VPSProductlist_AGN set VPStype=REPLACE(VPStype,'VPS','云服务器')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_Product_VPS set VPStype=REPLACE(VPStype,'VPS','云服务器')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_moneylog set corewhat=REPLACE(corewhat,'VPS产品','云服务器产品')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_moneylog set corewhat=REPLACE(corewhat,'VPS名','云服务器名')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_moneylog set forwhat=REPLACE(forwhat,'VPS产品','云服务器产品')" conn.Execute Sql Sql="UPDATE [FreeHost].FreeHost_moneylog set forwhat=REPLACE(forwhat,'VPS名','云服务器名')" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.26'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2012-8-20 17:00:00'" conn.Execute Sql End If if dsver("ver")<4.262 then Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.261'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2012-9-1 17:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_CDN] ADD byHOSTid int default 0,byVPSid int default 0,byIDCid int default 0,byOtherid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_CDN] set byHOSTid=0,byVPSid=0,byIDCid=0,byOtherid=0 where byHOSTid is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_HostProductlist] add CDNpdID int default 0" conn.Execute Sql End If if dsver("ver")<4.33 then Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.32'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2013-6-28 9:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD osname9 varchar(100),osfile9 varchar(100),osname10 varchar(100),osfile10 varchar(100),osname11 varchar(100),osfile11 varchar(100),osname12 varchar(100),osfile12 varchar(100),osname13 varchar(100),osfile13 varchar(100),osname14 varchar(100),osfile14 varchar(100),osname15 varchar(100),osfile15 varchar(100),osname16 varchar(100),osfile16 varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_NetCN] ALTER COLUMN volume varchar(50)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD vhdtype varchar(10)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set vhdtype='vhd' where vhdtype is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD CPUMHZ int default 2800" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set CPUMHZ=2800 where CPUMHZ is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD HourMB0 int default 0,HourMB1 int default 0,HourMB2 int default 0,HourMB3 int default 0,HourMB4 int default 0,HourMB5 int default 0,HourMB6 int default 0,HourMB7 int default 0,HourMB8 int default 0,HourMB9 int default 0,HourMB10 int default 0,HourMB11 int default 0,HourMB12 int default 0,HourMB13 int default 0,HourMB14 int default 0,HourMB15 int default 0,HourMB16 int default 0,HourMB17 int default 0,HourMB18 int default 0,HourMB19 int default 0,HourMB20 int default 0,HourMB21 int default 0,HourMB22 int default 0,HourMB23 int default 0,TodayMB int default 0,LastDayMb int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set HourMB0=0,HourMB1=0,HourMB2=0,HourMB3=0,HourMB4=0,HourMB5=0,HourMB6=0,HourMB7=0,HourMB8=0,HourMB9=0,HourMB10=0,HourMB11=0,HourMB12=0,HourMB13=0,HourMB14=0,HourMB15=0,HourMB16=0,HourMB17=0,HourMB18=0,HourMB19=0,HourMB20=0,HourMB21=0,HourMB22=0,HourMB23=0,TodayMB=0,LastDayMb=0 where HourMB0 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD HourMBin0 int default 0,HourMBin1 int default 0,HourMBin2 int default 0,HourMBin3 int default 0,HourMBin4 int default 0,HourMBin5 int default 0,HourMBin6 int default 0,HourMBin7 int default 0,HourMBin8 int default 0,HourMBin9 int default 0,HourMBin10 int default 0,HourMBin11 int default 0,HourMBin12 int default 0,HourMBin13 int default 0,HourMBin14 int default 0,HourMBin15 int default 0,HourMBin16 int default 0,HourMBin17 int default 0,HourMBin18 int default 0,HourMBin19 int default 0,HourMBin20 int default 0,HourMBin21 int default 0,HourMBin22 int default 0,HourMBin23 int default 0,TodayMBin int default 0,LastDayMbin int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set HourMBin0=0,HourMBin1=0,HourMBin2=0,HourMBin3=0,HourMBin4=0,HourMBin5=0,HourMBin6=0,HourMBin7=0,HourMBin8=0,HourMBin9=0,HourMBin10=0,HourMBin11=0,HourMBin12=0,HourMBin13=0,HourMBin14=0,HourMBin15=0,HourMBin16=0,HourMBin17=0,HourMBin18=0,HourMBin19=0,HourMBin20=0,HourMBin21=0,HourMBin22=0,HourMBin23=0,TodayMBin=0,LastDayMbin=0 where HourMBin0 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD HourCpu0 int default 0,HourCpu1 int default 0,HourCpu2 int default 0,HourCpu3 int default 0,HourCpu4 int default 0,HourCpu5 int default 0,HourCpu6 int default 0,HourCpu7 int default 0,HourCpu8 int default 0,HourCpu9 int default 0,HourCpu10 int default 0,HourCpu11 int default 0,HourCpu12 int default 0,HourCpu13 int default 0,HourCpu14 int default 0,HourCpu15 int default 0,HourCpu16 int default 0,HourCpu17 int default 0,HourCpu18 int default 0,HourCpu19 int default 0,HourCpu20 int default 0,HourCpu21 int default 0,HourCpu22 int default 0,HourCpu23 int default 0,TodayCpu int default 0,LastDayCpu int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set HourCpu0=0,HourCpu1=0,HourCpu2=0,HourCpu3=0,HourCpu4=0,HourCpu5=0,HourCpu6=0,HourCpu7=0,HourCpu8=0,HourCpu9=0,HourCpu10=0,HourCpu11=0,HourCpu12=0,HourCpu13=0,HourCpu14=0,HourCpu15=0,HourCpu16=0,HourCpu17=0,HourCpu18=0,HourCpu19=0,HourCpu20=0,HourCpu21=0,HourCpu22=0,HourCpu23=0,TodayCpu=0,LastDayCpu=0 where HourCpu0 is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD fastlogin_autoreg bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set fastlogin_autoreg=1 where fastlogin_autoreg is null" conn.Execute Sql 'End If Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD VPScpdomain varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set VPScpdomain=ctldomain where VPScpdomain is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] add isagentpd bit default 0,VPSComName varchar(100),VPSApiName varchar(100),VPScpdomain varchar(100),Agnuserid varchar(100),Domain_Agent_nonemd5_6 varchar(100),Agnidc int default 0,Agnproductid int default 0,Agnattach varchar(100)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] add isagentpd bit default 0,VPSComName varchar(100),VPSApiName varchar(100),VPScpdomain varchar(100),Agnuserid varchar(100),Domain_Agent_nonemd5_6 varchar(100),Agnidc int default 0,Agnproductid int default 0,Agnattach varchar(100),AgnUpIP varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set isagentpd=0 where isagentpd is null;UPDATE [FreeHost].[FreeHost_Product_VPS] set isagentpd=0 where isagentpd is null" conn.Execute Sql End If if dsver("ver")<5.00 then 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.33'" ' conn.Execute Sql 'Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2013-10-16 9:00:00'" ' conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD SwitchName varchar(32) default 'FreeHostNet'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD HourIOPS0 int default 0,HourIOPS1 int default 0,HourIOPS2 int default 0,HourIOPS3 int default 0,HourIOPS4 int default 0,HourIOPS5 int default 0,HourIOPS6 int default 0,HourIOPS7 int default 0,HourIOPS8 int default 0,HourIOPS9 int default 0,HourIOPS10 int default 0,HourIOPS11 int default 0,HourIOPS12 int default 0,HourIOPS13 int default 0,HourIOPS14 int default 0,HourIOPS15 int default 0,HourIOPS16 int default 0,HourIOPS17 int default 0,HourIOPS18 int default 0,HourIOPS19 int default 0,HourIOPS20 int default 0,HourIOPS21 int default 0,HourIOPS22 int default 0,HourIOPS23 int default 0,TodayIOPS int default 0,LastDayIOPS int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set HourIOPS0=0,HourIOPS1=0,HourIOPS2=0,HourIOPS3=0,HourIOPS4=0,HourIOPS5=0,HourIOPS6=0,HourIOPS7=0,HourIOPS8=0,HourIOPS9=0,HourIOPS10=0,HourIOPS11=0,HourIOPS12=0,HourIOPS13=0,HourIOPS14=0,HourIOPS15=0,HourIOPS16=0,HourIOPS17=0,HourIOPS18=0,HourIOPS19=0,HourIOPS20=0,HourIOPS21=0,HourIOPS22=0,HourIOPS23=0,TodayIOPS=0,LastDayIOPS=0 where HourIOPS0 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_HostProductlist] add isagentpd bit default 0,HostComName varchar(100),HostApiName varchar(100),Hostcpdomain varchar(100),Agnuserid varchar(100),Domain_Agent_nonemd5_6 varchar(100),Agnidc int default 0,Agnproductid int default 0,Agnattach varchar(100)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_Host] add isagentpd bit default 0,HostComName varchar(100),HostApiName varchar(100),Hostcpdomain varchar(100),Agnuserid varchar(100),Domain_Agent_nonemd5_6 varchar(100),Agnidc int default 0,Agnproductid int default 0,Agnattach varchar(100),AgnUpIP varchar(100)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set isagentpd=0 where isagentpd is null;UPDATE [FreeHost].[FreeHost_Product_Host] set isagentpd=0 where isagentpd is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='4.34'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2013-12-6 23:00:00'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD IsCluster bit default 0,ClusterName varchar(50),ComputerName varchar(50)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] add MaxIOPS int default 0,cancloud bit default 0,OSLimbyRam int default 0,OSLimbyCPU int default 0,OSlim varchar(200),addCpuNum int default 1,addCpuCost int default 5,addCpuLim int default 16,addRamNum int default 10,addRamCost int default 5,addRamLim int default 8192,addVHDNum int default 1,addVHDCost int default 5,addVHDLim int default 2047,addMbpsNum int default 1,addMbpsCost int default 5,addMbpsLim int default 2047,addNGBNum int default 1,addNGBCost int default 5,addNGBLim int default 4069,addIPNum int default 1,addIPCost int default 5,addIPLim int default 10,addSNANum int default 1,addSNACost int default 5,addSNALim int default 5,addBakNum int default 1,addBakCost int default 5,addBakLim int default 5,addIopsNum int default 10,addIopsCost int default 5,addIopsLim int default 9999" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set MaxIOPS=0,cancloud=0,OSLimbyRam=0,OSLimbyCPU=0,OSlim='',addCpuNum=1,addCpuCost=5,addCpuLim=16,addRamNum=10,addRamCost=5,addRamLim=8192,addVHDNum=1,addVHDCost=5,addVHDLim=2047,addMbpsNum=1,addMbpsCost=5,addMbpsLim=1000,addNGBNum=1,addNGBCost=5,addNGBLim=4069,addIPNum=1,addIPCost=5,addIPLim=10,addSNANum=1,addSNACost=5,addSNALim=5,addBakNum=1,addBakCost=5,addBakLim=5,addIopsNum=10,addIopsCost=5,addIopsLim=9999 where cancloud is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] add MaxIOPS int default 0,cancloud bit default 0,OSLimbyRam int default 0,OSLimbyCPU int default 0,OSlim varchar(200) default '',addCpuNum int default 1,addCpuCost int default 5,addCpuLim int default 16,addRamNum int default 10,addRamCost int default 5,addRamLim int default 8192,addVHDNum int default 1,addVHDCost int default 5,addVHDLim int default 2047,addMbpsNum int default 1,addMbpsCost int default 5,addMbpsLim int default 1000,addNGBNum int default 1,addNGBCost int default 5,addNGBLim int default 4069,addIPNum int default 1,addIPCost int default 5,addIPLim int default 10,addSNANum int default 1,addSNACost int default 5,addSNALim int default 5,addBakNum int default 1,addBakCost int default 5,addBakLim int default 5,addIopsNum int default 10,addIopsCost int default 5,addIopsLim int default 9999,FirstOSid int default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxIOPS=0,cancloud=0,OSLimbyRam=0,OSLimbyCPU=0,OSlim ='',addCpuNum=1,addCpuCost=5,addCpuLim=16,addRamNum=10,addRamCost=5,addRamLim=8192,addVHDNum=1,addVHDCost=5,addVHDLim=2047,addMbpsNum=1,addMbpsCost=5,addMbpsLim=2047,addNGBNum=1,addNGBCost=5,addNGBLim=4069,addIPNum=1,addIPCost=5,addIPLim=10,addSNANum=1,addSNACost=5,addSNALim=5,addBakNum=1,addBakCost=5,addBakLim=5,addIopsNum=10,addIopsCost=5,addIopsLim=9999 where cancloud is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] add MaxSNA int default 1,MaxBak int default 1,MaxIP int default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set MaxSNA=1,MaxBak=1,MaxIP=1 where MaxSNA is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set MaxIOPS=0 where MaxIOPS is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] add MaxSNA int default 1,MaxBak int default 1,MaxIP int default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxSNA=1,MaxBak=1,MaxIP=1 where MaxSNA is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxIOPS=0 where MaxIOPS is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set FirstOSid=1 where FirstOSid is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set OSlim='' where OSlim is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD SOAP_Url_VM varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsByUserid varchar(32)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2014-3-11 9:00:00'" conn.Execute Sql End If if dsver("ver")<5.01 then Sql="UPDATE [FreeHost].[FreeHost_System_Info] set smsByUserid='123456' where smsByUserid is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_VPSProductlist] add MaxIOPS2 int default 0;" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set MaxIOPS2=0 where MaxIOPS2 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] add MaxIOPS2 int default 0;" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxIOPS2=0 where MaxIOPS2 is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD SwitchName2 varchar(32)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS_IP] ADD SwitchName int default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS_IP] set SwitchName=1 where SwitchName is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD MAC varchar(32),MAC2 varchar(32)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.01'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2014-8-14 9:00:00'" conn.Execute Sql End if if dsver("ver")<5.03 then Sql="ALTER TABLE [FreeHost].[FreeHost_Product_VPS] ALTER COLUMN AgnUpIP varchar(500)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD NetCardinfos varchar(500)" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2014-10-7 9:00:00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.03'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxSNA=1,MaxBak=1 where canbackupvhd='y' and MaxSNA=0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_VPS] set MaxSNA=0,MaxBak=0 where canbackupvhd='n' and MaxSNA=1" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD canSNAST int default 0,canSNAEN int default 7" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set canSNAST=0,canSNAEN=7 where canSNAST is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerVPSlist] ADD lastBAKtime datetime" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD SNAtime1 datetime,SNAtime2 datetime,SNAtime3 datetime,SNAtime4 datetime,SNAtime5 datetime,SNAtime6 datetime,SNAtime7 datetime,SNAtime8 datetime,SNAtime9 datetime,SNAtime10 datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_ServerVPSlist] ADD backupyes varchar(1) default 'n',backupday int default 2" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set backupyes='n',backupday=2 where backupyes is null" conn.Execute Sql End If if dsver("ver")<5.04 then Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD autodelvps bit default 0,autodeltestvpsnow bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set autodelvps=0,autodeltestvpsnow=0 where autodelvps is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD todeldayvps int default 30" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set todeldayvps=30 where todeldayvps is null" conn.Execute Sql Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=74" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=74 ds("Domaintype")=".wang" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".wang" response.write "
增中了 .wang 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=75" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=75 ds("Domaintype")=".top" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".top" response.write "
增中了 .top 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=76" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=76 ds("Domaintype")=".xyz" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".xyz" response.write "
增中了 .xyz 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_DomainProductlist where id=77" ds.Open Sql,conn,1,3 if ds.eof then ds.addnew ds("id")=77 ds("Domaintype")=".pw" ds("usermoney")=300 ds("usermoneyagn")=300 ds("usermoneyrepay")=300 ds("usermoneyagnrepay")=300 ds("checkapi")=2 ds("regapi")=2 ds("agent1")="n" ds("domstr")=".pw" response.write "
增中了 .pw 类型域名，请您升级后，马上在管理区---产品管理---域名注册中定义此域名的各种价格。如果您设置了不同API有不同的注册价,您也需要对每个api的价格都设置好并提交确认.
" ds.update ds.close End if Sql="UPDATE FreeHost.FreeHost_DomainProductlist set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10,year2agn=usermoneyagnrepay*2,year3agn=usermoneyagnrepay*3,year4agn=usermoneyagnrepay*4,year5agn=usermoneyagnrepay*5,year6agn=usermoneyagnrepay*6,year7agn=usermoneyagnrepay*7,year8agn=usermoneyagnrepay*8,year9agn=usermoneyagnrepay*9,year10agn=usermoneyagnrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist_AGN set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_Agent_user_price set year2=usermoneyrepay*2,year3=usermoneyrepay*3,year4=usermoneyrepay*4,year5=usermoneyrepay*5,year6=usermoneyrepay*6,year7=usermoneyrepay*7,year8=usermoneyrepay*8,year9=usermoneyrepay*9,year10=usermoneyrepay*10 where year2 is null" conn.Execute Sql Sql="UPDATE FreeHost.FreeHost_DomainProductlist set usermoneyrepay2=usermoneyrepay,usermoneyrepay3=usermoneyrepay,usermoneyrepay4=usermoneyrepay,usermoneyrepay5=usermoneyrepay,usermoneyrepay6=usermoneyrepay,usermoneyrepay7=usermoneyrepay,usermoneyagnrepay2=usermoneyrepay,usermoneyagnrepay3=usermoneyrepay,usermoneyagnrepay4=usermoneyrepay,usermoneyagnrepay5=usermoneyrepay,usermoneyagnrepay6=usermoneyrepay,usermoneyagnrepay7=usermoneyrepay where usermoneyrepay2 is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.04'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2014-11-14 9:00:00'" conn.Execute Sql End If if dsver("ver")<5.05 Or request("upnetcn")="yes" Then Sql="ALTER table [FreeHost].[FreeHost_NetCNProductlist] add idc varchar(200)" conn.Execute Sql response.write "
更新万网主机类型.
" conn.Execute "delete [FreeHost].[FreeHost_NetCNProductlist]" nethost="host_x2_cloud,虚拟主机渠道版,青岛机房"&vbcrlf&_ "host_x6_cloud,虚拟主机基础版,青岛机房"&vbcrlf&_ "host_x8_cloud,虚拟主机高级版,青岛机房"&vbcrlf&_ "qy_eco,轻云服务器经济版"&vbcrlf&_ "qy_elt,轻云服务器菁英版"&vbcrlf&_ "qy_cla,轻云服务器经典版"&vbcrlf&_ "qy_pow,轻云服务器全能版"&vbcrlf&_ "qy_ult,轻云服务器尊享版"&vbcrlf&_ "host_g_cloud,G享主机-G1（云）,青岛机房"&vbcrlf&_ "host_g1_cloud,G享主机-G5型（云）,青岛机房"&vbcrlf&_ "l_1_cloud,L享主机-L1（云）,青岛机房"&vbcrlf&_ "l_5_cloud,L享主机-L5（云）,青岛机房"&vbcrlf&_ "m1_s_cloud,M享主机-M1-S（云）,青岛机房"&vbcrlf&_ "host_2_cloud,M享主机-M2（云）,青岛机房"&vbcrlf&_ "host_m2_cloud,M享主机-M2-S（云）,青岛机房"&vbcrlf&_ "host_m3_cloud,M享主机-M3(云),青岛机房"&vbcrlf&_ "host_m5_cloud,M享主机-M5（云）,青岛机房"&vbcrlf&_ "host_x3_cloud,X享主机-X3（云）,青岛机房"&vbcrlf&_ "host_x5_cloud,X享主机-X5（云）,青岛机房" netcnary=Split(nethost,vbcrlf) For i=0 To UBound(netcnary) netcnaryType=Split(netcnary(i),",") netcnstrT=netcnaryType(0) netcnstrN=netcnaryType(1) idc="" If UBound(netcnaryType)=2 Then idc=netcnaryType(2) conn.Execute "if ((select count(*) from [FreeHost].[FreeHost_NetCNProductlist] where productid = '"&netcnstrT&"')=0) INSERT INTO [FreeHost].[FreeHost_NetCNProductlist] (productid,HosttypeORI,Hosttype,IDC) VALUES ('"&netcnstrT&"','"&netcnstrN&"','"&netcnstrN&"','"&IDC&"')" 'Response.write "if ((select count(*) from [FreeHost].[FreeHost_NetCNProductlist] where productid = '"&netcnstrT&"')=0) INSERT INTO [FreeHost].[FreeHost_NetCNProductlist] (productid,HosttypeORI,Hosttype,IDC) VALUES ('"&netcnstrT&"','"&netcnstrN&"','"&netcnstrN&"','"&IDC&"')" next conn.Execute "update [FreeHost].[FreeHost_NetCNProductlist] set canbyenduser='y',canbyagnenduser='y',canbyagn='y',price0=usermoney,price1=usermoney,price2=usermoney,price3=usermoney,price4=usermoney,price5=usermoney,price6=usermoney,price7=usermoney,price8=usermoney,price9=usermoney,price10=usermoney where price0 is null" End If if dsver("ver")<5.07 then Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD dns3 varchar(100),dns4 varchar(100),dns5 varchar(100),dns6 varchar(100)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD osnametype1 bit default 0,osnametype2 bit default 0,osnametype3 bit default 0,osnametype4 bit default 0,osnametype5 bit default 0,osnametype6 bit default 0,osnametype7 bit default 0,osnametype8 bit default 0,osnametype9 bit default 0,osnametype10 bit default 0,osnametype11 bit default 0,osnametype12 bit default 0,osnametype13 bit default 0,osnametype14 bit default 0,osnametype15 bit default 0,osnametype16 bit default 0,ISOname1 varchar(100),ISOdir1 varchar(100),ISOtype1 bit default 0,ISOname2 varchar(100),ISOdir2 varchar(100),ISOtype2 bit default 0,ISOname3 varchar(100),ISOdir3 varchar(100),ISOtype3 bit default 0,ISOname4 varchar(100),ISOdir4 varchar(100),ISOtype4 bit default 0,ISOname5 varchar(100),ISOdir5 varchar(100),ISOtype5 bit default 0,ISOname6 varchar(100),ISOdir6 varchar(100),ISOtype6 bit default 0,ISOname7 varchar(100),ISOdir7 varchar(100),ISOtype7 bit default 0,ISOname8 varchar(100),ISOdir8 varchar(100),ISOtype8 bit default 0,ISOname9 varchar(100),ISOdir9 varchar(100),ISOtype9 bit default 0,ISOname10 varchar(100),ISOdir10 varchar(100),ISOtype10 bit default 0,ISOname11 varchar(100),ISOdir11 varchar(100),ISOtype11 bit default 0,ISOname12 varchar(100),ISOdir12 varchar(100),ISOtype12 bit default 0,ISOname13 varchar(100),ISOdir13 varchar(100),ISOtype13 bit default 0,ISOname14 varchar(100),ISOdir14 varchar(100),ISOtype14 bit default 0,ISOname15 varchar(100),ISOdir15 varchar(100),ISOtype15 bit default 0,ISOname16 varchar(100),ISOdir16 varchar(100),ISOtype16 bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.07'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2015-5-21 18:00:00'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD canUseISO bit default 0,ISOlim varchar(200),canUseConsol bit default 0" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD canUseISO bit default 0,ISOlimclose bit default 0,GUID varchar(128),FirstIOSid int,canUseConsol bit default 0,consoleip varchar(16),consoletime datetime" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD Tooldir1 varchar(100),Tooldir2 varchar(100),Tooldir3 varchar(100),Tooldir4 varchar(100),Tooldir5 varchar(100),Tooldir6 varchar(100),Tooldir7 varchar(100),Tooldir8 varchar(100),Tooldir9 varchar(100),Tooldir10 varchar(100),ToolName1 varchar(100),ToolName2 varchar(100),ToolName3 varchar(100),ToolName4 varchar(100),ToolName5 varchar(100),ToolName6 varchar(100),ToolName7 varchar(100),ToolName8 varchar(100),ToolName9 varchar(100),ToolName10 varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD canUseTool bit default 0" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD canUseTool bit default 0,CDTooldirID int default 0,CDTooltime datetime" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_ALLDNS] ALTER COLUMN RRData varchar(255)"'3.0 conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS] ADD VLANid int default 0,ADSLname varchar(50),ADSLpass varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD canADSL bit default 0,VLANid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set canADSL=0,VLANid=0 where VLANid is null;UPDATE [FreeHost].[FreeHost_Product_VPS] set VLANid=0 where VLANid is null;" conn.Execute Sql Sql="Create table [FreeHost].[FreeHost_Product_VPS_ADSL] (id int identity(1,1),ServerlistID int default 0,VPSpdID int default 0,VPSID int default 0,ADSLname varchar(50),ADSLpass varchar(50),entertime datetime,endtime datetime,orderbyid int default 0)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Product_VPS_ADSL] ADD VLANid int default 0" conn.Execute Sql End If if dsver("ver")<5.07 then Sql="ALTER table [FreeHost].[FreeHost_ServerPORTlist] ADD cname varchar(100)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD VPStestHour int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set VPStestHour=0 where VPStestHour is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD canday varchar(1),canweek varchar(1),PAY_Day varchar(50) default '0.0028',PAY_WeeK varchar(50) default '0.0192'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set canday='n',canweek='n',PAY_Day='0.0028',PAY_WeeK='0.0192' where canday is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ADD smsidcopen bit default 0,smsidcopencon text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_IDCJG] ADD hardcon text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_IDCProductlist] ADD hardcon text" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD NetCardlimtype int default 0 " conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set NetCardlimtype=0 where NetCardlimtype is null;" Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2015-10-13 12:00:00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.09'" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_HostProductlist] ADD phpver varchar(10) default '5.2'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_HostProductlist] set phpver='5.2' where phpver is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Host] ADD phpver varchar(10) default '5.2'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Product_Host] set phpver='5.2' where phpver is null" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Serverlist] ADD canphpver bit default 1" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD osname17 varchar(100),osfile17 varchar(100),osnametype17 bit default 0,osname18 varchar(100),osfile18 varchar(100),osnametype18 bit default 0,osname19 varchar(100),osfile19 varchar(100),osnametype19 bit default 0,osname20 varchar(100),osfile20 varchar(100),osnametype20 bit default 0,osname21 varchar(100),osfile21 varchar(100),osnametype21 bit default 0,osname22 varchar(100),osfile22 varchar(100),osnametype22 bit default 0,osname23 varchar(100),osfile23 varchar(100),osnametype23 bit default 0,osname24 varchar(100),osfile24 varchar(100),osnametype24 bit default 0,osname25 varchar(100),osfile25 varchar(100),osnametype25 bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2016-12-5 12:00:00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.10'" conn.Execute Sql End If Sql="ALTER table [FreeHost].[FreeHost_ServerVPSlist] ADD Canselectnow bit default 1,typeid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_ServerVPSlist] set Canselectnow=1,typeid=0 where Canselectnow is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_VPSProductlist] ADD autoselect bit default 0,Servertypeid int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_VPSProductlist] set autoselect=0,Servertypeid=0 where autoselect is null;" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ALTER COLUMN Domain_Agent_username_6 varchar(50)" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_System_Info] ALTER COLUMN Domain_Agent_password_6 varchar(50)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_System_Info] ADD api6select int default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set api6select=0 where api6select is null" conn.Execute Sql Sql="ALTER TABLE [FreeHost].[FreeHost_Product_Domain] ADD realnameID varchar(100)" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_Admuser] ADD emailport int default 25,EnableSsl bit default 0;ALTER table [FreeHost].[FreeHost_Agent] ADD emailport int default 25,EnableSsl bit default 0" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set emailport=25,EnableSsl=0 where emailport is null;UPDATE [FreeHost].[FreeHost_Agent] set emailport=25,EnableSsl=0 where emailport is null" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2017-11-6 9:00:00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.12'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_System_Info] ADD ZM_use7i24 bit default 1,ZM_appId varchar(14) default '',ZM_zhimaPublicKey varchar(216) default '',ZM_privateKey varchar(848) default '',ZM_ReturnUrl varchar(128) default '';" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set ZM_use7i24=1 where ZM_use7i24 is null;UPDATE [FreeHost].[FreeHost_System_Info] set ZM_appId='' where ZM_appId is null;UPDATE [FreeHost].[FreeHost_System_Info] set ZM_zhimaPublicKey='' where ZM_zhimaPublicKey is null;UPDATE [FreeHost].[FreeHost_System_Info] set ZM_privateKey='' where ZM_privateKey is null;UPDATE [FreeHost].[FreeHost_System_Info] set ZM_ReturnUrl='' where ZM_ReturnUrl is null;" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set vertime='2017-11-23 12:00:00'" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_Admuser] set ver='5.13'" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_USER] ADD ZM_state varchar(14),ZM_startTime datetime,ZM_endTime datetime,ZM_truename varchar(50),ZM_perid varchar(50),ZM_TransactionId varchar(64),ZM_Bizno varchar(32),ZM_use7i24 bit default 1" conn.Execute Sql Sql="ALTER table [FreeHost].[FreeHost_System_Info] ADD ZM_Use bit default 0,ZM_LoginInmustpass bit default 0,ZM_LoginInRedirect bit default 1" conn.Execute Sql Sql="UPDATE [FreeHost].[FreeHost_System_Info] set ZM_Use=0,ZM_LoginInmustpass=0,ZM_LoginInRedirect=1 where ZM_Use is null;" conn.Execute Sql %>
<% Set dsver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Admuser where superuser='freehost'" dsver.Open Sql,conn,1,1 %> 现在版本：<%=dsver("ver")%> 版本 数据结构时间：<%=dsver("vertime")%>
数据结构更新成功!