整容说文库 > 程序代码 > 教育资讯

怪问题!请高手解答!

来源:学生作业帮助网 编辑:整容说文库 时间:2021/01/28 06:39:06 程序代码
怪问题!请高手解答!程序代码
在网上找来的代码!文件管理器。下面是文件编辑页面:

<!--#include file="fsoconfig.asp"-->
<!--#include file="checklogin.asp"-->
<%
if request.form("act")="editfile" then
fcontent=request.form("fcontent")
if path="" or instr(path,":")>0 or instr(path,"\")>0 then
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('指定的文件名或路径中含有非法字符');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
response.end
end if
if len(path)>1 and right(path,1)="/" then
path=left(path,len(path)-1)
end if
filepath=server.mappath(path)
set obj_fso=server.createobject("scripting.filesystemobject")
if obj_fso.fileexists(filepath) then
set obj_file=obj_fso.opentextfile(filepath,2,false)
obj_file.write fcontent
obj_file.close
set obj_file=nothing
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "window.history.go(-1);"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
else
response.write "<script language='javascript'>"&vbcrlf
response.write "<!--"&vbcrlf
response.write "alert('找不到指定的文件,可能该文件已经被删除');"&vbcrlf
response.write "window.close();"&vbcrlf
response.write "//-->"&vbcrlf
response.write "</script>"&vbcrlf
end if
response.end

end if
%>
<html>
<head>
<title><%=sysname%>--文件编辑</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta name="author" content="netasp;EMAIL:netasp@sohu.com">
<style type="text/css">
<!--
body,table,td{font-size:12px;color:#000090;}
body{margin:0;background:#ffffff url(fsoimg/bgbrick.gif);}
table{width:760px}
table table{width:100%;}
td{vertical-align:top;padding-left:12px;}
td td{padding-left:4px;vertical-align:middle;}
img{vertical-align:bottom}
form,p{margin:0;padding:0}
a{color:#000080;text-decoration:none;}
a:hover{color:#ff3333;text-decoration:underline}
.button{width:65px;height:20px;border:solid 1px;border-color:#ffffff #666666 #666666 #ffffff;margin:3px 0;}
//-->
</style>
<head>
<body>
<table align="center" cellspacing=0 style="border:solid 1px;border-color:#f6f6f6 #999999 #999999 #f6f6f6;background:#d6d3cc">
<tr>
<td style="padding-left:12px;vertical-align:middle;height:32px;"><%=sysname%> Version:<%=sysversion%></td>
</tr>
</table>
<table align="center" cellspacing=0 style="border:solid 1px;border-color:#f6f6f6 #999999 #999999 #f6f6f6;background:#d6d3cc">
<tr>

<td>

<form method="get" action="<%=selfname%>">
<span style="position:relative;top:-3px;">位置:</span><input type="text" name="path" style="margin:6px 6px 3px;width:614px;border:solid 1px #000099;">
 <%path=trim(request.querystring("path"))
response.write "value='"&path&"'> "
response.write "<input type='submit' class='button' value='聊?> "
response.write "</form>"&vbcrlf&"</td>"&vbcrlf&"</tr>"&vbcrlf&"<tr>"&vbcrlf&"<td>"&vbcrlf
if path="" or instr(path,":")>0 or instr(path,"\")>0 then
response.write "  <font color=#ff3333>悛喹哪蚍俄蟆</font>"
response.end
end if
filepath=server.mappath(path)
set obj_fso=server.createobject("scripting.filesystemobject")
if obj_fso.fileexists(filepath) then
set obj_file=obj_fso.opentextfile(filepath,1,false)
if not obj_file.atendofstream then
s_content=replace(obj_file.readall(),"&","&amp;")
s_content=replace(s_content,"<","&lt;")
s_content=replace(s_content,">","&gt;")
end if
obj_file.close
set obj_file=nothing
response.write "<form action='"&selfname&"?path="&server.urlencode(path)&"' method=post>"&vbcrlf
response.write "<input type='hidden' name='act' value='editfile'>"
response.write "<input type='hidden' name='path' value='"&path&"'>"
response.write "<textarea name='fcontent' style='border:solid 1px #000099;' cols='102' rows='33'>"&s_content&"</textarea><br>"&vbcrlf
response.write "<p style='text-align:right;padding-right:24px;'><input type='submit' class='button' value='f喹'>?input type='reset' class='button' value='喘'></p>"&vbcrlf
response.write "</form>"&vbcrlf
else
response.write "  <font color=#ff3333>悛喹哪孚</font>"
end if
set obj_fso=nothing

%>
</form>
</td>
</tr>
</table>

<table align="center" cellspacing=0 style="border:solid 1px;border-color:#f6f6f6 #999999 #999999 #f6f6f6;background:#d6d3cc">
<tr>
<td align="center" height="32px" style="padding-top:6px">版权所有:<a href="http://www.98062.com" target="_blank">www.98062.com</a>     程序设计:<a href="mailto:netasp@sohu.com">netasp@sohu.com</a></td>
</tr>
</table>
</body>
</html>
<!--#include file="fsofoot.asp"-->
怎么了
-_-"
不知道楼主意思
改动页面代码后,运行时,此页面的控件出现乱码。请高手帮忙。想要整个代码与我联系。QQ31713391
或者
程序名称:在线文件管理器
作者:netasp
最后更新:2003/05/05
当前的版本:1.0.3052
官方主页:http://www.98062.com
下载
就是改动这个页面的东西时。控件出问题了。在改回去也没用了。
程序代码