📄 tsc.asp
字号:
<%
function TscCode(content1)
if instr(content1,"[") > 0 then
content1 = replace(content1,[hr],"<hr>")
contents = split(content1,"[/a]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[a") > 0 then
cont = split(contents(i),"[a")
if ubound(cont) > 0 then
if left(cont(1),1)="]" then
cont_text = right(cont(1),len(cont(1))-1)
cont_url = cont_text
if instr(cont_url,"]")>0 then
cont_url = replace(cont_url,"]","")
cont_url = replace(cont_url,"[","")
end if
TSC_Content = TSC_Content + cont(0)+"<a href="+cont_url+" target=_blank>"+cont_text+"</a>"
else
if left(cont(1),6)=" href=" and instr(cont(1),"]") then
cont_text = right(cont(1),len(cont(1))-6)
cont_text_sub = split(cont_text,"]")
TSC_Content = TSC_Content + cont(0)+"<a href="+cont_text_sub(0)+" target=_blank>"+cont_text_sub(1)+"</a>"
else
TSC_Content = TSC_Content + contents(i)
end if
end if
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/url]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[url") > 0 then
cont = split(contents(i),"[url")
if ubound(cont) > 0 then
if left(cont(1),1)="]" then
cont_text = right(cont(1),len(cont(1))-1)
cont_url = cont_text
if instr(cont_url,"]")>0 then
cont_url = replace(cont_url,"]","")
cont_url = replace(cont_url,"[","")
end if
TSC_Content = TSC_Content + cont(0)+"<a href="+cont_url+" target=_blank>"+cont_text+"</a>"
else
if left(cont(1),6)=" href=" and instr(cont(1),"]") then
cont_text = right(cont(1),len(cont(1))-6)
cont_text_sub = split(cont_text,"]")
TSC_Content = TSC_Content + cont(0)+"<a href="+cont_text_sub(0)+" target=_blank>"+cont_text_sub(1)+"</a>"
else
TSC_Content = TSC_Content + contents(i)
end if
end if
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/email]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[email]") > 0 then
cont = split(contents(i),"[email]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<a href=mailto:"+cont(1)+">"+cont(1)+"</a>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/b]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[b]") > 0 then
cont = split(contents(i),"[b]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<b>"+cont(1)+"</b>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/i]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[i]") > 0 then
cont = split(contents(i),"[i]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<i>"+cont(1)+"</i>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/img]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[img]") > 0 then
cont = split(contents(i),"[img]")
if ubound(cont) > 0 then
'加入目录，使直接输入文件名
tempmulu="photo/"
TSC_Content = TSC_Content + cont(0)+"<img src="+tempmulu+cont(1)+">"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/title]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[title]") > 0 then
cont = split(contents(i),"[title]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<h1>"+cont(1)+"</h1>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/red]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[red]") > 0 then
cont = split(contents(i),"[red]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<font color=red>"+cont(1)+"</font>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/blue]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[blue]") > 0 then
cont = split(contents(i),"[blue]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<font color=blue>"+cont(1)+"</font>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/green]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[green]") > 0 then
cont = split(contents(i),"[green]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<font color=green>"+cont(1)+"</font>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/center]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[center]") > 0 then
cont = split(contents(i),"[center]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<center>"+cont(1)+"</center>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/right]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[right]") > 0 then
cont = split(contents(i),"[right]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<div align=right>"+cont(1)+"</div>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/left]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[left]") > 0 then
cont = split(contents(i),"[left]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<div align=left>"+cont(1)+"</div>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/u]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[u]") > 0 then
cont = split(contents(i),"[u]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<u>"+cont(1)+"</u>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/move]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[move]") > 0 then
cont = split(contents(i),"[move]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<marquee behavior=alternate width=100% scrollamount=4>"+cont(1)+"</marquee>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
contents = split(TSC_Content,"[/flash]")
TSC_Content = " "
for i = 0 to ubound(contents)
if instr(contents(i),"[flash]") > 0 then
cont = split(contents(i),"[flash]")
if ubound(cont) > 0 then
TSC_Content = TSC_Content + cont(0)+"<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0' width='110' height='40'><param name=movie value='"+cont(1)+"'><param name=quality value=high><embed src='"+cont(1)+"' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'></embed></object>"
else
TSC_Content = TSC_Content + contents(i)
end if
else
TSC_Content = TSC_Content + contents(i)
end if
next
Tsccode = TSC_Content
else
Tsccode = Content1
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -