程序名称：revert.ASP

程序功能：回复表单

<%

pageno=request("pageno")

keyid=request("keyid")

posttype=request("type")

if posttype="revert" then

set guestconn=Server.CreateObject("ADODB.connection")

guestconn.Open lybstr

set guestrs=server.createobject("ADODB.recordset")

sqlstr="SELECT * FROM guestbook where lybid="&keyid

guestrs.open sqlstr,guestconn,1,1

if guestrs.eof then response.redirect "index.ASP"

end if

%>

<%

if posttype="revert" then

guestrs.close

set guestrs=nothing

guestconn.close

set guestconn=nothing

end if

%>

软件使用主页http://swuse.yeah.net创作