2个厉害的大牙,那个牙更厉害呢?
解决方案 »
- 如何写线程控制
- 我在delphi中用shellExecute启动了一个程序(ftp);然后想做一个等待,只到ftp进程结束,再继续下面的操作,请问如何监控这个进程是否已结束?
- 100分!fastreport3.03打印时用表格显示!如何设置?
- 菜鸟请问:如何对在DLL中动态分配的内存空间进行操作?(参数类型char**)
- 关于接口, 插件的问题!(如何用Delphi的接口实现插件?)
- 奇怪的汇总小问题
- 我要去应聘了(第一次)!大家帮帮忙!
- delphi程序中如何调用windows的写字板这个程序?
- printer改变打印设置?
- 哪位同志有李维的主页地址?
- 树刷新--热心朋友帮忙看看!
- 欧洲杯 B组:英格兰VS克罗地亚 猜中200分!!
whichfile1=server.mappath("../")
whichfile=whichfile1&"\default.asp"//取文件真实路径 Set fsa = CreateObject("Scripting.FileSystemObject")
Set thisfilea = fsa.OpenTextFile(whichfile, 1, False)
articletem=thisfilea.readall//读取文件num1=instr(articletem,"<!--lb-->")
num2=instr(articletem,"<!--lbend-->")
a=mid(articletem,num1+9,num2-num1-9)
aricletem=relace(articltem,a,"替换代码")