做為數據庫升級程序就寫了幾行SQL語句，僅實現了數據庫升級功能而已，功能很單一......（請大家見諒，多提意見！！！）這裡特此貼出源碼做簡單解釋，供有此應用者共同研究。
程序代碼
<%@ LANGUAGE = VBScript CodePage = 936%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHtml 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<Html XMLns="http://www.w3.org/1999/xhtml">
<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)&("數據庫！！！</p>")
conn.close
Set conn=Nothing
end sub
%>
如果數據庫內已有對應表或字段，IIS會提示錯誤
對於不熟悉ASP和SQL語言的初學者，編寫你的數據庫升級程序時，只需更改對應的表名和字段名稱或根據你的升級情況增加對應SQL語句，即可實現數據庫自動升級。
