% dim ID ID=replace(Trim(request("ID")),"'","") if ID="" then response.Redirect("netmap.asp") end if Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from okuoo_ServerMeshwork where diquID=" & ID & "" rs.open sql,conn,1,1 Title=Trim(rs("dainName")) HeadTitle=Title if HeadTitle<>"" then SiteTitleAll= HeadTitle & "-" & SiteTitle else SiteTitleAll=SiteTitle end if %>
|