📄 updatefix.asp
字号:
<!--#include file="CONN.Access.ASP"-->
<%
Response.Buffer = false
DIM SQL,rs,ados,i,j '数据库string,记录对象,Stream对象,通用循环变量
'on error resume next
'if err.number<>0 then
' response.write "<font color=#ff0000><b>出错:"&Err.Description&"<br>请确定数据库文件"&Server.MapPath(DBMDB)&"是否存在</b></font>"
' err.clear
' response.end
'end if
'on error goto 0
dim rs1
set rs1=Server.CreateObject("ADODB.RecordSet")
set rs=Server.CreateObject("ADODB.RecordSet")
dim iCodeVer
'aaa
'response.end
SUB aaa() '生成SQL句串的SUB dim Str
rs.open "Select * from [Groups] order by GroupID",CONN,0,1
while Not rs.eof
Str= ("CONN.execute(""insert into [Groups] (")
for i=0 to rs.fields.count-1
if rs.fields(i).name<>"GroupID" then
Str=Str&(rs.fields(i).name)
if i<rs.fields.count-1 then Str=Str&","
end if
next
Str=Str&(") values (")
for i=0 to rs.fields.count-1
if rs.fields(i).name<>"GroupID" then
if rs.fields(i).type=202 then
Str=Str&("'"&rs.fields(i).value&"'")
else
Str=Str&(rs.fields(i).value)
end if
if i<rs.fields.count-1 then Str=Str&","
end if
next
rs.movenext
Str=Str&(")"")<br>")
Str=replace(Str,"False","0")
response.write Str
wend
rs.close
End SUB
%>
<!--#include file="inc/md5fix.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>方舟网免费主页申请程序3.0升级程序</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="WWW.PaintBlue.COM">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<body bgCOLOR=dddddd text="#000000" leftmargin="0" rightmargin="0" topmargin="0" bottommargin="20">
<%'--\\
' dim ipcount
' ipcount=0
' rs1.open "select count(ip1) from [address]",CONN,0,1
' if not isNull(rs1(0)) then
' ipcount=rs1(0)
' end if
' rs1.close
dim action
action=replace(request.queryString("action"),",","")
dim updateVer,database_Ver,subVer
updateVer=1502
iCodeVer=1.5
subVer="b2"
on error resume next
SQL = "select database_Ver from [config]"
rs1.open SQL,CONN,0,1
if err.number<>0 then
database_Ver=1000
else
database_Ver=rs1(0)
end if
if err.number<>0 then err.clear
rs1.Close
on error goto 0
dim database_Ver1
database_Ver1=database_Ver
'---//
Select CASE action
CASE "updateDataBase"
call updateDataBase()
call updateMain()
CASE else
call updateMain()
End select
SUB updateMain()
if updateVer<=database_Ver then '----------------1
response.write("<br><center><b><font color=#0033aa>你的当前数据库 "&database_Ver&" 已经是最新或更高版本,不用再执行本程序升级</font></b><br><br><b><a href='index.asp'><u><font color=#0000ff>进 入</font></u></a></b></center>")
else '------------------1
%><table style="table-layout:fixed;" width="95%" align=center bOrder="0" cellspacing="1" cellpadding="3" bgcolor="#dddddd">
<tr><td bOrdercolor=#ffffff>
<hr size=1>
数据库版本：<font color="#003399"><b><%=database_Ver%></b></font><br>
欲升级版本：<font color="#003399"><b><%=updateVer%></b></font><br>
<tr><td>
<!-- 3.压缩数据库 --><br>请注意先备份数据库,并最好下载到本地升级,由于数据库jet驱动的差别<br>如果压缩后使用出现问题,最好"不压缩数据库升级后"用Access2000来压缩
<FORM METHOD=POST action="?action=updateDataBase">
<INPUT TYPE="submit" name="compit" value="执行升级to<%=iCodeVer&subVer&"("&updateVer&")"%>" style="width:200;" class=btz><br><br>
</FORM>
</td></tr></table>
<%
end if '----------------1
End SUB
SUB updateDataBase()
'-------------------------------
if updateVer<=database_Ver then exit SUB
response.write "<br><span id=exeStr1><br><center>.............<img src=""pic/upstats.gif"" align=absmiddle>正在升级库结构............请等待直到出现成功提示..</center>"
response.write "<br><center>请不要刷新~~~~~~~~~~~</center></span>"
dim compit
compit=request.Form("compit")
select CASE database_Ver
case 1000
call V1000_V1502()
call Compactsys()
case 1500
call V1500_V1502()
call Compactsys()
case else
end select
response.write("<br><center><b><font color=#00aa00>PaintBlue CooSel 数 据 库 从 "&database_Ver1&"版 升 级 到 "&updateVer&"版 完 成。---->> </font></b></center>")
End SUB
SUB V1000_V1502()
'创建用户组表
CONN.execute("Create table [Groups]")
CONN.execute("alter table [Groups] add column [GroupID] autoincrement CONSTRAINT PK_GroupID PRIMARY KEY")
'CONN.execute("ALTER TABLE [Groups] ALTER COLUMN [GroupID] INTEGER CONSTRAINT PK_GroupID PRIMARY KEY")
CONN.execute("alter table [Groups] add column [GroupName] varchar(50) not null")
CONN.execute("alter table [Groups] add column [GroupReadme] varchar(255) Default """" not null")
CONN.execute("alter table [Groups] add column [GroupSet] varchar(255) Default ""000000000,000000000,000000000"" not null")
CONN.execute("alter table [Groups] add column [GroupQuota] Integer Default 0")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('管理员','Coosel系统管理级组', '111111111,111111111,111111111',-1)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('高级用户','高级用户组', '111111111,111111111,111111111',-1)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('中级用户','中级用户组', '111111111,111111111,111111111',-1)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('初级用户','初级用户组', '111111111,111111111,111111111',-1)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('上传用户','上传会员组', '111111111,111111111,111111111',10000)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('注册用户','注册用户组', '111111111,111111111,111111111',500000)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('500M用户','预留管理组1', '111111111,111111111,111111111',400000)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('300M用户','预留管理组2', '111111111,111111111,111111111',300000)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('200M用户','预留管理组3', '111111111,111111111,111111111',200000)")
CONN.execute("insert into [Groups] (GroupName,GroupReadme,GroupSet,GroupQuota) values ('100M用户','预留管理组4', '111111111,111111111,111111111',100000)")
'修改Config表
CONN.execute("alter table [Config] add column [database_ver] Integer Default 0")
CONN.execute("alter table [Config] add column [upload_Component] Integer Default 0")
CONN.execute("alter table [Config] add column [md5order] Integer Default 2323")
CONN.execute("alter table [Config] add column [selected] Integer Default 0")
CONN.execute("alter table [Config] add column [CopyRight] varchar(255) Default ""Create By CooSel V1.5b2"" ")
CONN.execute("alter table [Config] add column [reg_Quota] Integer Default 0")
CONN.execute("alter table [Config] add column [reg_GroupID] Integer Default 0")
CONN.execute("alter table [Config] add column [reg_sFlag] varchar(50) Default ""000000000,000000000,000000000"" ")
CONN.execute("alter table [Config] add column [reg_config] varchar(255) Default ""0|0|0|0|0|0|0|0|0|0|0"" ")
CONN.execute("alter table [Config] add column [reg_Active] Integer Default 0")
CONN.execute("alter table [Config] add column [CooSelTitle] varchar(255) Default ""CooSel WEB在线文件管理暨空间管理系统"" ")
CONN.execute("update [Config] set CooSelTitle='CooSel V1.5b2 WEB在线文件管理暨空间管理系统'")
CONN.execute("alter table [Config] add column [reg_SysEmail] varchar(255) Default ""|||"" ")
CONN.execute("update [Config] set reg_SysEmail='|||'")
CONN.execute("update [Config] set reg_Active=0")
CONN.execute("update [Config] set reg_config='0|0|0|0|0|0|0|0|0|0|0'")
CONN.execute("update [Config] set reg_Quota=0")
CONN.execute("update [Config] set reg_GroupID=6")
CONN.execute("update [Config] set reg_sFlag='000000000,000000000,000000000'")
CONN.execute("update [Config] set upload_Component=0")
CONN.execute("update [Config] set md5order=2323")
CONN.execute("alter table [Config] alter column [md5order] Integer default 2323")
rs.open "select top 1 selected from [Config] order by classid",CONN,1,3
rs("selected")=1
rs.update
rs.close
'修改用户表
CONN.execute("alter table [userlist] add column [Active] Integer Default 0")
CONN.execute("alter table [userlist] add column [ActivePort] varchar(32) Default ""0""")
CONN.execute("alter table [userlist] add column [GroupID] Integer Default 0")
CONN.execute("alter table [userlist] add column [UseQuota] varchar(255) Default 0")
CONN.execute("alter table [userlist] add column [useSize] varchar(255) Default 0")
'CONN.execute("alter table [userlist] add column [useSize] float4 Default 0")
CONN.execute("update [userlist] set Active=1")
CONN.execute("update [userlist] set ActivePort='0'")
CONN.execute("update [userlist] set GroupID=6 where MasterFlag=0")
CONN.execute("update [userlist] set GroupID=6 where MasterFlag=1")
CONN.execute("update [userlist] set GroupID=1 where MasterFlag=2")
CONN.execute("update [userlist] set UseQuota=0")
CONN.execute("update [userlist] set useSize=0")
CONN.execute("update [userlist] set UserPassword=UserPassword+UserPassword")
CONN.execute("alter table [userlist] alter column [userPath] text Default """"")
'修改Admin表
CONN.execute("update [Admin] set [Password]=[Password]+[Password]")
'修改用户表
CONN.execute("alter table [userlist] add column [Reg_Name] varchar(50) not null default=""""")
CONN.execute("update [userlist] set Reg_Name=UserName")
'添加扩展注册表
CONN.execute("Create table [Reginfo]")
CONN.execute("alter table [Reginfo] add column [UserID] Integer Default 0")
CONN.execute("alter table [Reginfo] add column [Reg_Name] varchar(50) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_Number] varchar(20) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_phone] varchar(20) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_moCall] varchar(20) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_OICQ] varchar(20) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_MSN] varchar(50) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_From] varchar(10) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_work] varchar(20) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_for] varchar(10) Default """"")
CONN.execute("alter table [Reginfo] add column [Reg_birthday] varchar(10) Default ""--""")
CONN.execute("alter table [Reginfo] add column [Reg_descript] text Default """"")
'允许0长度
dim cat
set cat=Server.CreateObject("ADOX.Catalog")
cat.ActiveConnection ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbmdb)
cat.Tables("reginfo").Columns("Reg_Name").Properties("Jet OLEDB:Allow Zero Length") = True
cat.Tables("reginfo").Columns("Reg_Number").Properties("Jet OLEDB:Allow Zero Length") = True
cat.Tables("reginfo").Columns("Reg_phone").Properties("Jet OLEDB:Allow Zero Length") = True
cat.Tables("reginfo").Columns("Reg_moCall").Properties("Jet OLEDB:Allow Zero Length") = True
cat.Tables("reginfo").Columns("Reg_OICQ").Properties("Jet OLEDB:Allow Zero Length") = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -