摘要: randomize Num=(int(rnd()*6)+1) Select Case Num case 1 response.redirect("/book") case 2 阅读全文
posted @ 2009-02-23 16:09 苔苔以苔苔以苔 阅读(456) 评论(0) 推荐(0)
摘要: if not FileExists('c:\Log1.txt') then begin AssignFile(LogFile, 'c:\Log1.txt'); Rewrite(LogFile); CloseFile(LogFile); //关闭时自动保存文件 end; 阅读全文
posted @ 2009-02-23 11:15 苔苔以苔苔以苔 阅读(1298) 评论(0) 推荐(0)
猪先飞