ASP Data Connection Library code

This is I often use the ASP database connection code, take out of course not for what, just want to give beginners some help, because I remember the connection I have just a half-day time ah.

<%
Dim rs,conn//here affirms that it must be declared outside of a function or procedure, otherwise it will be invalid because of the global and private variables of the variable.

Sub db_connect ()//Establish a connection
Dpath = "Data\db1.mdb"
Set conn=server.createobject ("Adodb.connection")
Set Rs =server.createobject ("Adodb.recordset")
conn.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &server.mappath (Dpath)
Conn.Open
End Sub

Sub Closedb ()//close connection
If IsObject (Rs) Then
If not (Rs are nothing) then
Rs.close
Set rs=nothing
End If
End If
If IsObject (Conn) Then
If not (Conn are nothing) then
Conn.close
Set conn=nothing
End If
End If
End Sub

'*********************************************************

function Html_encode (HTML)//Here is the basic filter, which replaces the carriage return inside the textarea with a newline
Dim temp
Temp=replace (HTML, "<", "&lt;")
Temp=replace (temp, ">", "&gt;")
Temp=replace (temp, "'", "single quote")
Temp=replace (TEMP,CHR), "<br>"
Html_encode=replace (TEMP,CHR), "&nbsp;"
End Function

function encode_html (HTML)//This restores data just as opposed to the one above.

Dim temp
Temp=replace (HTML, "&lt;", "<")
Temp=replace (temp, "&gt;", ">")
Temp=replace (temp, "single quote", "'")
Temp=replace (TEMP,CHR), "<br>"
Encode_html=replace (TEMP,CHR), "&nbsp;"
End Function
%>

The original site reproduced please note: www.111cn.net