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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → 帮帮忙，看看哪里有问题

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 381 人关注过本帖

标题：帮帮忙，看看哪里有问题

只看楼主加入收藏

faliny

等　级：新手上路
帖　子：3
专家分：0
注　册：2009-8-10
结帖率：100%

楼主

已结贴√ 问题点数：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　

2009-08-25 10:23

孤独冷雨

来　自：安徽滁州
等　级：贵宾
威　望：23
帖　子：1247
专家分：1909
注　册：2007-6-4

第 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.

2009-08-25 11:33

myosotis

等　级：职业侠客
帖　子：72
专家分：377
注　册：2009-8-4

第 3 楼

得分:0

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

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

2009-08-25 11:41

myosotis

等　级：职业侠客
帖　子：72
专家分：377
注　册：2009-8-4

第 4 楼

得分:0

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

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

2009-08-25 11:50

jingjing316

等　级：黑侠
威　望：1
帖　子：293
专家分：541
注　册：2009-8-11

第 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>

2009-08-25 15:45