<%
'//-------get con_str ---------//
con_str=open_con_str(".","sa","sa","Nanyi")
'//------- con_str maker ---------//
function open_con_str(ConServe,ConUser,ConPassWord,ConDatabase)
open_con_str = "Driver={SQL Server};Server=" & ConServe & ";UID=" & ConUser & ";PWD=" & ConPassWord & ";Database=" & ConDatabase & ""
end function
'//-------open connection ---------//
function oConn()
set oConn=server.CreateObject("ADODB.connection")
oConn.ConnectionString=con_str
oConn.CursorLocation=3
oConn.Open
end function
'//-------open RecordSet LockType 1---------//
Function oRd(sql_str)
Set oRd = Server.CreateObject("ADODB.Recordset")
oRd.ActiveConnection = con_str
oRd.Source = sql_str
oRd.CursorType = 0
oRd.CursorLocation = 2
oRd.LockType = 3
oRd.Open()
oRd_numRows = 0
End Function
'//-------open RecordSet LockType 3---------//
Function oRd3(sql_str)
Set oRd3 = Server.CreateObject("ADODB.Recordset")
oRd3.ActiveConnection = con_str
oRd3.Source = sql_str
oRd3.CursorType = 3
oRd3.CursorLocation = 2
oRd3.LockType = 3
oRd3.Open()
oRd3_numRows = 0
End Function
'//-------close RecordSet ---------//
function cRd(rdset)
rdset.close
set rdset=nothing
end function
'//-------open Command ---------//
function oCmd(sql_str)
set CmdConn=oConn()
Set oCmd=Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = CmdConn
oCmd.commandText=sql_str
end function
'//-------open Command to Rs---------//
function oCmdRd(sql_str)
set CmdConn=oConn()
Set oCommand=Server.CreateObject("ADODB.Command")
Set oCommand.ActiveConnection = CmdConn
oCommand.commandText=sql_str
Set oCmdRd=oCommand.Execute()
set CmdConn=nothing
end function
'//-------add Command Para---------//
function addCmdPara(Pcmd,pNmae,pType,pIO,pLength,pValue)
set CommandPara1=Pcmd.CreateParameter(pNmae,pType,pIO,pLength)
Pcmd.Parameters.Append CommandPara1
Pcmd(pNmae)=pValue
end function
%>