做為數據庫升級程序就寫了幾行SQL語句，僅實現了數據庫升級功能而已，功能很單一......（請大家見諒，多提意見！?。。┻@里特此貼出源碼做簡單解釋，供有此應用者共同研究。
程序代碼
<%@ LANGUAGE = VBScript CodePage = 936%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"<html xmlns="<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<TITLE>整站系統數據庫升級程序</TITLE>
</head>
<body>
<p> </p>
<div align="center">
<p>整站程序V0.12 To V0.13數據庫升級程序</p>
<hr width="500" />
<form name="form1" method="post" action="">
<p>數據庫文件名：<input type="text" name="filename" /></p>
<p><input type="submit" name="submit" value="開始更新數據庫" /></p>
</form>
<%
if request("filename")<>"" then
Dim update
update=request("filename")
call DT_updateDB(update)
End If
%>
</div>
</body>
</html>
<%
’數據庫連接函數
’Response.Buffer = false
Sub DT_updateDB(DT_DBname)
Dim ConnStr,Conn
ConnStr="PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DT_DBname)
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
response.write (update) & "數據庫打開成功?。。?
’創建數據表-用戶組表 這里tFriendSite是access的表名
Conn.execute("Create table [tFriendSite]")
’修改數據表-drop是減少字段 這里LinkType是access的字段名
CONN.execute("alter table [tFriendSite] drop column [LinkType]")
’修改數據表-add是增加字段 這里LinkType是access的字段名
CONN.execute("alter table [tFriendSite] add column [fLinkType] Integer Default 0")
response.Write ("<p>成功升級") &(update)&("數據庫?。。?lt;/p>")
conn.close
Set conn=Nothing
end sub
%>
如果數據庫內已有對應表或字段，IIS會提示錯誤
對于不熟悉asp和SQL語言的初學者，編寫你的數據庫升級程序時，只需更改對應的表名和字段名稱或根據你的升級情況增加對應SQL語句，即可實現數據庫自動升級。
新聞熱點
疑難解答
