一个显示原代码的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

% >