www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/editor_UPDATE.asp
<!--#INCLUDE FILE="opendb.asp" --> <!--#INCLUDE FILE="md5.asp" --> <% on error resume next conn.execute(exec) exec="alter table guest add jinghua bit null default 0" 'update 1.1 exec="alter table option1 add background varchar(200) null" conn.execute(exec) exec="alter table option1 add bannerImg varchar(200) null" conn.execute(exec) exec="alter table option1 add bannerImgLink varchar(200) null" conn.execute(exec) exec="alter table option1 add lytitle varchar(200) null" conn.execute(exec) 'update 1.2 exec="alter table guest add qq varchar(20) null" conn.execute(exec) exec="alter table register add qq varchar(20) null" conn.execute(exec) exec="alter table reply add qq varchar(20) null" conn.execute(exec) exec="alter table option1 add webname varchar(255) null" conn.execute(exec) exec="alter table option1 add weblink varchar(255) null" conn.execute(exec) 'update 1.3 exec="alter table guest add jinghua bit null default 0" conn.execute(exec) exec="alter table option1 add muiedit bit null default 0" conn.execute(exec) exec="alter table option1 add uploadsize integer" conn.execute(exec) exec="alter table option1 add uploadtype varchar(255) null" conn.execute(exec) exec="update option1 set muiedit=1,uploadsize=100,uploadtype='rar|zip|gif|jpg|swf|mid|mp3'" conn.execute(exec) exec="alter table option1 add second1 integer" conn.execute(exec) exec="alter table guest add lastname varchar(30) null" conn.execute(exec) exec="alter table guest add jinghua bit null default 0" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open "Select * from register",conn,3,3 if len(rs("password1"))<>16 then do while not rs.eof rs("password1")=md5(rs("password1")) rs.update rs.movenext loop end if rs.close Set rs=Server.CreateObject("ADODB.RecordSet") Set rs1=Server.CreateObject("ADODB.RecordSet") rs.open "Select * from guest",conn,3,3 do while not rs.eof rs1.open "Select * from reply where id="&rs("id")&" order by id1 desc",conn,1,1 if rs1.eof then rs("lastname")="——" else rs("lastname")=rs1("replyname") rs.update rs1.close rs.movenext loop rs.close response.write "升级完毕!" conn.close set conn=nothing %>