求大神帮忙，asp写不进内容？ - ASP技术论坛

静江

等　级：新手上路
帖　子：3
专家分：0
注　册：2021-2-8

楼主

问题点数：0 回复次数：2

求大神帮忙，asp写不进内容？

在程序后台管理，编辑好css文本内容后，点击 -确认修改-，没有提示 "修改成功！"。然后返回编辑页面，刷新一下，内容还是原来的，没有编辑成功？求大神帮忙。感谢

程序代码：

<!--#include file="Conn.asp"-->
<%
ctitle "CSS设计",""
Act=request.QueryString("Act")
Select Case LCase(Act)
Case "tm"
Call tmlist()
Case "tx"
Call txlist()
Case Else
Call Stlist()
End Select
sub stlist()
dim objf,fso,f
set fso=server.createobject("scripting.filesystemobject") 
on error resume next
set f=fso.GetFolder(server.mappath("/cs/skin/"&ffile))   
For Each objf in f.Files 
response.write"<a href=""Ywicp_Csssj.asp?Act=tm&amp;ffile="&objf.name&"&amp;"&Ywicpcom&""">"&objf.name&"</a><br/>"
next    
set fso=nothing
set f=nothing
end sub
sub tmlist()
ffile=Request.QueryString("ffile")
Set objStream = CreateObject("adodb.stream") 
objStream.Open 
objStream.Type = 2
objStream.Charset = "utf-8"
on error resume next
objStream.LoadFromFile(Server.MapPath("/cs/skin/"&ffile))
If Err Then
response.Write "对不起,文件不存在！<br/>"
Else
TempFile = objStream.ReadText 
objStream.Close 
Set objStream = Nothing%>
文件路径 <font color="blue">skin/<%=ffile%> {↓CSS内容↓}</font><br/>

<form action="Ywicp_Csssj.asp?Act=tx&amp;<%=Ywicpcom%>" method="post">
<input type="hidden" name="ffile" value="<%=ffile%>" />
<textarea  rows="15" cols="40" name="content"><%=tempfile%></textarea><br/>
<input type="submit" value="确认修改"/>
</form><%End IF%><%End sub%>
<%sub txlist()
dim filename,wmlhead
wmlhead = "banse.css"
content=trim(request("content"))
ffile=trim(request("ffile"))
        filename="/cs/skin/"&ffile
    call SaveToFile(content,filename)
    Set fso = server.CreateObject("Scripting.FileSystemObject")
    filesize=fso.GetFile(Server.MapPath(filename)).size
response.write"修改成功!<br/>"
end sub%>

<%if request("Act")<>"" then
response.Write("<hr/><a href=""Index.Asp?"&Ywicpcom&""">返回后台管理</a><br/>")
ffile=Request.QueryString("ffile")
end if%>
<!--#include file="Bottom.Asp"-->

[此贴子已经被作者于2021-2-8 19:01编辑过]

搜索更多相关主题的帖子: asp　sub　set　request　fso　

2021-02-08 18:56

ke爱的小tu子

等　级：论坛游民
帖　子：51
专家分：20
注　册：2021-2-11

第 3 楼

得分:0

就一个css编辑提交功能，给你写一个。

图片附件: 游客没有浏览图片的权限，请登录或注册

文件名：editMycss.asp

<%
sub tt(str,url)
    response.write "<script>alert("""&str&""");location.href="""&url&""";</script>"
end sub
function gethtml(url)
    Set xh = server.CreateObject("Microsoft.XMLHTTP")
    xh.Open "GET",url,0
    xh.Send()
    Set MyStream=server.CreateObject("Adodb.Stream")
    MyStream.Type = 2
    MyStream.Open
    MyStream.WriteText xh.responseText
    MyStream.Position = 0
    gethtml=MyStream.ReadText
    MyStream.Close
end function
Sub createTextFile(path,Str,CharSet)
    set stm=server.CreateObject("adodb.stream")
     stm.Type=2
     stm.mode=3
     stm.charset=CharSet
     stm.open
     stm.WriteText str
     stm.savetofile server.MapPath(path),2
     stm.flush
     stm.close
    set stm=nothing
end sub
function fileExist(path)
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    If fs.FileExists(server.mappath(path))=true Then
        fileExist=true
    Else
        fileExist=false
    End If
    set fs=nothing
end function
mycss=request("mycss")
if mycss<>"" then'mycss不等于空，说明提交过来的css内容。
    call createTextFile("mycss/mycss.css",mycss,"utf-8") 'css文件的路径只有你知道。这个是覆盖创建文件的。有就覆盖，没有就直接创建。
   call tt("ok","mycss.asp")'修改成功了，直接跳转到你想要跳转的url。
    response.end'这个其实可以不要的。不过为了安全起见，还是加上比较好。
end if
if mycss="" then
    if fileexist("css/mycss/mycss.css")=true then
        mycss=gethtml("http://www.xxx.asp/css/mycss/mycss.css")
'使用这个函数在iis上要设置一下，启用客户端调试和服务器端调试要设置成fasle。
    else
        mycss="Sorry!没有找到你的Css文件，你可以从头开始编辑。"
    end if
end if
%>
<!DOCTYPE html>
<html lang="zh-CN">
<head>
    <title>我的css编辑器</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style>
h1{
    font-size:16px;
    text-align:center;
}
form{
    position:relative;
    width:80%;
    height:calc(70vh);
    margin:0 auto;
}
textarea{
    display:block;
    width:100%;
    height:90%;
    border:none;
    outline:none;
    resize:none;
    box-shadow:1px 1px rgb(209,209,209) inset,-1px -1px rgb(209,209,209) inset;
}
#tj{
    position:relative;
    display:block;
    margin:0 auto;
    width:60px;
    padding:5px;
    margin-top:10px;
}
</style>
</head>
<body>
<h1>mycss编辑器</h1>
<form method="post">
    <textarea name="mycss" id="mycss"><%=mycss%></textarea>
    <input type="submit" name="tj" id="tj" value="提交">
</form>
</body>
</html>

[此贴子已经被作者于2021-2-18 00:29编辑过]

2021-02-17 20:40