jì shù > asp yǔ shù jù kù lián jiē



mùlù ·No. 1 ·No. 2 ·gèngduōjiéguǒ... No. 1 　　<%@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 　　%> No. 2 　　<%@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 　　%>