updatebank1.asp

功能强大的一个b/s工作站

<!--#include file="connbank.asp"-->
<%
'bank update
Server.ScriptTimeOut=9999999
dim rs,sql

select case request("action")
case "update1"
	call update1()
case else
	call main()
end select

sub main()
%>
<b><font color=red>银行插件 升级程序</font></b><br>
<br>
<b><font color=navy>升级说明</font></b><br>
	<ui>
		<li>本升级程序只适合[我来了]提供的银行插件的升级
		<li>其他版本的银行插件的不一定能够正常升级
		<li>升级好银行数据库之后用新版银行文件覆盖即可使用		
	</ui>
<br><br>
<b><font color=navy>注意事项</font></b><br> 
	<ui> 
		<li>升级前请先备份银行数据库
		<li>如果是全新安装银行插件，则无须升级数据库，直接用新版中提供的数据库就可以
	</ui>
<br><br>	
<B>操作步骤</B>：<BR><BR>    
本升级只需一步个步骤    
<br>
<FORM METHOD=POST ACTION="?action=update1">
<B>第一步</B>：<input type=submit name=submit value="开始更新数据库结构"><br>
<p>更新银行数据库结构，正常1秒钟之内完成升级  </p>
<%
end sub

'更新表结构
sub update1()
'=================================================
	'更新fuwu表
	conn1.execute("alter table fuwu add [delmail] int default 0")
	conn1.execute("alter table fuwu add [fuwu_setting] varchar(50)")
	conn1.execute("update fuwu set delmail=10,fuwu_setting='1,1,1,1,1,1,1,1'")
	
	'更新bankconfig表
	conn1.execute("alter table bankconfig add [state] Tinyint default 0") 
	conn1.execute("alter table bankconfig add [bank_setting] varchar(50)")
	conn1.execute("alter table bankconfig add [log_setting] varchar(50)")
	conn1.execute("alter table [bankconfig] add [StartLixiDay] int default 10")
	conn1.execute("update bankconfig set StartLixiDay=10,state=1,bank_setting='1,1,1,1,1.5,0,0,0||24',log_setting='1,1,0,0,1,1000,0'")

	'更新bank表
	conn1.execute("alter table bank add [bankuser_setting] varchar(50)")
	conn1.execute("update bank set bankuser_setting='0,1.5,30'")	
	
	'新建立log表
	sql="CREATE TABLE Log (ID int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"&_
			"class varchar(50) null,"&_
			"UserName varchar(50),"&_
			"UserID int default 0,"&_
			"Title varchar(250) NULL,"&_
			"content varchar(250) NULL,"&_
			"DateAndTime datetime default Now(),"&_		
			"IP varchar(50) NULL)"
	conn1.execute(sql)
'=================================================
	response.write "升级银行数据库结构成功"
end sub
%>