<%
dim info_id
info_id=request("id")
if info_id="" or Isnumeric(info_id)=false then
response.Redirect("nopage.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From info where passed=true and id="&info_id
rs.Open sql,conn,1,3
if rs.bof and rs.eof then
response.Write""
response.Write""
else
'纪录访问次数
rs("counter")=rs("counter")+1
rs.update
end if
%>
<%=sitename%>——<%=rs("title")%>