sqlstr.asp

一个用asp和sql server开发的网上办公系统

<%
function sqlstr(str)
sqlstr="'" & replace(str,"'","''") & "'"
end function

function htmlencode2(sInput)
  dim sAns
  sAns = replace(sInput, " ", "&nbsp; ")
  sAns = replace(sAns, chr(34), "&quot;")
  sAns = replace(sAns, "<!--", "&lt;!--")
  sAns = replace(sAns, "-->", "--&gt;")
  sIllStart = "<" & chr(37)
  sIllEnd = chr(37)  & ">"
  if instr(sAns, sIllStart) > 0 or instr(sAns, sIllEnd) > 0 then
    sAns = replace(sAns, "<" & chr(37), "")
    sAns = replace(sAns, chr(37)  & ">", "")
    bIllegal = true
  end if
  sAns = replace(sAns, ">", "&gt;")
  sAns = replace(sAns, "<", "&lt;")
  sAns = replace(sAns, vbcrlf, "<BR>")
  htmlencode2 = sAns
End function

Function keepformat(content)
dim str
if len(content)<>0 then
   str=replace(content,"<br>",chr(13))
   str=replace(str,"<BR>",chr(13))
   keepformat=replace(str,"<P>",chr(13)+chr(10))
else
   keepformat=""
end if
End function
%>