<%
id=ReplaceBadChar(trim(request("id")))
if id="" then
id=13
end if
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From [SiteExplain] where id="&id&" Order By NavOrder asc"
Rs.Open Sql,Conn,1,1
If Not (Rs.Eof Or Rs.Bof) Then
NavContent=Rs("NavContent")
NavRemark=Rs("NavRemark")
NavTitle=Rs("NavTitle")
End If
Rs.Close
Set Rs=Nothing
%>
