#42003/10/23 10:04:49
Dim fso, ts
Const ForWriting = 2
const adOpenStatic=3
id=request("id")
paa=request("p")
Set conn = Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("../hydro.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject ("ADODB.Recordset")
sql="select * from 时空 where id="&id
rs.open sql,conn,1,3
if not(rs.eof) then
rs.fields("状态")=2
rs.update
end if
set rsa=server.CreateObject ("ADODB.Recordset")
sql="select 标题,id from 时空 where 状态 = 2 order by id desc"
rsa.open sql,conn,1,3
最后一行就是21行 不知道错误在那里