< %

sub printline(strline,iflag,cgi_type)

'该自过程用于根据line_check的返回值分别处理

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 2

ipos=instr(strline,cgi_flag&" >")

call printhtml(left(strline,ipos-1))

response.write(cgi_flag&" >")

response.write("< /font >")

strline=right(strline,len(strline)-ipos-1)

call printline(strline,line_check(strline,cgi_type),cgi_type)

case 3

ipos=instr(1,strline,"<"&"script",1)

call printhtml(left(strline,ipos-1))

response.write("< font color=#00ff00 >")

response.write("<"&"script")

strline=right(strline,len(strline)-ipos-6)

call printline(strline,line_check(strline.cgi_type),cgi_type)

case 4

ipos=instr(1,strline,"<"&"/script >",1)

call printhtml(left(strline,ipos-1))

response.write("lt;"&"/script"&" >")

response.write("< /font >")

strline=right(strline,len(strline)-ipos-8)

call printline(strline,line_check(strline,cgi_type),cgi_type)

case else

response.write("error")

end select

end sub

% >