% pid=Request.QueryString("pid") if pid<>"" then sql = "select * from Hg_Products where id="& pid &"" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 title=rs("name") content=rs("Productinfo") set rs=nothing else sql = "select * from Hg_News where Newsid="&Request.QueryString("id") &"" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 title=rs("title") content=rs("content") set rs=nothing end if %>
| 整理发表:[归正福音网www.guizheng.net] |