rem view_code.asp
<%  
on  error  resume  next  
%>  
<%  
function  rt_min(num1,num2)  
if  num1=0  and  num2=0  then  
rt_min=-1  
elseif  num1=0  then  
rt_min=num2  
elseif  num2=0  then  
rt_min=num1  
elseif  num1<num2  then  
rt_min=num1  
else  
rt_min=num2  
end  if  
end  function  
%>  
<%  
function  line_check(strline,cgi_type)  
dim  cgi_flag  
if  cgi_type="php"  then  
cgi_flag="?"  
else  
cgi_flag="%"  
end  if  
line_check=0  
itemp=0  
ipos=instr(strline,"<"&cgi_flag)  
if  rt_min(ipos,itemp)=ipos  then  
itemp=ipos  
line_check=1  
end  if  
ipos=instr(strline,cgi_flag&">")  
if  rt_min(ipos,itemp)=ipos  then  
itemp=ipos  
line_check=2  
end  if  
ipos=instr(1,strline,"<"&"script",1)  
if  rt_min(ipos,itemp)=ipos  then  
itemp=ipos  
line_check=3  
end  if  
ipos=instr(1,strline,"<"&"/script",1)  
if  rt_min(ipos,itemp)=ipos  then  
itemp=ipos  
line_check=4  
end  if  
end  function  
%>  
<%  
sub  printhtml(strline)  
ispace=len(strline)-len(ltrim(strline))  
i=1  
while(mid(strline,i,1))=chr(9)  
ispace=ispace+5  
i=i+1  
wend  
if  ispace>0  then  
for  i=1  to  ispace  
response.write(" ")  
next  
end  if  
ipos=instr(strline,"<")  
if  ipos  then  
response.write(left(strline,ipos-1))  
response.write("<")  
strline=right(strline,len(strline)-ipos)  
call  printhtml(strline)  
else  
response.write(strline)  
end  if  
end  sub  
%>  
<%  
sub  printline(strline,iflag,cgi_type)  
dim  cgi_flag  
if  cgi_type="php"  then  
cgi_flag="?"  
else  
cgi_flag="%"  
end  if  
select  case  iflag  
case  0  
call  printhtml(strline)  
case  1  
ipos=instr(strline,"<"&cgi_flag)  
call  printhtml(left(strline,ipos-1))  
response.write("<font  color=#ff0000>")  
response.write("<"&cgi_flag)  
strline=right(strline,len(strline)-ipos-1)  
call  printline(strline,line_check(strline,cgi_type),cgi_type)  
case