<% id = Left(Trim(Request.QueryString("id")),5) If id = "" or isNumeric(zid) = False Then Response.Write("对不起,没有该页面") Response.end() End If startingPage = Left(Trim(Request.QueryString("p")),5) If startingPage = "" or isNumeric(startingPage) = False Then startingPage = 0 End If Call opendb() set rs = server.createobject("adodb.recordset") sql = "select * from [zazhi] where id="& id rs.open sql,conn,1,1 If not rs.eof Then tit = rs("tit") Else Response.Write("对不起,没有该页面") Response.End() End If rs.close sql = "select * from [zazhi_pho] where zid="& id &" order by px asc,id asc" rs.open sql,conn,1,1 If not rs.eof Then Else Response.Write("对不起,没有该页面") rs.close set rs = nothing Call closedb() Response.End() End If %> 电子杂志_中国园林绿化网

<% Response.Write(tit) %>

载入页面...
返回上一页
<% rs.close set rs = nothing Call closedb() %>