as_conn.asp

来自「健康哈师大恺撒奖互动了看见爱好思路委屈戊二醛 问起我iuoeyioquweqwi」· ASP 代码 · 共 54 行

<%@ LANGUAGE = VBScript CodePage = 936%>
<%Server.ScriptTimeOut=5000%>
<%


Response.Buffer = True
Dim Startime,db
Dim SqlNowString,Conn
dim er
Startime = Timer()
dim Rs

Sub ConnectionDatabase
	Dim ConnStr
		Db = "data/Asai_Data.asa"
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "The Sever Is Busy,Please to try again..."
		Response.End
	End If
End Sub

Function GrateRs(SqlStr,wr)
	dim Rs
        Set Rs=Server.CreateObject("ADODB.Recordset")
	Rs.Open SqlStr, Conn, 1, wr
        set GrateRs=Rs
End Function

Function ReplStr(s)
	s=Replace(s,"'","’")
	s=Replace(s,"%","％")
	s=Replace(s,"&","＆")
	s=Replace(s,"<","&lt;")
	s=Replace(s,">","&gt;")
	s=replace(s,chr(13)+chr(10),"<br>")
	s=Replace(s," ","&nbsp;")
	ReplStr=s
End Function

Sub DBConnEnd()
	On Error Resume Next
	Rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing
End Sub
%>