<%
dim rsCou,sqltext,mylogin
set rsCou = Server.CreateObject("ADODB.Recordset")
if Session("mylogin")<>"1" then
sqltext="update count set querycount=querycount+1 where code='www.hbyn.net"
conn.execute(sqltext)
rsCou.Open "webcount",conn,3,3
rsCou.AddNew
rsCou("ipaddress")=Request.ServerVariables("Remote_HOST")
rsCou("logindate")=now()
rsCou.Update
rsCou.Close
mylogin=Session("mylogin")
Session("mylogin")="1"
else
mylogin=Session("mylogin")
end if
%>
<%const ChannelID=2
call MenuJS()%>
Development equipment, expanding equipment, psychological and behavioral training facilities, expanding base construction, expanding training facilities, expand training equipment, expanding training facilities, rock climbing, rock climbing facilities, artificial rock climbing, rock climbing wall
Develop national standards places (GB19079) Drafting units Chinese | Engnish
