db.asp

来自「AspMaker调用的自定义包」· ASP 代码 · 共 72 行

<!--##session db##-->
<%
<!--## If PROJ.OptionExplicit Then ##-->
Dim xDb_Conn_Str
Dim xDb_Conn_Str_Ora_Blob
<!--## End If ##-->

xDb_Conn_Str = <!--##=dbConnStr##-->
<!--##
If Instr(Db.DBDBMSName,"Ora") > 0 Then
	If DB.DBConnStrOra <> "" Then 'DSN
##-->
' For Oracle database, use connection string to view BLOB field
xDb_Conn_Str_Ora_Blob = "<!--##=sConnStr##-->"
<!--##
		sConnStr = DB.DBConnStrOra
	Else ' Connection String
##-->
xDb_Conn_Str_Ora_Blob = xDb_Conn_Str
<!--##
	End If
End If
##-->

' Function to Adjust SQL
Function AdjustSql(str)
	Dim sWrk
	sWrk = Trim(str & "")
	sWrk = Replace(sWrk, "'", "''") ' Adjust for Single Quote
<!--## If Db.DBQuoteS = "[" Then ##-->
	sWrk = Replace(sWrk, "[", "[[]") ' Adjust for Open Square Bracket
<!--## End If ##-->
	AdjustSql = sWrk
End Function

' Function to Build SQL
Function ewBuildSql(sSelect, sWhere, sGroupBy, sHaving, sOrderBy, sFilter, sSort)

	Dim sSql, sDbWhere, sDbOrderBy

	sDbWhere = sWhere
	If sDbWhere <> "" Then
		sDbWhere = "(" & sDbWhere & ")"
	End If
	If sFilter <> "" Then
		If sDbWhere <> "" Then sDbWhere = sDbWhere & " AND "
		sDbWhere = sDbWhere & "(" & sFilter & ")"
	End If	
	sDbOrderBy = sOrderBy
	If sSort <> "" Then
		sDbOrderBy = sSort
	End If
	sSql = sSelect
	If sDbWhere <> "" Then
		sSql = sSql & " WHERE " & sDbWhere
	End If
	If sGroupBy <> "" Then
		sSql = sSql & " GROUP BY " & sGroupBy
	End If
	If sHaving <> "" Then
		sSql = sSql & " HAVING " & sHaving
	End If
	If sDbOrderBy <> "" Then
		sSql = sSql & " ORDER BY " & sDbOrderBy
	End If

	ewBuildSql = sSql

End Function
%>
<!--##/session##-->