新微赢技术网

标题: 帮帮忙，看看哪里有问题 [打印本页]

作者: 人偶娃娃 时间: 2010-1-11 05:16
标题: 帮帮忙，看看哪里有问题
我是个新手，下面这段程序是用来看文件的源程序的，只是它得到的是个相对路径，而且只能打开同目录下的文件，打开其他目录下的文件会报错，问什么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
%>

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

作者: 航母风云 时间: 2010-1-11 05:16
客户端读取本机文件还是读取服务器端的文件？

作者: 无形的天空 时间: 2010-1-11 05:16
<%
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
%>

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

作者: 封xin封mg 时间: 2010-1-11 05:16
我资料里正好有一个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>

作者: 黑角残叶 时间: 2010-1-11 05:16
如果读取服务器端的文件可以实现，读取客户端的就相当难了

作者: o.筎茈菰箪き 时间: 2010-1-11 05:16
回复 8楼孤独冷雨
估计是IIS没装好，我用的是一个小软件，没装IIS,谢谢你，真的不能稍微解释一下 action="?action=ck" 是什么意思吗？

作者: 香叶aiq格格 时间: 2010-1-11 05:16
其中SUB PrintLine (ByVal strLine) 可以不要，它的作用就是使html语言和asp语言显示不同的颜色。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)