自动生成

SELECT CASE REQUEST("action") 
‘先放到库中，再生成页面 
‘添加开始——————————————————————————— 
CASE "add" 
title=request("title") 
…

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("time.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then
times=txt.ReadLine
Else
…