set rs=server.createobject("adodb.recordset")
<% Dim IDID=request.QueryString("id")
If ID="" or not IsNumeric(ID) Then
Response.Write ("<SCRIPT language=JavaScript>alert('晕，请不要乱搞哦!'); javascript:top.window.close();</SCRIPT>")
Response.End
End If
id=replace(request("id")," ","")
set rs=server.createobject("adodb.recordset")
rs.open ("select * from HN_down where id in("&id&")"),conn,1,1
if rs.eof and rs.bof then
response.write "没有内容"
else
title=rs("title")
end if
rs.close
%>
<head><title><%=title%></title>
这段提取不了<%=title%>,能告诉我错在那里了吗?谢谢给答案的人!!!!
