% dim jl,xs jlh=Request.QueryString ("recno") xsexe="select * from fkyj where id="&cint(jlh) set conn=server.CreateObject ("ADODB.Connection") Conn.Open connstr set rs=Conn.Execute (xsexe) %>