<% CID=request("id") dim rs_danye,FoundErr dim sql sql="select * from onlypage where ID="&CID&"" Set rs_danye= Server.CreateObject("ADODB.Recordset") rs_danye.open sql,conn,1,3 if rs_danye("ifshow")=0 then response.write"" response.end else rs_danye("Hits")=rs_danye("Hits")+1 rs_danye.update %> —北京超图软件股份有限公司"> —北京超图软件股份有限公司"> —北京超图软件股份有限公司"> <%=rs_danye("pagename")%>—关于超图—SuperMap Software—北京超图软件股份有限公司

<%=rs_danye("pagename")%>

<%=rs_danye("content")%>
<% End If rs_danye.close set rs_danye=nothing %>