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


Response.Buffer = True
Dim Startime,db
Dim SqlNowString,Conn
dim er
Const IsSqlDataBase = 0   '定義數(shù)據(jù)庫類別，1為SQL數(shù)據(jù)庫，0為Access數(shù)據(jù)庫
Startime = Timer()
dim Rs

Sub ConnectionDatabase
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		'sql數(shù)據(jù)庫連接參數(shù)：數(shù)據(jù)庫名、用戶密碼、用戶名、連接名（本地用local，外地用IP）
		Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
		SqlDatabaseName = "yuaner"
		SqlPassword = ""
		SqlUsername = "yuaner"
		SqlLocalName = "(local)"
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else    '用戶第一次使用請修改本處數(shù)據(jù)庫地址并相應(yīng)修改data目錄中數(shù)據(jù)庫名稱
		Db = "data/data.asp"
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	End If
	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
%>