conn.asp

Simple涂乌板2

<%@ codepage="936" %>
<% on error resume next %>
<%
Function SafeRequest(ParaName)
	Dim ParaValue
	ParaValue=Request(ParaName)
	If Not IsNumeric(ParaValue) Then
		ParaValue=replace(ParaValue,"'","''")
	End If
	SafeRequest=ParaValue
End function

Dim cnn
Function GetRS(mdbname,tbname,sql)
set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath(mdbname)
cnn.Open
set GetRS = Server.CreateObject("ADODB.Recordset")
GetRS.Open sql,cnn,1,3
End Function

mdbname="database\rename_me.mdb"
%>