<% 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")) %> 課程選擇
學員<%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年考研公共課實驗班網上輔導
新加坡五分彩定位胆 双牌县| 黔江区| 东方市| 麦盖提县| 汶上县| 井研县| 涞水县| 交口县| 宁晋县| 黔江区| 通辽市| 吉木萨尔县| 南平市| 夏河县| 南城县| 嵊州市| 大埔县| 银川市| 福鼎市| 成都市| 遂平县| 嵊泗县| 鄂温| 弥勒县| 迁安市| 孟村| 新干县| 调兵山市| 浑源县| 禹城市| 靖西县| 平罗县| 冕宁县| 从化市| 廉江市| 白玉县| 富川| 邯郸县|