📄 update.asp
字号:
<!--
'========================================================================================
' 文 件 名: updata.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 通用数据库升级文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
-->
<%@ LANGUAGE=VBScript codepage ="936" %>
<!-- #include file="inc/setup.asp" -->
<%
Response.Buffer=true
Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl ="No-Cache"
Set conn = Server.CreateObject("ADODB.Connection")
'conn.connectiontimeout=20
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
on error resume next
if Request.Form("up")=1 then
sql="alter table lfmessb add encrypt int default 0"
conn.execute(sql)
sql="alter table lfmessb add silentlywords int default 0"
conn.execute(sql)
sql="Update lfmessb Set encrypt=0 where isnull(encrypt)"
conn.execute(sql)
sql="Update lfmessb Set silentlywords=0 where isnull(silentlywords)"
conn.execute(sql)
conn.close
set conn=nothing
set rs=nothing
Response.Write "<script Language=Javascript>alert('恭喜：已经成功地将数据库从V1.70版架构升级到V1.78版架构。您已经可以体验到新版本给您带来的新的应用体验。');window.close();</script>"
elseif Request.Form("up")=2 then
sql="alter table lfmessb add face varchar(50) default 0"
conn.execute(sql)
sql="Update lfmessb Set face='1.jpg' where isnull(face)"
conn.execute(sql)
conn.close
set conn=nothing
set rs=nothing
Response.Write "<script Language=Javascript>alert('恭喜：已经成功地将数据库从V1.50版架构升级到V1.70版架构。您已经可以体验到新版本的无穷魅力了。');window.close();</script>"
elseif Request.Form("up")=3 then
sql="alter table lfmessb add re varchar(255) default 0"
conn.execute(sql)
sql="Update lfmessb Set re='0' where isnull(re)"
conn.execute(sql)
conn.close
set conn=nothing
set rs=nothing
Response.Write "<script Language=Javascript>alert('恭喜：已经成功地将数据库从V1.00版架构升级到V1.50版架构。您已经可以体验到新版本的无穷魅力了。');window.close();</script>"
else
%><title>自由岭峰行业专用留言系统--全系列主数据库升级程序</title>
<body bgcolor="#CCCCCC">
<form name="up" method="post" action="update.asp">
<p>
<label>
自由岭峰行业专用留言系统--全系列数据库升级程序<br>
<br>
本升级程序支持自由岭峰全系列的留言系统的数据库升级到当前最新的版本。
<br>
<br>
<input name="up" type="radio" value="1" checked>
1.70版架构（适用于 1.70 版本到 1.77 版本） ==> 1.78版架构主数据库升级程序</label>
<br>
<label>
<input type="radio" name="up" value="2">
1.50版架构（适用于 1.50 版本到 1.61 版 本） ==> 1.70版架构主数据库升级程序</label>
（适用于 1.70 版本到 1.77 版本） <br>
<label>
<input type="radio" name="RadioGroup1" value="3">
</label>
1.00版架构（适用于 1.0 版本到 1.42 版本） ==> 1.50版架构主数据库升级程序（适用于 1.50 版本到 1.61 版 本）</p>
<p> <br>
<br>
<br>
升级注意事项：<br>
</p>
<ol>
<li>首先确认您当前正在使用的留言的版本。</li>
<li>依照从低版本到高版本的升级原则，依次完成数据库升级。</li>
<li>升级完毕数据库并且配合与数据库版本一致的程序才能正常使用。仅仅升级数据库而不升级留言系统程序，系统是不能正常启动的。</li>
</ol>
<p><br>
<input name="qdsj" type="submit" id="qdsj" value=" 启 动 升 级 ">
</p>
</form>
<p>
<%end if%>
<br>
© 2001-2006 自由岭峰网络 制作发布</p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -