是VBScript 或者 JavaScript 脚本,用在ASP程序中,数据库是ACCESS
下面是一个书上的例子,没用。存入数据库的数据居然是[[]和[{-}]还有&-(
Function adjust_sql(adj_str)
dim final_str,i
final_str=""
if len(adj_str)>0 then
For i=1 to len(adj_str)
select Case Mid(adj_str,i,1)
case "[":
final_str=final_str &
"[[]"
case "|":
final_str=final_str &
"[{-}]"
case "'":
final_str=final_str &
"&-("
case else
final_str=final_str &
Mid(adj_str,i,1)
end select
next
end if
adjust_sql=final_str
end Function