<!--#include file="conn.asp" -->
<%
Rem -----------------------亞陽影視升級程序--------------------------------
Rem ------------此程序只適用升級數據庫1.1-1.2版本的升級--------------------
Rem ------------僅針對Access數據庫-----------------------------------------
Rem -----------------------------------------------------------------------

on error resume next
'//增加流水號

conn.execute("DROP TABLE [IP]")
	If Err Then
		Response.Write "刪除數據表[IP]失敗，" & err.description &"<br>"
		err.Clear
	Else
		Response.Write "刪除數據表[IP]成功<br>"
	End If
	Response.flush

SQL = "ALTER TABLE 財務報表 ADD 流水號 varchar(50)"
conn.Execute(SQL)
	If Err Then
		Response.Write "創建表字段[流水號]失敗," & err.description &"<br>"
		err.Clear
	Else
		Response.Write "創建字段[流水號]成功<br>"
	End If
	Response.flush
	
SQL = "ALTER TABLE 注冊信息 ADD 識別碼 varchar(50)"
conn.Execute(SQL)
	If Err Then
		Response.Write "創建表字段[識別碼]失敗," & err.description &"<br>"
		err.Clear
	Else
		Response.Write "創建字段[識別碼]成功<br>"
	End If
	Response.flush
	  
'//創建IP表
SQL = "CREATE TABLE IP(" & _
                 "ID AutoIncrement Not null," & _
		         "ip1 Double NOT NULL," & _
                 "ip2 Double NOT NULL," & _
                 "ip1_2 varchar(50) NOT NULL," & _
                 "ip2_2 varchar(50) NOT NULL," & _
                 "類型 varchar(50) NOT NULL," & _
                 "備注 varchar(50) NOT NULL)"
	Conn.ExeCute(SQL)
	If Err Then
		Response.Write "<br>創建表[IP]失敗：" & err.description
		err.Clear
	Else
		Response.Write "<br>創建表[IP]成功"
	End If
	
	conn.close
	set conn=nothing
	Response.Write "<br><br>升級完畢...."
%>