asp修改文件

来源：百度知道 编辑：UC知道 时间：2024/04/29 18:31:52
不懂者请别忽悠我...
我现在在网站下有config.asp文件.内容如下
<%
Const SiteName="华英机械网"
Const SiteTitle="华英机械|下料机|裁断机|模切机|全胶鞋设备|制鞋流水线设备"
%>
我如何在 updata.asp文件里修改 SiteName和 SiteTitle呢?
我的意思是在后台里改,不是在文件里改..

在后台 update.asp里的
<form action="">
<input type=text value=<%=sitename%>>
<input type=submit value=修改>
</form>
修改

正则表达的哪位,我看的不是太懂.详细点好吗??
update.asp应该怎么写?
写完整点.我可以追加分.如果在这里写麻烦的话,可以留个QQ给我..我现在在线等呢.

三楼的,你写的我看不懂,不知道怎么用?呵呵.你的意思是放在config.asp里了吧?

<!--#include file="config.asp"-->
<%
if request("edite")="修改" then
dim fso,filepath,fso_txt,msg
set fso=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
filepath=server.mappath("config.asp")
'filepath1=server.mappath("config.asp")
If fso.FileExists(filepath) Then
set fso_txt=fso.OpenTextFile(filepath,1)
msg=fso_txt.ReadAll
'Response.Write(msg&"*^*")
Set regEx = New RegExp
patrn = SiteName
regEx.Pattern = patrn
regEx.IgnoreCase = True
regEx.Global = True
set matches=regEx.execute(msg)
for each match in matches
msg=Replace(msg,match.value,request("sitename"))
next
set fso_txt=nothing
if fso.fileexists(filepath) then
fso.deletefile(filepath)
end if
if not fso.fileexists(filep