conn.asp

栏目分别音乐、作品、日记、留言

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


Response.Buffer = True
Dim Startime,db
Dim SqlNowString,Conn
dim er
Const IsSqlDataBase = 0   '定义数据库类别，1为SQL数据库，0为Access数据库
Startime = Timer()
dim Rs

Sub ConnectionDatabase
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用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    '用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称
		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
%>