完整asp資料庫代碼（access,mssql)

set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("/www.111cn.net/data.mdb")
conn.open connstr
%>

<%

response.buffer = true

const msxmlversion=".3.0"
const cookiename = "netpic"

dim conn,connstr,datafile
startime = timer()

'可修改設定一：========================定義資料庫類別，1為sql資料庫，0為access資料庫=============================
const issqldatabase = 0
'================================================================================================================
if issqldatabase = 1 then
 '必修改設定二：========================sql資料庫設定=============================================================
 'sql資料庫連接參數：串連名(sqllocalname)（本地用local，外地用ip）、使用者名稱(sqlusername)、使用者密碼(sqlpassword)、資料庫名(sqldatabasename)
 const sqllocalname = "(local)"
 const sqlusername = "sa"
 const sqlpassword = "001225"
 const sqldatabasename = "photo"
 '================================================================================================================
 datestring = array("getdate()","yyyy","m","d","hh","n","s","'")
 
 connstr = "driver={sql server};uid=" & sqlusername & ";pwd=" & sqlpassword & ";database=" & sqldatabasename & ";server=" & sqllocalname & ";"
else
 '必修改設定三：========================access資料庫設定==========================================================
 datafile = server.mappath("data/#photo.mdb")
 '================================================================================================================
 datestring = array("now()","'yyyy'","'m'","'d'","'h'","'n'","'s'","#")
 
 connstr = "provider = microsoft.jet.oledb.4.0;data source = " & datafile
end if

'on error resume next
set conn = server.createobject("adodb.connection")
conn.open connstr
if err then
 err.clear
 set conn = nothing
 response.write "資料庫連接出錯，請檢查串連字串。"
 response.end
end if
 
function checked(value1,value2)
 checked = " value="&chr(34)&value2&chr(34)
 if lcase(value1&"")=lcase(value2&"") then checked = checked & " checked"
end function

function selected(value1,value2)
 selected = " value="&chr(34)&value2&chr(34)
 if lcase(value1&"")=lcase(value2&"") then selected = selected & " selected"
end function
%>