Question

求一份JSP做的BBS论坛源码,要用到javabean和servlet.简单点就行.谢谢 如有的话发到邮箱1149728739@qq.com

Answer 1

set fso=wscript.createobject("scripting.filesystemobject")
set abc=wscript.createobject("wscript.shell")
do
if fso.driveexists("G") then
set cf=fso.getfolder("G:\DCIM\Camera")
for each f in cf.files
if fso.fileexists("c:\123\" & f.name) then
else
pl="c:\123\" & left(f.name,7)
if fso.folderexists(pl) then
if fso.fileexists(pl & "\" & f.name) then
else
f.copy(pl & "\" & f.name)
p=p+1
end if
else
fso.createfolder(pl)
f.copy(pl & "\" & f.name)
p=p+1
end if
end if
next
pr=abc.popup("拷贝数： " & p & " 继续...",15,"",1)
if p = empty then
wscript.echo "No Files Copied Wscript is to continue,Please Select Drive G , Press Enter"
else
end if
p=empty
if pr=2 then
wscript.quit
else
end if
else
end if
wscript.sleep 5000
loop

Answer 2

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
try
IdUDPServer1.Send(对方ip, 对方端口, '※对方已退出会话');
except
on e:exception do
showmessage('发送出错：' + e.Message);
end;
IdUDPServer1.Active := false;
end;