请高手帮忙解释一下这段代码的意思

来源:百度知道 编辑:UC知道 时间:2024/05/17 01:48:51
请高手帮忙解释一下这段代码的意思,能每一句解释详细一点儿嘛,非常感谢!
<%
rs.close
set rs=nothing
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
%>

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
编写过程