shù > asp shù lián jiē
mùlù
No. 1
  <%@language="vbscript" codepage="936"%>
  <%response.buffer=true%>
  <%
  issqldatabase=0 ' dìng shù lèi bié, 0 wéi access shù , 1 wéi sql shù
  ifissqldatabase=0then
  '''''''''''''''''''''''''access shù ''''''''''''''''''''
  datapath="include/"' shù de xiāng duì jìng
  datafile="data.mdb"' shù 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ù ''''''''''''''''''''
  sqllocalname="(local)"' lián jiē ip[ běn yòng (local) wài yòng ip]
  sqlusername="sa"' yòng míng
  sqlpassword="1"' yòng
  sqldatabasename="mydbname"' shù 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ù lián jiē chū cuòqǐng jiǎn chá lián jiē chuàn。 "
  response.end
  endif
  onerrorgoto0
  %>
No. 2
  <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  <%Response.Buffer=True%>
  <%
  IsSqlDataBase=0 ' dìng shù lèi bié, 0 wéi Access shù , 1 wéi SQL shù
  IfIsSqlDataBase=0Then
  '''''''''''''''''''''''''Access shù ''''''''''''''''''''
  datapath="include/"' shù de xiāng duì jìng
  datafile="data.mdb"' shù 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ù ''''''''''''''''''''
  SqlLocalName="(local)"' lián jiē IP[ běn yòng (local) wài yòng IP]
  SqlUsername="sa"' yòng míng
  SqlPassword="1"' yòng
  SqlDatabaseName="MyDBname"' shù 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ù lián jiē chū cuòqǐng jiǎn chá lián jiē chuàn。 "
  Response.End
  EndIf
  OnErrorGoTo0
  %>