|
|
<%@language="vbscript" codepage="936"%>
<%response.buffer=true%>
<%
issqldatabase=0 ' dìng yì shù jù kù lèi bié, 0 wéi access shù jù kù, 1 wéi sql shù jù kù
ifissqldatabase=0then
'''''''''''''''''''''''''access shù jù kù ''''''''''''''''''''
datapath="include/"' shù jù kù mù lù de xiāng duì lù jìng
datafile="data.mdb"' shù jù kù de wén jiàn míng
connstr="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath(datapath&datafile)&""
sqlnowstring="now()"
sqlchar="'"
'''''''''''''''''''''''''''''''''
else
''''''''''''''''sql shù jù kù ''''''''''''''''''''
sqllocalname="(local)"' lián jiē ip[ běn dì yòng (local) wài dì yòng ip]
sqlusername="sa"' yòng hù míng
sqlpassword="1"' yòng hù mì mǎ
sqldatabasename="mydbname"' shù jù kù míng
connstr="provider=sqloledb;userid="&sqlusername&";password="&sqlpassword&";initialcatalog="&sqldatabasename&";datasource="&sqllocalname&";"
sqlnowstring="getdate()"
'''''''''''''''''''''''''''''''''''''
endif
onerrorresumenext
setconn=server.createobject("adodb.connection")
conn.openconnstr
iferrthen
err.clear
setconn=nothing
response.write" shù jù kù lián jiē chū cuò, qǐng jiǎn chá lián jiē zì chuàn。 "
response.end
endif
onerrorgoto0
%> |
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Response.Buffer=True%>
<%
IsSqlDataBase=0 ' dìng yì shù jù kù lèi bié, 0 wéi Access shù jù kù, 1 wéi SQL shù jù kù
IfIsSqlDataBase=0Then
'''''''''''''''''''''''''Access shù jù kù ''''''''''''''''''''
datapath="include/"' shù jù kù mù lù de xiāng duì lù jìng
datafile="data.mdb"' shù jù kù de wén jiàn míng
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.mapPath(datapath&datafile)&""
SqlNowString="Now()"
SqlChar="'"
'''''''''''''''''''''''''''''''''
Else
''''''''''''''''SQL shù jù kù ''''''''''''''''''''
SqlLocalName="(local)"' lián jiē IP[ běn dì yòng (local) wài dì yòng IP]
SqlUsername="sa"' yòng hù míng
SqlPassword="1"' yòng hù mì mǎ
SqlDatabaseName="MyDBname"' shù jù kù míng
ConnStr="Provider=Sqloledb;UserID="&SqlUsername&";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";DataSource="&SqlLocalName&";"
SqlNowString="GetDate()"
'''''''''''''''''''''''''''''''''''''
EndIf
OnErrorResumeNext
Setconn=Server.CreateObject("ADODB.Connection")
conn.openConnStr
IfErrThen
err.Clear
SetConn=Nothing
Response.Write" shù jù kù lián jiē chū cuò, qǐng jiǎn chá lián jiē zì chuàn。 "
Response.End
EndIf
OnErrorGoTo0
%> |