Question

新闻标题如何自动成为网页标题

<%
dim rs,sql,idl
id = Request.QueryString("id")
set rs = Server.CreateObject("ADODB.connection")
sql = "select * from news where id=" & id
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=;pwd=;dbq="&server.mappath("data/pcfinal.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from news",conn,1,1
%>
<title><%=rs("title")%></title>

我这段代码生成的网页标题和新闻标题不匹配；
谁能帮我解释下为什么；如果每行都给我加注释 最好。
感激不尽。

Answer 1

把 rs.open "select * from news",conn,1,1
改成sql就可以了

Answer 2

if id="" or not isnumeric(id) then id=0
.....
rs.open "select * from news where id="&&"",conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
response.write "对不起没有找到您要查看的新闻"
response.end
end if
一下的和你的程序一样