一个显示原代码的asp程序

80酷酷网    80kuku.com

  

一个显示原代码的asp程序

 我们都知道asp这一类的服务器端处理的程序,其好处之一就是只向客户端输出标准的Html流。因此可以起到向客户隐藏细节的作用。也就是说当我们在浏览器中键入asp程序的网址后只能看见标准的Html文件,而不能看见asp的内容。但有时,例如在一个asp的教学站点,我们有必要显示asp文件的内容,或者你愿意将你的原代码与人享,通过一个程序将代码显示出来。

  下面是我编写的一个asp程序,view_code.asp,它提供两种提交方式:

  一种是用表格提交,即你知道了该源文件的物理地址(类似于:c:\asp_source\test.asp的形式)。
  一种是采用get方式提交(类似于:< a href="view_code.asp?code_path= < %=server.mappath(request.servervariables("PATH_INFO"))% >&cgi_type=asp" >

点击此处查看原代码< /a >)。另外它还支持两种cgi脚本,一种是asp,一种是php。

代码段:

< %

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

rt_min=num1

else

rt_min=num2

end if

end function

% >

< %

function line_check(strline,cgi_type)

’该子程序用于检查输入段中是否包含有"< %、% >、< script >或< /script的特殊字符

dim cgi_flag

if cgi_type="php" then

cgi_flag="?"

else

cgi_flag="%"

end if

’定义的cgi_flag用于代表php和asp的不同标识符

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

% >


 

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: