武汉卡尔玛瑜伽--光谷

<% xDb_Conn_Str="" xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/52yujdb2.asp") & ";" set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str If Err Then err.Clear Set conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If function getsub(tempstr,leftn) If IsNull(tempstr) Or tempstr = "" Then getsub = "" Else Dim i, n, k, chrA k = 0 n = Len(tempstr) For i = 1 To n chrA = Mid(tempstr, i, 1) If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then k = k + 1 Else k = k + 2 End If if k>=leftn*2 then getsub=left(tempstr,i) Exit Function end if Next getsub=tempstr end if end function function intSql(Numeric) if IsNumeric(Numeric) then intSql=Numeric else intSql=0 end if end function '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr '自定义需要过滤的字串,用 "|" 分隔 Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare|or" '---------------------------------- Fy_Inf = split(Fy_In,"|") '--------GET部份------------------- If Request.QueryString<>"" Then For Each Fy_Get In Request.QueryString For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then Response.Write "" Response.Write "非法操作！系统做了如下记录↓
" Response.Write "操作ＩＰ："&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间："&Now&"
" Response.Write "操作页面："&Request.ServerVariables("URL")&"
" Response.Write "提交方式：ＧＥＴ
" Response.Write "提交参数："&Fy_Get&"
" Response.Write "提交数据："&Request.QueryString(Fy_Get) Response.End End If Next Next End If %> 武汉卡尔玛瑜伽--光谷

简介：

课表 -- 月日至月日

时间	星期一	星期二	星期三	星期四	星期五	星期六	星期天
12：20- 13：20	排毒瑜伽龚伟	舒展瑜伽 Echo	热瑜伽小冬	静心瑜伽龚伟	曼陀瑜伽 YoYo	调养瑜伽 CiCi	能量瑜伽 YoYo
15：00- 17：00	培训	培训	培训	培训	培训	经典瑜伽培训龚伟	休息
17：10- 18：00	太极	六字诀	太极	六字诀	太极	经典瑜伽培训龚伟	休息
18：30- 19：30	热瑜伽小冬	静心瑜伽龚伟	舒展瑜伽坦尼娅	普拉提龚伟	热瑜伽小冬	舒展瑜伽 Echo	排毒瑜伽 Echo

最新活动：

电话：(027)--87775150，62286580
地址：东湖高新（华中科技大学东校区）对面的中商平价21楼，乘坐703，302，518，519路可以直达

版权所有：武汉卡尔玛瑜伽健身馆 © 2005-2008 技术支持：武汉奥网科技