<% id = request("id") strsq2 = "select * from jiaoyoubidu where lb='1' order by id desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.open strsq2,my_conn,1,3 page = trim(request ("page")) if page<>"" then page=cint(page) else page=1 end if lm="" if id="1" then lm = "男士交友必读" else lm="女士交友必读" end if %>