www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > 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
%>