有点奇怪的问题。。。
'SQL注入过滤
'--- 传入参数 ---
'ParaName:参数名称-字符型
'ParaType:参数类型-数字型(1表示以上参数是数字,0表示以上参数为字符)
Function ChkRequest(ParaName,ParaType)
Dim ParaValue
If ParaType=1 then
ParaValue=ParaName
If Not (ParaValue="") then
If not isNumeric(ParaValue) then
ParaValue=Cint(ParaValue)
End if
End if
Else
ParaValue=Trim(ParaName)
ParaValue=Replace(ParaValue,"'","''")
End if
ChkRequest=ParaValue
End function
我这个函数是包含在conn.asp这个数据库连接文件里面的,竟然提示我这样的错误,奇怪,在别的文件包含这个文件的时候又不出错,有朋友碰到过相同的问题吗?
Microsoft VBScript 编译器错误 错误 '800a03ea'
语法错误
C:\INETPUB\WWWROOT\FASHION\ENCENTER\../Include/Conn.asp,行6
Function ChkRequest(ParaName,ParaType)