icode.asp

ASP源文件

<%
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,"<table border='1' cellspacing='0' style='border-collapse: collapse' bordercolor='#C1C1C1' width='1' bgcolor='#FFFFFF'><tr><td width='100%'><img border='0' src="&codetext,1,1,1)
	  icode_str=replace(icode_str,"[/img]","></td></tr></table>",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
%>