一段用asp查看asp文件源码的程序

<%
sub printline (byval strline)
    strline=server.htmlencode(strline)
    strline=replace(strline,"<%","<font color=#ff0000><%")
    strline=replace(strline,"%>","%></font>")
    strline=replace(strline,"<script","<font color=#0000ff><script",1,-1,1)
    strline=replace(strline,"</script>","</script></font>",1,-1,1)
    strline=replace(strline,"","--></font>",1,-1,1)
    response.write strline
end sub
function showcode(filename)
    dim strfilename
    dim fileobject, oinstream, stroutput
    strfilename = filename
    set fileobject = server.createobject("scripting.filesystemobject")
    set oinstream = fileobject.opentextfile(strfilename, 1, 0, 0 )
    while not oinstream.atendofstream
        stroutput = oinstream.readline
        call printline(stroutput)
        response.write("<br>")
    wend
end function
%>
<html>
<head>
<title>asp源码浏览器</title>
</head>
<body bgcolor=#ffffff>
<form action=viewcode.asp method=post>
请输入asp文件名
<input type=file name=filename>
<input type=submit value="查看源程序">
</form>
<%
on error resume next
dim file
file=request.form("filename")
response.write file & "源程序如下<hr>"
if trim(file)<> "" then
call showcode(file)
end if
%>
</font>
</body>
</html>

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

一段用asp查看asp文件源码的程序

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

一段用asp查看asp文件源码的程序

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范