<% Private Function getIP() Dim strIPAddr If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then strIPAddr = Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1) ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1) Else strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If getIP = Trim(Mid(strIPAddr, 1, 30)) End Function on error resume next memberid=trim(session("username")) Set Obj = Server.CreateObject("chinaacc.parseip.LocationClient") area = Obj.getLocation(getip()) set obj=nothing if err <> 0 then area = "北京" err.clear() end if memberid=trim(session("username")) %> 课程选择
    <dd id="v8adg"><track id="v8adg"></track></dd>

    <th id="v8adg"></th>
    1. <em id="v8adg"><acronym id="v8adg"></acronym></em>
      <rp id="v8adg"><ruby id="v8adg"><input id="v8adg"></input></ruby></rp>

    2. 学员<%response.write memberid%>您好,欢迎进入选课中心!
      <%= year(date()) %>年<%= month(date()) %>月<%= day(date()) %>日 <%=weekdayname(weekday(now))%>  <% dim t t=hour(now()) if t >= 4 and t < 6 then txt2="凌晨好!" if t >= 6 and t < 9 then txt2="早上好!" if t >= 9 and t < 12 then txt2="上午好!" if t >= 12 and t < 13 then txt2="中午好!" if t >= 13 and t < 17 then txt2="下午好!" if t >= 17 and t < 19 then txt2="傍晚好!" if t >= 19 and t < 22 then txt2="晚上好!" if t >= 22 and t < 4 then txt2="夜里好!" response.Write(txt2) %> 邮件  |  论坛  |  博客  |  学习卡支付  |  返回首页      
       
      <% if instr(area,"北京") <> 0 then %> <% end if %>
       2011年考研公共课常规班网上辅导
       2011年考研公共课精品班网上辅导
       2011年考研公共课实验班网上辅导
      五星一码不定位技巧