'BlnFounderr = TRUE

Dim oConn,oRs,sSQL 'ADO objects

'Set oConn = Server.CreateObject ("ADODB.Connection")

' oConn.Open Application("connStr")

'事务定义区

'输出错误

If BlnFounderr = TRUE Then

mError()

End If

'Func,Proc定义区

Function DealInput(exp1)

dim exp2 'Filter input for invalid characters

exp2=Replace(exp1,"<","<")

exp2=Replace(exp2,">",">")

exp2=Replace(exp2,"'","''")

exp2=Replace(exp2,"&","&")

DealInput=exp2

End Function

Function CloseDatabase ' CloseDatabase

oConn.close

Set oConn = Nothing

End Function

sub mError()

'Response.Write sErrmsg&"please contact system administrator."

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write "" & vbCrLf

response.write " " & vbCrLf

response.write "" & vbCrLf

response.write " " & vbCrLf

response.write " " & vbCrLf

response.write "

" & vbCrLf

response.write "

" & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " " & vbCrLf response.write " 内部管理操作错误信息 产生错误的可能原因： " & vbCrLf response.write " 请您尽快与管理员联系，获得相应地的帮助。" & vbCrLf response.write sErrmsg & vbCrLf response.write " " & vbCrLf response.write " << 返回上一页" & vbCrLf response.write "

" & vbCrLf

response.write " " & vbCrLf

response.write " "

end sub

%>