'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