code.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 120 行

<%

Function icode2Html(str, showimg, nonewwindow)
ON ERROR RESUME NEXT
if not str<>"" then exit function
  tmpstr="icode"
  str=icodeStr(str,"url",nonewwindow)
  str=icodeStr(str,"email",nonewwindow)
  if showimg then
    str=icodeStr(str,"img",nonewwindow)
  end if
  str=replace(str,"[b]","<b>",1,-1,1)
  str=replace(str,"[/b]","</b>",1,-1,1)
  str=replace(str,"[br]","<br>",1,-1,1)
  str=replace(str,"["&tmpstr,"[",1,-1,1)
  str=replace(str,tmpstr&"]","]",1,-1,1)
  str=replace(str,"/"&tmpstr,"/",1,-1,1)
  icode2Html=str
End Function

function icodestr(icode_str,icodeKeyWord,nonewwindow)
ON ERROR RESUME NEXT
tmpstr="icode"
beginstr=1
endstr=1
do while icodeKeyWord="url" or icodeKeyWord="email"
  beginstr=instr(beginstr,icode_str,"["&icodeKeyWord&"=",1)
  if beginstr=0 then exit do
  endstr=instr(beginstr,icode_str,"]",1)
  if endstr=0 then exit do
  LicodeKeyWord=icodeKeyWord
  beginstr=beginstr+len(licodeKeyWord)+2
  text=mid(icode_str,beginstr,endstr-beginstr)
  codetext=replace(text,"[","["&tmpstr,1,-1,1)
  codetext=replace(codetext,"]",tmpstr&"]",1,-1,1)
  codetext=replace(codetext,"/","/"&tmpstr,1,-1,1)
  select case icodeKeyWord
    case "url"
	icode_str=replace(icode_str,"[url="&text&"]","<a href='"&codetext&"' target=_blank>",1,1,1)
	icode_str=replace(icode_str,"[/url]","</a>",1,1,1)
	case "email"
	icode_str=replace(icode_str,"[email="&text&"]","<a href='mailto:"&codetext&"'>",1,1,1)
	icode_str=replace(icode_str,"[/email]","</a>",1,1,1)
  end select
loop

beginstr=1
do
  beginstr=instr(beginstr,icode_str,"["&icodeKeyWord&"]",1)
  if beginstr=0 then exit do
  endstr=instr(beginstr,icode_str,"[/"&icodeKeyWord&"]",1)
  if endstr=0 then exit do
  LicodeKeyWord=icodeKeyWord
  beginstr=beginstr+len(licodeKeyWord)+2
  text=mid(icode_str,beginstr,endstr-beginstr)
  codetext=replace(text,"[","["&tmpstr,1,-1,1)
  codetext=replace(codetext,"]",tmpstr&"]",1,-1,1)
  codetext=replace(codetext,"/","/"&tmpstr,1,-1,1)
  select case icodeKeyWord
    case "url"
	icode_str=replace(icode_str,"["&icodeKeyWord&"]"&text,"<a href='"&codetext&"' target=_blank>"&codetext,1,1,1)
	icode_str=replace(icode_str,"<a href='"&codetext&"' target=_blank>"&codetext&"[/"&icodeKeyWord&"]","<a href="&codetext&" target=_blank>"&codetext&"</a>",1,1,1)
    case "email"
	icode_str=replace(icode_str,"["&icodeKeyWord&"]"&text,"<a href='mailto:"&codetext&"'>"&codetext,1,1,1)
	icode_str=replace(icode_str,"<a href='mailto:"&codetext&"'>"&codetext&"[/"&icodeKeyWord&"]","<a href=mailto:"&codetext&" target=_blank>"&codetext&"</a>",1,1,1)
    case "img"
	if nonewwindow then
	  icode_str=replace(icode_str,"[img]"&text,"<img src="&codetext,1,1,1)
	  icode_str=replace(icode_str,"[/img]"," border=0>",1,1,1)
	else
	  icode_str=replace(icode_str,"[img]"&text,"<table width='100%' align=center border='0' cellspacing='0' cellpadding='0' style='TABLE-LAYOUT: fixed'><tr><td><a href='"&codetext&"' target=_blank><img src="&codetext,1,1,1)
	  icode_str=replace(icode_str,"[/img]"," border=0 alt='点击打开新窗口'></a></td></tr></table>",1,1,1)
	end if
  end select
loop
icodestr=icode_str
end function

function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%>