会员专区
  通知公告
  互惠球场
  球场预订
  一杆进洞排行榜
 
 
当前位置:首页 - 会员专区 - 球场预订
<% dim cmdTemp dim InsertCursor Set cmdTemp = Server.CreateObject("ADODB.Command") Set InsertCursor = Server.CreateObject("ADODB.Recordset") ’保存访问者信息 cmdTemp.CommandText = "SELECT * FROM visitorlist where id is null" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = conn InsertCursor.Open cmdTemp, , 1, 3 InsertCursor.addnew InsertCursor("date") =cstr(date()) InsertCursor("time") =cstr(time()) InsertCursor("ip") =Request.ServerVariables("REMOTE_HOST") ’IP地址 filename=Request.ServerVariables("Script_Name") InsertCursor("page") =mid(filename,InStrRev(filename, "/")+1) ’当前页面文件名 InsertCursor.Update InsertCursor.close set InsertCursor=nothing conn.close set conn=nothing %>

<% call top() %>
<% call bottom() %>
上一篇:没有上一篇  下一篇:没有下一篇

地址:青岛市高科园松岭路118号 | 版权所有:青岛国际高尔夫俱乐部 |
鲁ICP备案05017664号 鲁公网安备 37021202000490号


电话:0532-88917777 | 传真:0532-88961012 |
Copyright(C)2010 青岛国际高尔夫俱乐部  
友情连接:新山东高尔夫网 新浪高尔夫频道 唐高网