急死了,谁能帮我讲解下这段代码的意思

Private Function strGetDate() As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    
    XmlHttp.Open "Get", "http://www.symental.com/time/date.asp", False
    XmlHttp.send
    
   
    strGetDate = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
    
End Function
   
谁来帮我解释下这段代码的意思,急死我了。这段代码怎么加一个条件语句来判断是否联网呢?网络获取的日期怎么和我自己设定的日期对比得到还剩下多少天?

回答: 急死了,谁能帮我讲解下这段代码的意思

  1. 这个代码是用 Microsoft.XMLHTTP 对象,来获取“网页代码”。
    当然这个算不上是网页的真正“源码”。
    特别是象你这种访问“动态ASP网页”时,得到的都是asp代码生成的数据。

    其实你不用关心是否联网,在这个过程中,写上“异常处理”就行了。
    如果没有联网,或访问外网失败(比如局域网、某些IP的电脑被限制不能上公网),
      在 XmlHttp.Send 那儿,就会引起异常。这时返回空字符串就行了。
    你只要对返回值进行判断,是空串就表示错误,管它是否“联网”呢。
    Private Sub Command1_Click()
       Dim strDate As String
       
       strDate = strGetDate()
       If (strDate = "") Then
          MsgBox "访问网络出错!", 32
       Else
          MsgBox "当前日期是:" & strDate
       End If
    End Sub

    Private Function strGetDate() As String
        Dim XmlHttp As Object
        Dim strRet As String
        On Error GoTo E_Hdl_Get
        Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
        XmlHttp.Open "Get", "http://www.symental.com/time/date.asp", False
        XmlHttp.Send
        strRet = StrConv(XmlHttp.ResponseBody, vbUnicode)
    E_Hdl_Get:
        Set XmlHttp = Nothing
        strGetDate = strRet
    End Function

求高手帮我重构下这段代码

  1. Q

     

    private boolean isAllWhiteNameListShop(List<CqShopReportInfoDO> shopReportInfoList) {
    		for (int i = 0; i < shopReportInfoList.size(); i++) {
    			CqShopReportInfoDO obj = shopReportInfoList.get(i);
    			if (!isWhiteNameList(obj.getStatus(), obj.getDealerId(), obj.getDealerNick())) {
    				return false; 
    			}
    		}
    		return true;
    	}
    
    	private boolean isAllWhiteNameListAuction(List<CqAuctionReportInfoDO> auctionReportInfoList) {
    		for (int i = 0; i < auctionReportInfoList.size(); i++) {
    			CqAuctionReportInfoDO obj = auctionReportInfoList.get(i);
    			if (!isWhiteNameList(obj.getStatus(), obj.getDealerId(), obj.getDealerNick())) {
    				return false;
    			}
    		}
    		return true;
    	}
    想把上面两个方法 重构成一个方法 ,本人水平有限,求高手帮我重构下,谢谢
  2. A
    格式化一下。。。

    CqAuctionReportInfoDO 和 CqShopReportInfoDO 继承ReportInfoDO(status、dealerId、dealerNick…… 共性属性)


    private boolean isAllWhiteNameListShop(List<? extends ReportInfoDO> reportInfoList) { 
        for (ReportInfoDO obj : reportInfoList) { 
            if (!isWhiteNameList(obj.getStatus(), obj.getDealerId(), obj.getDealerNick())) { 
                return false; 
            } 
        } 
        return true; 
    } 

extjs新手求教 求大神帮我看下这段代码有什么问题用浏览器打开之后是空白的

  1. Q
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <title>My EXT</title>
    <meta http-equiv="content-type" content="text/html,charset=utf-8" />
      <script type="text/javascript" src="./ext4.2/ext-all.js"/>
      <script type="text/javascript" src="./ext4.2/bootstrap.js"/>
      <link type="text/css" href="stylesheet" src="./ext4.2/resources/css/ext-all-neptune.css"/>
      <script type="text/javascript">
      function init(){
      var win = new Ext.Window({
                   title: '窗口',
                    width: 476,
                  height: 374,
                  html: '<div>这里是窗体内容</div>',
                resizable: true,
                modal: true,
                closable: true,
                     maximizable: true,
                    minimizable: true;
               });
    23             win.show();
      }
      Ext.onReady(init);
     
     
      </script>
    </head>
    <body>

    </body>
    </html>
    
    
                  
  2. A

    <script type="text/javascript" src="./ext4.2/ext-all.js"/>
      <script type="text/javascript" src="./ext4.2/bootstrap.js"/>
    ---->
    <script type="text/javascript" src="./ext4.2/ext-all.js" ></script>
      <script type="text/javascript" src="./ext4.2/bootstrap.js"/></script>

请帮我看下这段代码的意思

  1. Q
    int CdownPluginMODBUS::DoStart()
    {
    HTHREAD h;
    m_bStopFlag = 0;
    uint Timeout = m_ReadTimeout;
    m_pPort->set_ReadTimeout(Timeout);
    Timeout = m_WriteTimeout;
    m_pPort->set_WriteTimeout(Timeout);
    if(hr_thread_create(&h, (HR_THREAD_ROUTINE)CommonProcessThread, this) == 0)
    {
    m_ProtocolThread = h;
    debug_printf(dfl_lowclass, "\ndevice Num: %d    Down Thread is : %x \n", m_deviceNum, m_ProtocolThread);
    }
    else return 1;
    return 0;
    }
  2. A
    先设置读取数据的超时时间和写入数据的超时时间
    m_pPort->set_ReadTimeout(Timeout);
    m_pPort->set_WriteTimeout(Timeout);

    然后创建一个实时线程 运行CommonProcessThread函数
    如果创建失败 则写入log 
    debug_printf(dfl_lowclass, "\ndevice Num: %d    Down Thread is : %x \n", m_deviceNum, m_ProtocolThread);

    如何成功 则返回 1

来帮我看下这段代码哪里出问题了。为什么总是无法正确调用XML

  1. Q
    源代码如下:

    function loadXML(){
    x = new XML();
    x.ignoreWhite = true;

    x.onLoad = function(success) {
    if(success){
    Music = new Array();
    var myCount = x.firstChild.childNodes.length;
    var rootHandler = x.firstChild.childNodes;
    if(x.firstChild.attributes.autoPlay == "true"){
    autoPlay = true;
    }else{
    autoPlay = false;
    }
    if(x.firstChild.attributes.autoNextSong == "true"){
    autoNextSong = true;
    }else{
    autoNextSong = false;
    }
    var myRef = Music;
    for(var i=0;i<myCount;i++){
    var temp1 = new Object();
    var myRef2 = temp1;
    var myCount2 = rootHandler[i].childNodes.length;
    var secHandler = rootHandler[i].childNodes;
    for(var y=0;y<myCount2;y++){
    myRef2[secHandler[y].nodeName] = ""+secHandler[y].childNodes;
    }
    Music.push(temp1);
    }

    buildNav();
    delete x;
    }else{
    TFtitle.text = "ERROR: Could not load XML";
    }
    }

    x.load(_root.xmlpath==undefined?"mp3Player.xml":_root.xmlpath)//"mp3Player.xml");
    }



    现在如果直接访问http://yuuin.194.0996dns.cn/a.swf  就可以正确打开(为了测试,没有放置默认XML文件)

    但是如果加入传递的数据,就不行  http://yuuin.194.0996dns.cn/a.swf?xmlpath=ccp.xml
  2. A
    1、尽量别用自带关键词来命名;
    2、function内定义的Music,外部当然访问不到。

帮我看下这段代码 主要问题是数字重复

  1. Q

    $newslist1等于50标准link
    //获取所有link
    preg_match_all ('/<a href(.*)<\/a>/isU', $newslist1, $matches);

    $newlist_1=count($matches[0]);
    //如果大于10条link
    if ($newlist_1>=10) {
    //获取任意数字只取10条
    for($i =0;$i<10; $i++)
    {
     $arrNum[] = rand(0,$newlist_1);
    }
    //输出10条
    for ($i=0; $i< 10;  $i++) {
    $i_1=$arrNum[$i];
    //判断数字是否重复
    if (@preg_match ("/$i_1/", $i_2)) {
    //是则不输出
    echo "已经存在";
    echo "<p>".$i_2."";
      echo "<p>".$i_1."";
    //最大的问题 就出在这 如果证明重复了 就少了link 而不是寻找另一条 也就是说超越10条以上的link的时候 如果出现重复比如12条里头重复了两次 就只会输出8条link
      
    } else {
    //不是则输入
      $List.="<li>".$matches[0][$i_1]."</li>";
      $i_2.="".$arrNum[$i]."|";
     // $us++;

    }
    }
    }else{
    //没超过10条link则全部输出
    for ($i=0; $i< count($matches[0]);  $i++) {

      $List.="<li>".$matches[0][$i]."</li>";
     // $us++;

    }
    }




    我的本来意思是 超过10条 就在里头随机输出所有link 不重复的link 这样实现不了 
  2. A
    我来接

求大神帮我注释一下这段代码,每一步干什么的,谢谢!!!!

  1. Q
    在窗体上放一个TreeView控件,但是这个TreeView控件的代码在哪写?从哪里点进去编写代码。还有我下面给出一段代码,求大神帮我注释一下,每一步做什么,这样我会有个清晰的思路。代码如下:
    procedure TfmMDIRSEmpMain.AddType();
    var
      r,i: integer;
    begin
      Screen.Cursor := crSQLWait;
      fcTreeView1.Items.Clear;
      r := 1;
      with cd.qryRSDepartment do
      begin
        Close;
        Open;
        First;
        node[r] := fcTreeView1.Items.AddChild(Nil,FieldByName('Name').AsString);
        node[r].StringData2 := IntToStr(FieldByName('ID').AsInteger); 
        node[r].StringData := FieldByName('Lvl').AsString;    
       Next;
        while not Eof do
        begin
            r := (Length(FieldByName('Lvl').AsString)-3) div 3 + 1;
          node[r] := fcTreeView1.Items.AddChild(node[r-1],FieldByName('Name').AsString);
          node[r].StringData2 := IntToStr(FieldByName('ID').AsInteger); 
          node[r].StringData := FieldByName('Lvl').AsString; 
          node[r].ImageIndex := node[r].Level;
          node[r].SelectedIndex := 26+node[r].Level;
          Next;
        end;
      end;
      fcTreeView1.FullExpand;
      if fcTreeView1.Items.Count > 1 then
      begin
        fcTreeView1.Items.Item[1].Selected := true;
      end
      else
       fcTreeView1.Items.Item[0].Selected := true;
      Screen.Cursor := crDefault;
    end;
  2. A
    搞明白了:
    1、使用fcTreeView
    2、通过数据库生成Tree
    3、全局变量 Node: TfcTreeNodes; 
    4、代码注释:

    procedure TfmMDIRSEmpMain.AddType();
    var
      r,i: integer;
    begin
      Screen.Cursor := crSQLWait;  // 鼠标进入crSQLWait状态
      fcTreeView1.Items.Clear;     // fcTreeView1清空节
      r := 1;                      // 记录 节编号
      with cd.qryRSDepartment do   // 打开表 数据集  
      begin
        Close;                     // 关闭数据集 
        Open;                      // 打开数据集 
        First;                     // 指向第1行数据
        node[r] := fcTreeView1.Items.AddChild(Nil,FieldByName('Name').AsString);  // 创建一个 Text=FieldByName('Name').AsString的叶节点
        node[r].StringData2 := IntToStr(FieldByName('ID').AsInteger);             // 保存ID值 
        node[r].StringData := FieldByName('Lvl').AsString;                        // 保存Lvl值
        Next;
        while not Eof do
        begin
          r := (Length(FieldByName('Lvl').AsString)-3) div 3 + 1;                         // 取R值
          node[r] := fcTreeView1.Items.AddChild(node[r-1],FieldByName('Name').AsString);  // 创建叶节点,放在前一个节点的子节点
          node[r].StringData2 := IntToStr(FieldByName('ID').AsInteger);                   // 保存ID
          node[r].StringData := FieldByName('Lvl').AsString;                              // 保存Lvl
          node[r].ImageIndex := node[r].Level;                                            // 设置节点的图像
          node[r].SelectedIndex := 26+node[r].Level;                                      // 设置节点选择Index
          Next;                                                                           // 下一行
        end;
      end;
      fcTreeView1.FullExpand;                              // 展开Tree
      if fcTreeView1.Items.Count > 1 then                  // 如果有2个叶节点
      begin          
        fcTreeView1.Items.Item[1].Selected := true;        // 选择第2个节点 
      end
      else 
       fcTreeView1.Items.Item[0].Selected := true;         // 选择第1个节点 
      Screen.Cursor := crDefault;                          // 鼠标恢复默认
    end; 

跪求!!急死了,大家帮帮忙啊

  1. Q
    最近公司里SAP系统使用了一个软件,是拖外面公司做的,使用PB开发,现在软件开发好了,交给我让我改个东西
    正文:发现PB连接SAP使用了VB编写的OCX控件,LogonSap(),OCX控件直接和SAP数据交互。现在有问题
    1:我修改OCX控件重新编译后把原来的覆盖掉就不能登陆SAP了,提示LOGONSAP这里出错了。再把原来的覆盖回来又能用了,请问是什么问题。
    2:PB该如何调用VB的OCX控件,为什么用OLE调用控件后不能用,不管是原来的OCX,还是编译后的OCX。而它原代码不去动他我测试却能用。

    在VB或PB中引用什么和需要注册什么SAP OCX等。
    1.2. 在VB或PB中如何登录连接到SAP系统。
    1.3. 在VB或PB 中如何去调用RFC函数。
    1.4. 在VB或PB中如何将数据资料上传至SAP系统。
    1.5. 在VB或PB中如何获取上传数据资料至SAP系统,成功或失败等消息
  2. A
    他是不是把logon的id/password写到ocx里了?参考一下早些年我在VB下面开发的吧:

    http://blog.csdn.net/jhzyz/archive/2006/02/15/599825.aspx

    现在ECC6.0已经不建议用RFC调用了,效率太低。上面的希望能帮到你。

急死拉急死拉,大虾帮帮忙啊

  1. Q
    如何分配FTP用户极登录其口令
  2. A
    www.skycn.com

请高手进,帮我讲解下ssl单向登录的原理吧

  1. Q
    我做了个SSl登录,tomcat配置好了,用了struts,在登陆页面上能显示小锁头,现在的问题是,当我填写了信息发送到后台的时候,信息在网络上传输的已经是加密的了吗,我在后台取这些东西的时候该怎么取,直接从struts的from中取行吗?谢谢回答
    问题补充:
    额,简单的说我就是想我登录的信息在网络上传输的时候是加过密的,不希望被人截取,你的意思是说如果没有通过SSL就不能到达登录的页面吗?
    问题补充:
    我只做了服务器的证书,如下
    生成密钥
    keytool -genkey -alias tomcat -keyalg RSA -keypass changeit -storepass changeit -keystore server.keystore -validity 365


    导出证书
    keytool -export -trustcacerts -alias tomcat -file server.cer -keystore server.keystore -storepass changeit


    导出到jvm里
    keytool -import -trustcacerts -alias tomcat -file server.cer -keystore "%JAVA_HOME%/jre/lib/security/cacerts" -storepass changeit

    如果只做单向认证的登录,也就是不用确认客户端是谁,也要生成客户端证书吗?
    问题补充:
    恩,谢谢了

    问个白痴的问题,也就是说用了ssl的话客户端信任了证书后,在网路上传输的数据到web服务器都是加密了的吗?这个一直没搞懂

    yalucas我看是开源的,商用的话会收费吗?
    问题补充:
    使用yalucas必须启动它给的server才行啊
    问题补充:
    我的意思是如果我有个项目要用这个东西,就要还启动这个服务器哈
    问题补充:
    用到项目里完全没反应了,- -!大概是一些参数配错了,完全不懂那几个参数的意思,大哥有不有例子直接发份个给我吧,谢谢了
    问题补充:
    我没用msn,[email protected],谢谢了
  2. A
    给你的邮件已发送。

    以下收件人已自动保存到联系人中:
    •  [email protected] (已保存为ququjioulai)

       请查收!!