sqlstr.asp

学校智能办公系统 1、系统包含成绩学籍管理、公文管理、电子备课、教职工管理、照片管理、课件管理等学校办公的多个方面。 2、实行集中管理

<%
Function sqlstr(dat)
 If Isnull(dat) Then
  sqlstr = ""
  Exit Function 
 End If
 dat = Replace(dat,Chr(0),"", 1, -1, 1)
 dat = Replace(dat, """", "&quot;", 1, -1, 1)
 dat = Replace(dat,"<","&lt;", 1, -1, 1)
 dat = Replace(dat,">","&gt;", 1, -1, 1) 
 dat = Replace(dat, "script", "&#115;cript", 1, -1, 0)
 dat = Replace(dat, "SCRIPT", "&#083;CRIPT", 1, -1, 0)
 dat = Replace(dat, "Script", "&#083;cript", 1, -1, 0)
 dat = Replace(dat, "script", "&#083;cript", 1, -1, 1)
 dat = Replace(dat, "object", "&#111;bject", 1, -1, 0)
 dat = Replace(dat, "OBJECT", "&#079;BJECT", 1, -1, 0)
 dat = Replace(dat, "Object", "&#079;bject", 1, -1, 0)
 dat = Replace(dat, "object", "&#079;bject", 1, -1, 1)
 dat = Replace(dat, "applet", "&#097;pplet", 1, -1, 0)
 dat = Replace(dat, "APPLET", "&#065;PPLET", 1, -1, 0)
 dat = Replace(dat, "Applet", "&#065;pplet", 1, -1, 0)
 dat = Replace(dat, "applet", "&#065;pplet", 1, -1, 1)
 dat = Replace(dat, "[", "&#091;")
 dat = Replace(dat, "]", "&#093;")
 dat = Replace(dat, """", "", 1, -1, 1)
 dat = Replace(dat, "=", "&#061;", 1, -1, 1)
 dat = Replace(dat, "'", "''", 1, -1, 1)
 dat = Replace(dat, "select", "sel&#101;ct", 1, -1, 1)
 dat = Replace(dat, "execute", "&#101xecute", 1, -1, 1)
 dat = Replace(dat, "exec", "&#101xec", 1, -1, 1)
 dat = Replace(dat, "join", "jo&#105;n", 1, -1, 1)
 dat = Replace(dat, "union", "un&#105;on", 1, -1, 1)
 dat = Replace(dat, "where", "wh&#101;re", 1, -1, 1)
 dat = Replace(dat, "insert", "ins&#101;rt", 1, -1, 1)
 dat = Replace(dat, "delete", "del&#101;te", 1, -1, 1)
 dat = Replace(dat, "update", "up&#100;ate", 1, -1, 1)
 dat = Replace(dat, "like", "lik&#101;", 1, -1, 1)
 dat = Replace(dat, "drop", "dro&#112;", 1, -1, 1)
 dat = Replace(dat, "create", "cr&#101;ate", 1, -1, 1)
 dat = Replace(dat, "rename", "ren&#097;me", 1, -1, 1)
 dat = Replace(dat, "count", "co&#117;nt", 1, -1, 1)
 dat = Replace(dat, "chr", "c&#104;r", 1, -1, 1)
 dat = Replace(dat, "mid", "m&#105;d", 1, -1, 1)
 dat = Replace(dat, "truncate", "trunc&#097;te", 1, -1, 1)
 dat = Replace(dat, "nchar", "nch&#097;r", 1, -1, 1)
 dat = Replace(dat, "char", "ch&#097;r", 1, -1, 1)
 dat = Replace(dat, "alter", "alt&#101;r", 1, -1, 1)
 dat = Replace(dat, "cast", "ca&#115;t", 1, -1, 1)
 dat = Replace(dat, "exists", "e&#120;ists", 1, -1, 1)
 dat = Replace(dat,Chr(13),"<br>", 1, -1, 1)
 sqlstr=dat
End Function

Function unsqlstr(dat)
 If Isnull(dat) Then
  unsqlstr = ""
  Exit Function 
 End If
 dat = Replace(dat,Chr(0),"", 1, -1, 1)
 dat = Replace(dat,"&quot;", """", 1, -1, 1)
 dat = Replace(dat,"&lt;","<", 1, -1, 1)
 dat = Replace(dat,"&gt;",">", 1, -1, 1) 
 dat = Replace(dat,  "&#115;cript","script", 1, -1, 0)
 dat = Replace(dat, "&#083;CRIPT","SCRIPT",  1, -1, 0)
 dat = Replace(dat, "&#083;cript", "Script", 1, -1, 0)
 dat = Replace(dat,  "&#083;cript","script", 1, -1, 1)
 dat = Replace(dat, "&#111;bject", "object", 1, -1, 0)
 dat = Replace(dat,  "&#079;BJECT","OBJECT", 1, -1, 0)
 dat = Replace(dat,  "&#079;bject","Object", 1, -1, 0)
 dat = Replace(dat,  "&#079;bject","object", 1, -1, 1)
 dat = Replace(dat, "&#097;pplet", "applet", 1, -1, 0)
 dat = Replace(dat,  "&#065;PPLET","APPLET", 1, -1, 0)
 dat = Replace(dat,  "&#065;pplet","Applet", 1, -1, 0)
 dat = Replace(dat,  "&#065;pplet","applet", 1, -1, 1)
 dat = Replace(dat,  "","""", 1, -1, 1)
 dat = Replace(dat,  "&#061;","=", 1, -1, 1)
 dat = Replace(dat, "''", "'", 1, -1, 1)
 dat = Replace(dat,Chr(13),"<br>", 1, -1, 1)
 unsqlstr=dat
End Function

function keepformat(content)
if typename(content)="Null" then
keepformat=""
else
strr=content
keepformat=replace(strr,chr(13)+chr(10),"<br>")
end if
end function

function maillink(a)
if a<>"" then
maillink="<a href=mailto:" & a & ">" & a & "</a>"
else
maillink="无"
end if
end function
%>