rs.close 关闭连接
if request("action")="savereply" then
call savereply()
end if
得到地址栏中的值,调用过程.
sub savereply()
dim reply
reply=trim(request.Form("reply"))
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from info where id="&id
rs.open sql,conn,3,3
rs("reply")=reply
rs.update
rs.close
set rs=nothing
response.Redirect "index.asp"
end sub
编写过程