sub_change.asp

CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。

<%
Function strchange(data) 
data = lcase(Trim(data))

data = replace(data, "'", "＇")
data = replace(data, ";", "；")
data = replace(data, "*", "＊")
data = replace(data, "%", "％")
data = replace(data, " ", "　")
data = replace(data, "=", "＝")
data = replace(data, "+", "＋")
data = replace(data, "(", "（")
data = replace(data, ")", "）")
data = replace(data, ",", "，")
data = replace(data, "?", "？")
data = replace(data, "&", "＆")

data = replace(data, "{", "｛")
data = replace(data, "}", "｝")
data = replace(data, "^", "︿")
data = replace(data, "$", "＄")
data = replace(data, "#", "＃")
data = replace(data, "@", "＠")
data = replace(data, "!", "！")

'data = replace(data, """", "＂")
'data = replace(data, "<", "＜")
'data = replace(data, ">", "＞")
'data = replace(data, "[", "［")
'data = replace(data, "]", "］")

'data = replace(data, ":", "：")
'data = replace(data, "/", "／")
'data = replace(data, "\", "＼")
'data = replace(data, "|", "｜")
'data = replace(data, ".", "．")
'data = replace(data, "-", "－")
'data = replace(data, "_", "＿")

data=replace(data, "exec", "exeｃ")
data=replace(data, "insert", "ｉnsert")
data=replace(data, "select", "ｓelect")
data=replace(data, "delete", "ｄelete")
data=replace(data, "update", "ｕpdate")
data=replace(data, "count", "ｃount")
data=replace(data, "chr", "ｃhr")
data=replace(data, "mid", "ｍid")
data=replace(data, "master", "ｍaster")
data=replace(data, "truncate", "ｔruncate")
data=replace(data, "char", "ｃhar")
data=replace(data, "declare", "ｄeclare")
data= Replace(data, "join", "ｊoin")
data= Replace(data, "union", "ｕnion")
data= Replace(data, "where", "ｗhere")
data= Replace(data, "like", "ｌike")
data= Replace(data, "drop", "ｄrop")
data= Replace(data, "create", "ｃreate")
data= Replace(data, "modify", "ｍodify")
data= Replace(data, "rename", "ｒename")
data= Replace(data, "alter", "ａlter")
data= Replace(data, "cast", "ｃast")

data=replace(data, chr(13)&chr(10), "<br>")  

strchange = (data)
End Function

Function strgl(data) '过滤字符串
data = lcase(Trim(data))
data=replace(data, "exec", "exeｃ")
data=replace(data, "insert", "ｉnsert")
data=replace(data, "select", "ｓelect")
data=replace(data, "delete", "ｄelete")
data=replace(data, "update", "ｕpdate")
data=replace(data, "count", "ｃount")
data=replace(data, "chr", "ｃhr")
data=replace(data, "mid", "ｍid")
data=replace(data, "master", "ｍaster")
data=replace(data, "truncate", "ｔruncate")
data=replace(data, "char", "ｃhar")
data=replace(data, "declare", "ｄeclare")
data= Replace(data, "join", "ｊoin")
data= Replace(data, "union", "ｕnion")
data= Replace(data, "where", "ｗhere")
data= Replace(data, "like", "ｌike")
data= Replace(data, "drop", "ｄrop")
data= Replace(data, "create", "ｃreate")
data= Replace(data, "modify", "ｍodify")
data= Replace(data, "rename", "ｒename")
data= Replace(data, "alter", "ａlter")
data= Replace(data, "cast", "ｃast")

strgl = (data)
End Function


Function guolv(data)
dim gdata,i,gl
gl=""
gdata = split(siteguolv,"|")
For i=0 To Ubound(gdata)
  If Instr(LCase(data),gdata(i))<>0 Then
   gl=gl&"<u>"&gdata(i)&"</u> "
 End If
Next
guolv=gl
End Function
%>