<%
t1=timer
function replace_re(str,str1,str2)
	dim regEx
	
	Set regEx = New RegExp ' 建立正则表达式。 
	regEx.Pattern = str1 ' 设置模式。 
	regEx.IgnoreCase = true ' 设置是否区分大小写。 
	regEx.Global=true
	replace_re=regEx.Replace(str, str2)
	set regEx=nothing
	
end function

function ShowLabel(c_c,c_str)'文本，待替换的标签，显示的颜色，是否有结束标签,其他样式 div|color:#ffffff $$ 

	dim cc
	dim c
	dim re
	dim re_c
	
	re=""
	re_c=""
	c=c_c
	cc=c_str
	
	if c="" or cc="" then 
		ShowLabel=c
		exit function
	end if
	
	cc=split(cc,"$$")
	
	for i=0 to ubound(cc)
		cc(i)=split(cc(i),"|")

		re="(\<"&cc(i)(0)&"[^\<]*\>)"
		re_c="&lt;##span style=##"&cc(i)(1)&"####&gt;$1&lt;##/span##&gt;"
		c=replace_re(c,re,re_c)
		
		re="(\<\/"&cc(i)(0)&"\>)"
		re_c="&lt;##span style=##"&cc(i)(1)&"####&gt;$1&lt;##/span##&gt;"
		c=replace_re(c,re,re_c)
	
	next
	'response.end
	ShowLabel=c

end function

function ShowLabels(c_s,cc_s)'需要染色的html代码,染色标签连接字符串

	dim c,cc
	c=c_s
	cc=cc_s

	'/////////////常规html标签染色
	if cc="" then
		cc="[^\<]*|color:#000099"
		cc=cc+"$$script|color:#990033"
		cc=cc+"$$style|color:red"
		cc=cc+"$$html|color:#000066;font-weight:bold"
		cc=cc+"$$head|color:#CC6600"
		cc=cc+"$$meta|color:#CC6600"
		cc=cc+"$$title|color:#CC6600"
		cc=cc+"$$body|color:#000066;font-weight:bold"
		cc=cc+"$$table|color:#009999"
		cc=cc+"$$tr|color:#009999"
		cc=cc+"$$td|color:#009999"
		cc=cc+"$$form|color:#FF00FF"
		cc=cc+"$$input|color:#FF00FF"
		cc=cc+"$$img|color:#990033"
	end if
	
	c=showlabel(c,cc)
	
	'/////////////特殊html标签染色
	c=replace_re(c,"('[^\']*\')","&lt;##span style=##color:blue## ##&gt;$1&lt;##/span##&gt;")'[']
	c=replace_re(c,"(""[^\""]*\"")","&lt;##span style=##color:blue## ##&gt;$1&lt;##/span##&gt;")'["]
	
	'/////////////转换为可显示模式
	c=replace(c,"&","&amp;")
	c=replace(c,"<","&lt;")
	c=replace(c,">","&gt;")
	c=replace(c,"&amp;lt;##","<")
	c=replace(c,"##&amp;gt;",">")
	c=replace(c,"'","&#39;")
	c=replace(c,"""","&quot;")
	c=replace(c,"##","'")
	c=replace(c,"###","""")
	c=replace(c,"&lt;!--","<font color=gray>&lt;!--")
	c=replace(c,"--&gt;","--&gt;</font>")
	c=replace(c,"{$","<font color=green style=''>{$")
	c=replace(c,"$}","$}</font>")
	
	ShowLabels=c
	
end function
'////////////////////////////////////////////////////////////////////////////////////////////////////
dim c
tt=0
c=session("FB_EM_1_SQL_c")
'////////////////////////////////////////////////////////////////////////////////////////////////////
if request("action")="s" then
'////////////////////////////////////////////////////////////////////////////////////////////////////标签染色<>
	c=ShowLabels(c,"")
	c="<div id=source ><pre>"&c&"</pre></div>"
elseif request("action")="v" then
	c=c
else 
	c=replace(c,"&","&amp;")
	c=replace(c,"<","&lt;")
	c=replace(c,">","&gt;")
end if
n_line=ubound(split(c,vbcrlf))
'////////////////////////////////////////////////////////////////////////////////////////////////////
%>
<style>
body {
font-size:10pt;
font-family: 新宋体;
color:#000000;
line-height:18px;
/*#0053A6*/
}
</style>
<%if request("action")="s" then%>
<div id="lines" align=right style="color:#FFFFFF;padding-right:2;padding-top:20px;position:absolute; left:0px;top:0px;width:32px;height:100%; background-color: #9DACBF">
<%
for i_line=1 to n_line+1
response.write i_line&"<br>"
next
%>
</div>
<%end if%>
<body margin="0" topmargin="0" style="padding-left:29;padding-top:20 ">
<%
'response.write (timer-t1)*1000
response.write c
%>

</body>
