conn.asp

来自「这是一个不错的ASP的翻页程序,和大家一起分享。」· ASP 代码 · 共 20 行

<%
function getconn() 
  dim conn,ifsql
  ifsql=1			'0 = sql server  1 = access server 
  set conn = server.CreateObject("ADODB.Connection") 
  if(ifsql=0) then
  	conn.Open "Provider=SQLOLEDB;Persist Security Info=True;User ID=xxx;password=xxx;Initial Catalog=xxx;Data Source=127.0.0.1"
  else				'Access Database
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath(dbstr&"Data/xg.asp") &";"
  end if

  set getconn=conn
end function

function getrs()    
  dim rs
  set rs=server.createobject("ADODB.recordset")
  set getrs=rs
end function
%>