关于修改动态生成静态页面的问题
我修改了一个新闻系统，是动态生成HTML的，
现在遇到这样一个问题
后台管理页要像前台一样，在每一条动态生的HTML新闻后面都要有修改和删除功能
这个修改功能应该怎么做呢？
怎么样找到并修改某一条HTML新闻呢？
谢谢
问题点数：100、回复次数：8Top
1 楼cpio（备注）回复于 2003-06-03 16:52:15 得分 10
不是把新闻路径记录到数据库了吗？
找到它，再用FSO读取就可以了Top
2 楼inelm（木野狐）回复于 2003-06-03 16:56:10 得分 10
每次从数据库中读取重新生成,修改,删除都是操作数据库.Top
3 楼jesee（一笑而过）回复于 2003-06-03 16:58:01 得分 10
新闻的数据还是记录在数据库中的
删除新闻的时候只要清空数据库中的东西，根据新闻路径记录用FSO删除硬盘上的文件就行了
修改的话就相当于将文件重新生成一遍Top
4 楼zhongmao（西风瘦马）回复于 2003-06-03 17:00:48 得分 10
同意楼上的Top
5 楼galaxyvenus（魔鬼的左手√森哥 1hp - - 恶搞23 外号乔丹）回复于 2003-06-03 17:04:06 得分 0
我用的是MoveNext
怎么能选中要修改的那一条？Top
6 楼myflok（老虎爱吃肉）回复于 2003-06-03 17:25:48 得分 10
delete from table1 where id=待删除idTop
7 楼galaxyvenus（魔鬼的左手√森哥 1hp - - 恶搞23 外号乔丹）回复于 2003-06-10 08:39:26 得分 0
还是不太明白
有人做过这样的例子，贴段代码让我看看吗？
谢谢了Top
8 楼defore（MiLo.MoonGlow）回复于 2003-06-10 09:01:47 得分 50
Sub delete(id) '删除
set rs=server.createobject("adodb.recordset")
sql="select newshtml from [news] where id="& id
rs.open sql,conn,1,1
if rs("newshtml")<>"" then
call DelFile(server.mappathrs("newshtml"))
end if
sql="delete from news where id="&cstr(id)
conn.execute sql
rs.close
set rs=nothing
End sub
Sub DelFile(FilePath) '删除静态页面
Set Fso = CreateObject("Scripting.FileSystemObject")
if Fso.fileExists(FilePath)=1 then
File1=server.mappath(FilePath)
Set F1 = fso.GetFile(file1)
F1.Delete
end if
End subTop
