?? updateto12.asp
字號:
<!--#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>升級完畢...."
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -