欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

语句未结束 到底错哪了

更新时间: 2014-01-05 01:52:41 责任编辑: Author_N1

 

语句未结束 到底哪里错了?
<script language=vbscript> 
dim c=0 ;
  Function GetBytes2BSTR(p_sHtmlStr)  
  dim sReturnStr ;
  dim i,n ;  
  sReturnStr = ""  
  n = LenB(p_sHtmlStr) ;  
   
  For i = 1 To n ;
  dim sCharCode ;
  dim sNextCharCode ;
   
  sCharCode = AscB( MidB(p_sHtmlStr, i, 1) ) ; 
   
  If (sCharCode < &H80) Then  
  sReturnStr = sReturnStr & Chr(sCharCode)  
  Else  
  sNextCharCode = AscB( MidB(p_sHtmlStr, i+1, 1) )  
  sReturnStr = sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))  
  i = i + 1  
  End If  
  Next  
   
  GetBytes2BSTR = sReturnStr ;
  End Function  
   
  Function getData(strUrl)  
  Dim xmlhttp  
  Set xmlhttp=CreateObject("Microsoft.XMLHTTP")  
  xmlhttp.open "get",strUrl,false  
  xmlhttp.send  
   
  getData=GetBytes2BSTR(xmlhttp.responseBody)  
   
  End Function  
   
  Function test(url)  
  alert url
  Dim strurl,strHTML,oTables,oTable  
  strHTML=getData(url) 
  If(c==0) Then
  getLrc.hid= strHTML
  c++
  check()
  Else 
  lrcbox.innerHTML=strHTML  
 End If  
  Next  
  End Function  
  Function here(s)
alert s
End Function  
  </script>
第一次用vb
运行时报错:语句未结束!
到底哪里未结束啊!高手指点

--参考方法--
VBScript code

Dim c : c = 0
Function  GetBytes2BSTR(p_sHtmlStr)  
  dim  sReturnStr 
  dim  i,n
  sReturnStr  =  ""
  n = LenB(p_sHtmlStr)
  dim sCharCode
  dim sNextCharCode
  For i = 1 To n
    sCharCode  =  AscB(MidB(p_sHtmlStr, i, 1))
    If  (sCharCode < &H80)  Then
        sReturnStr = sReturnStr & Chr(sCharCode)
    Else
        sNextCharCode =  AscB(MidB(p_sHtmlStr, i+1, 1))
        sReturnStr =  sReturnStr & Chr(CLng(sCharCode) * &H100 + CInt(sNextCharCode))
        i  =  i  +  1
    End If
  Next
  GetBytes2BSTR  =  sReturnStr
End  Function

Function getData(strUrl)  
  Dim  xmlhttp  
  Set  xmlhttp = CreateObject("Microsoft.XMLHTTP")  
  xmlhttp.open "get",strUrl,false  
  xmlhttp.send
  getData=GetBytes2BSTR(xmlhttp.responseBody)  
End  Function  

Function test(url)  
  Dim  strurl,strHTML,oTables,oTable  
  strHTML = getData(url) 
  If c = 0 Then
    'getLrc.hid = strHTML 
    c = c + 1 
    check 
  Else
     lrcbox.innerHTML = strHTML  
  End  If
End  Function  

Function here(s) 
   MsgBox s
End  Function 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:41
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2405/
本文WWW.DOC100.NET DOC100.NET版权所有。