快讯

一个显示原代码的asp程序

2004-02-14 09:33  出处:eNet硅谷动力  作者:enet  责任编辑:zwg 

< % 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 % >
键盘也能翻页,试试“← →”键
IT热词搜索 来源:360新闻
软件论坛帖子排行
相关文章

相关软件:

腾讯QQ2012
大小:52.93 MB 授权:免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小:49.32 MB 授权:免费
腾讯QQ2013
立即下载