帮帮忙，看看哪里有问题 - ASP技术论坛

已结贴√ 问题点数：10 回复次数：8

帮帮忙，看看哪里有问题

我是个新手，下面这段程序是用来看文件的源程序的，只是它得到的是个相对路径，而且只能打开同目录下的文件，打开其他目录下的文件会报错，问什么file值不是绝对路径呢？
如果我要得到绝对路径并且能打开其他目录下的文件该怎么改？
各位大虾笑过后帮帮忙，谢谢。

<%
Function showcode(filename)
    Set fso=server.CreateObject("scripting.filesystemobject")
    Set cnrs=fso.opentextfile(filename,1)
    While Not cnrs.atendofstream
        rsline=cnrs.readline
        rsline=server.htmlencode(rsline)
        response.write (rsline&"<br>")
    Wend
End Function
%>
<form action="index.asp" method="post">
<input name="filename" type="file">
<input type="submit" value="查看源程序">
</form>
<%
file=request.Form("filename")
response.write (file&"源程序如下：<hr>")
If Trim(file)<>"" Then
    Call showcode(file)
End If
%>

搜索更多相关主题的帖子: asp　

第 2 楼

得分:10

<%
Function showcode(filename)
    Set fso=server.CreateObject("scripting.filesystemobject")
    Set cnrs=fso.opentextfile(filename,1)
    While Not cnrs.atendofstream
        rsline=cnrs.readline
        rsline=server.htmlencode(rsline)
        response.write (rsline&"<br>")
    Wend
End Function
%>
<form action="?action=ck" method="post">
<input name="filename" type="file">
<input type="submit" value="查看源程序">
</form>
<%
if request("action")="ck" then
file=request.Form("filename")
response.write (file&"源程序如下：<hr>")
If Trim(file)<>"" Then
    Call showcode(file)
End If
end if
%>

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.

第 3 楼

得分:0

客户端读取本机文件还是读取服务器端的文件？

花自漂零水自流，一种相思，两处闲愁

第 4 楼

得分:0

如果读取服务器端的文件可以实现，读取客户端的就相当难了

花自漂零水自流，一种相思，两处闲愁

第 5 楼

得分:0

我资料里正好有一个viewCODE.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>

第 6 楼

得分:0

其中SUB PrintLine (ByVal strLine) 可以不要，它的作用就是使html语言和asp语言显示不同的颜色。

第 7 楼

得分:0

回复 2楼孤独冷雨
你好，不知道你在你那里运行的结果是怎么样的，但我这里还是不行，不能打开其他目录下的文件，会报错，而且file值显示的还是相对路径。
还有，你能稍微解释一下 action="?action=ck" 是什么意思吗？谢谢。

第 8 楼

得分:0

提交后，直接显示你所选文件的源程码，我已经测试成功了，我在IIS下浏览可以查看我电脑任何盘符里的文件，不知道你为什么会错！你是不是想看别人电脑人的东西？

这里有男女系列成人用品,有时间兄弟们来看一看.
51za.

第 9 楼

得分:0

回复 8楼孤独冷雨
估计是IIS没装好，我用的是一个小软件，没装IIS,谢谢你，真的不能稍微解释一下 action="?action=ck" 是什么意思吗？