简单问题，轻松得分（60分）

visualc2002 2003-08-21 01:40:10

网页中有一个表格，这个表格中有十个纪录，我想让这个表格中的记录是从delphi制作的表中读取得，并且当delphi的表格中的记录是超出十条的，则自动新建一个网页，与这个一样的，只是表格中的记录不同，不且自动给新生成的网页命名！我制作的也就是一个网页管理工具，方便网页的更新。其中，网页可以看成是文本文件！！！！因为他们值加可以转换！！！！谢谢！最好能给我写出源代码！！有实例更好！！！！谢谢各位！！！

...全文

26 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

visualc2002 2003-08-21

打赏
举报

我不太明白internet编程，你能不能把后来的几个事件写一下，谢谢！

zhangheaaa 2003-08-21

打赏
举报

另一个方法：
用TQueryTableProducer，TDataSetPageProducer等几个控件都可以实现。下面给你说个最简单的例子
1.在窗体上放一个Query控件,一个TQueryTableProducer控件(在Internet组中）
2.配置好Query并使active:=true,TQueryTableProducer的Query属性设置为Query1
3.运行showmesage(QueryTableProducer.content);就是一个网页格式的代码。

TDataSetPageProducer控件
先用Frontpage等网页制作工具制作好页面，留出表格内容代填充
2.使用TDataSetPageProducer配置Dataset属性到Dataset数据集组件
3.在onHTMLTag事件中替换特殊标记成数据

IORILI 2003-08-21

打赏
举报

鹤楼主一起学习

zhangheaaa 2003-08-21

打赏
举报

建3个
htmTopList,htmMidList,htmBomList : TStringList;//前面部分中间动态部分结尾部分.
htmFile:TextFile; //html 文件变量
FileName : String; //html文件名

htmTopList := TStringList.Create;
htmMidList := TStringList.Create;
htmBomList := TStringList.Create;
with htmTopList do begin
Add('<HTML><HEAD><TITLE>Sohu/ChinaRen校友录蓝蓝的968</TITLE></HEAD>');
Add('<BODY bgColor=#ffffff leftMargin=0 topMargin=5><div align="center">');
Add('<table>');
end;

htmBomList.add('</TABLE></div>CENTER></BODY></HTML>');

AssignFile(htmFile,'c:\test.htm');
ReWrite(htmFile);
with adoquery1 do begin
while not eof do begin
htmMidList.Add('<TR bgColor=#f3f3f3><TD>+DateTimeToStr(adoquery1['time']);
next;
end;
try
for i:=0 to htmTopList.Count-1 do
Writeln(htmFile,htmTopList[i]);
for i:=0 to htmMidList.Count-1 do
Writeln(htmFile,htmMidList[i]);
for i:=0 to htmBomList.Count-1 do
Writeln(htmFile,htmBomList[i]);
finally
CloseFile(htmFile);
htmmidlist.Clear;
end;
end;

关于十条记录的控制，你可以自己控制一下循环。