?? icode.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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -