<% Dim ID ID=Angel_aspRequest(request("ID")) set rs=server.createobject("adodb.recordset") sql="select * from "&tbname&"_About where id="&id rs.open sql,conn,1,1 if rs.eof and rs.bof then Call Alert("不正确的ID!",SitePath) else %> " /> " /> <%=rs("Title")%> - <% =SiteTitle %>
<%=Head%> <%=Menu%>
<%=search%>您现在的位置:首页 >> "><%=rs("Title")%> >> 内容
<%=rs("Content")%>
相关信息
    <% set rs1=server.createobject("ADODB.Recordset") sql1="select * from "&tbname&"_About order by ID desc" rs1.open sql1,conn,1,3 If Not rs1.Eof Then do while not (rs1.eof or err) %> "><%=rs1("Title")%> <% rs1.movenext loop end if rs1.close set rs1=nothing %>
<%End if%> <% rs.close set rs=nothing %> <%=Copy%>