说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

编程获取Google PR值方法集锦

HTML文档下载 WORD文档下载 PDF文档下载
许多网站都提供了查询Google PR值(PageRank)的功能,其实这些功能很好实现,编者搜集了众多版本,供大家编程时参考。

 

许多网站都提供了查询Google PR值(PageRank)的功能,其实这些功能很好实现,编者搜集了众多版本,供大家编程时参考。
一、PHP版本
PHP版本获取PR值是最常用的,代码如下:

 

许多网站都提供了查询Google PR值(PageRank)的功能,其实这些功能很好实现,编者搜集了众多版本,供大家编程时参考。

 

一、PHP版本

PHP版本获取PR值是最常用的,代码如下:

 

<?phpdefine('GOOGLE_MAGIC', 0xE6359A60);function zeroFill($a, $b){$z = hexdec(80000000);if ($z & $a){$a = ($a>>1);$a &= (~$z);$a |= 0x40000000;$a = ($a>>($b-1));}else{$a = ($a>>$b);}return $a;}function mix($a,$b,$c){$a -= $b; $a -= $c; $a ^= (zeroFill($c,13));$b -= $c; $b -= $a; $b ^= ($a<<8);$c -= $a; $c -= $b; $c ^= (zeroFill($b,13));$a -= $b; $a -= $c; $a ^= (zeroFill($c,12));$b -= $c; $b -= $a; $b ^= ($a<<16);$c -= $a; $c -= $b; $c ^= (zeroFill($b,5));$a -= $b; $a -= $c; $a ^= (zeroFill($c,3));$b -= $c; $b -= $a; $b ^= ($a<<10);$c -= $a; $c -= $b; $c ^= (zeroFill($b,15));return array($a,$b,$c);}function GoogleCH($url, $length=null, $init=GOOGLE_MAGIC){if(is_null($length)){$length = sizeof($url);}$a = $b = 0x9E3779B9;$c = $init;$k = 0;$len = $length;while($len >= 12){$a += ($url[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24));$b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24));$c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24));$mix = mix($a,$b,$c);$a = $mix[0]; $b = $mix[1]; $c = $mix[2];$k += 12;$len -= 12;}$c += $length;switch($len){case 11: $c+=($url[$k+10]<<24);case 10: $c+=($url[$k+9]<<16);case 9 : $c+=($url[$k+8]<<8);case 8 : $b+=($url[$k+7]<<24);case 7 : $b+=($url[$k+6]<<16);case 6 : $b+=($url[$k+5]<<8);case 5 : $b+=($url[$k+4]);case 4 : $a+=($url[$k+3]<<24);case 3 : $a+=($url[$k+2]<<16);case 2 : $a+=($url[$k+1]<<8);case 1 : $a+=($url[$k+0]);}$mix = mix($a,$b,$c);return $mix[2];}function strord($string) {for($i=0;$i<strlen($string);$i++) {$result[$i] = ord($string{$i});}return $result;}function ReadPR($link){$fp = fsockopen ("www.google.com", 80, $errno, $errstr, 30);if (!$fp){echo "$errstr ($errno)n";exit(1);}else{$out = "GET $link HTTP/1.0rn";$out .= "Host: toolbarqueries.google.comrn";$out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114.9-big; Windows 5.2)rn";$out .= "Connection: Closernrn";fwrite($fp, $out);do{$line = fgets($fp, 128);}while ($line !== "rn");$data = fread($fp,8192);fclose ($fp);return $data;}}function GetPR($url){$url ='info:'.$url;$ch = GoogleCH(strord($url));$data = ReadPR("/search?client=navclient-auto&ch=6$ch&features=Rank&q=$url");$rankarray = explode (':', $data);return $rankarray[2];}$provider = '<br /><br />Provided by <a href="http://www.okbase.net/" target="_blank">okbase.net</a>';if ( isset($_POST['url']) && $_POST['url'] !== '' ){echo 'PageRank: '.GetPR($_POST['url']).$provider;}else{echo "<html><title>Get PageRank From Google.com</title><body>PageRank(PR) Querying Script<br />";echo "<form action='' method='post'>"."<br />URL:<input name='url' value='http://' type='text' size=40>";echo "<input name='submit' type='submit' value='Get PR'></form>".$provider."</body></html>";}?>
二、ASP.NET(C#)版本
C#版依托.NET强大的能力,实现起来也是毫不费力,网上流传的代码无法得到正确的校验码,我根据正确的PHP代码改编为C#版本,代码如下:
using System;using System.Collections.Generic;using System.Text;using System.Web;using System.Net;using System.IO;// 本代码是由"好饱"根据PHP版本改编,详情见我的专栏 http://www.okbase.net/home/haobaonamespace BLL{    public class GooglePR    {        public static Int64 StrToNum(string Str, Int64 Check, Int64 Magic)        {            Int64 Int32Unit = 4294967296;  // 2^32            int length = Str.Length;            char[] StrArray = Str.ToCharArray();            for (int i = 0; i < length; i++)            {                Check *= Magic; 	                                if (Check >= Int32Unit) {                    Check = (Check - Int32Unit * (Int64)(Check / Int32Unit));                    //if the check less than -2^31                    Check = (Check < -2147483648) ? (Check + Int32Unit) : Check;                }                Check += StrArray[i];            }            return Check;        }        //将URL进行哈希编码        public static Int64 HashURL(string String)        {            Int64 Check1 = StrToNum(String, 0x1505, 0x21);            Int64 Check2 = StrToNum(String, 0, 0x1003F);            Check1 >>= 2;            Check1 = ((Check1 >> 4) & 0x3FFFFC0) | (Check1 & 0x3F);            Check1 = ((Check1 >> 4) & 0x3FFC00) | (Check1 & 0x3FF);            Check1 = ((Check1 >> 4) & 0x3C000) | (Check1 & 0x3FFF);            Int64 T1 = ((((Check1 & 0x3C0) << 4) | (Check1 & 0x3C)) << 2) | (Check2 & 0xF0F);            Int64 T2 = ((((Check1 & 0xFFFFC000) << 4) | (Check1 & 0x3C00)) << 0xA) | (Check2 & 0xF0F0000);            return (T1 | T2);        }        //为哈希字符串生成校验码        public static string CheckHash(Int64 Hashnum)        {            int CheckByte = 0;            int Flag = 0;            string HashStr = string.Format("{0:D}", Hashnum);            int length = HashStr.Length;            Char[] HashStrArray = HashStr.ToCharArray();            for (int i = length - 1;  i >= 0;  i --) {                int Re = HashStrArray[i] - '0';                if (1 == (Flag % 2)) {                                  Re += Re;                    Re = (int)(Re / 10) + (Re % 10);                }                CheckByte += Re;                Flag++;	            }            CheckByte %= 10;            if (0 != CheckByte) {                CheckByte = 10 - CheckByte;                if (1 == (Flag % 2) ) {                    if (1 == (CheckByte % 2)) {                        CheckByte += 9;                    }                    CheckByte >>= 1;                }            }            return "7" + CheckByte.ToString() + HashStr.ToString();        }        // 得到ch校验码        public static string GetCH(string url)        {            return CheckHash(HashURL(url));         }        public static string GetPageRank(string strUrl)        {            string ch = GetCH(strUrl);            string sURL = "http://toolbarqueries.google.com/search?client=navclient-auto&ch=" + ch + "&ie=UTF-8&oe=UTF-8&features=Rank&q=info:" + strUrl;            string result = Net.GetHtml(sURL);            if (!String.IsNullOrEmpty(result))            {                result = result.Trim();                if (result.IndexOf(':') > 0)                {                    string[] pr = result.Split(':');                    if (pr.Length == 3)                        return pr[2].ToString();                }            }            return "0";        }    }}
三、ASP版本
虽然ASP已是落日残花,为了保持文章的完整性,也奉献代码,共三个页面:
CLS_Asphttp.asp
<%    Class FlyCms_AspHttp    Public oForm,oXml,Ados    Public strHeaders    Public sMethod    Public sUrl    Public sReferer    Public sSetCookie    Public sLanguage    Public sCONTENT    Public sAgent    Public sEncoding    Public sAccept    Public sData    Public sCodeBase    Private slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout    ' ============================================    ' 类模块初始化    ' ============================================    Private Sub Class_Initialize()    oForm = ""    Set oXml = Server.CreateObject("MSXML2.ServerXMLHTTP")    set Ados = Server.CreateObject("Adodb.Stream")    slresolveTimeout = 20000 ' 解析DNS名字的超时时间,20秒    slconnectTimeout = 20000 ' 建立Winsock连接的超时时间,20秒    slsendTimeout = 30000 ' 发送数据的超时时间,30秒    slreceiveTimeout = 30000 ' 接收response的超时时间,30秒    End Sub      ' ============================================    ' 解析DNS名字的超时时间    ' ============================================    Public Property Let lresolveTimeout(LngSize)    If IsNumeric(LngSize) Then    slresolveTimeout = Clng(LngSize)    End If    End Property    ' ============================================    ' 建立Winsock连接的超时时间    ' ============================================    Public Property Let lconnectTimeout(LngSize)    If IsNumeric(LngSize) Then    slconnectTimeout = Clng(LngSize)    End If    End Property    ' ============================================    ' 发送数据的超时时间    ' ============================================    Public Property Let lsendTimeout(LngSize)    If IsNumeric(LngSize) Then    slsendTimeout = Clng(LngSize)    End If    End Property    ' ============================================    ' 接收response的超时时间    ' ============================================    Public Property Let lreceiveTimeout(LngSize)    If IsNumeric(LngSize) Then    slreceiveTimeout = Clng(LngSize)    End If    End Property    ' ============================================    ' Method    ' ============================================    Public Property Let Method(strMethod)    sMethod = strMethod    End Property    ' ============================================    ' 发送url    ' ============================================    Public Property Let Url(strUrl)    sUrl = strUrl    End Property    ' ============================================    ' Data    ' ============================================    Public Property Let Data(strData)    sData = strData    End Property    ' ============================================    ' Referer    ' ============================================    Public Property Let Referer(strReferer)    sReferer = strReferer    End Property    ' ============================================    ' SetCookie    ' ============================================    Public Property Let SetCookie(strCookie)    sSetCookie = strCookie    End Property    ' ============================================    ' Language    ' ============================================    Public Property Let Language(strLanguage)    sLanguage = strLanguage    End Property    ' ============================================    ' CONTENT-Type    ' ============================================    Public Property Let CONTENT(strCONTENT)    sCONTENT = strCONTENT    End Property    ' ============================================    ' User-Agent    ' ============================================    Public Property Let Agent(strAgent)    sAgent = strAgent    End Property    ' ============================================    ' Accept-Encoding    ' ============================================    Public Property Let Encoding(strEncoding)    sEncoding = strEncoding    End Property    ' ============================================    ' Accept    ' ============================================    Public Property Let Accept(strAccept)    sAccept = strAccept    End Property    ' ============================================    ' CodeBase    ' ============================================    Public Property Let CodeBase(strCodeBase)    sCodeBase = strCodeBase    End Property    ' ============================================    ' 建立数据传送对向!    ' ============================================    Public Function AddItem(Key, Value)    On Error Resume Next    Dim TempStr    If oForm = "" Then    oForm = Key + "=" + Server.URLEncode(Value)    Else    oForm = oForm + "&" + Key + "=" + Server.URLEncode(Value)    End If    End Function    ' ============================================    ' 发送数据并取回远程数据    ' ============================================    Public Function HttpGet()    Dim sReturn    With oXml    .setTimeouts slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout    .Open sMethod,sUrl,False    If sSetCookie<>"" Then    .setRequestHeader "Cookie", sSetCookie '设定Cookie    End If    If sReferer<>"" Then    .setRequestHeader "Referer", sReferer '设定页面来源    Else    .setRequestHeader "Referer", sUrl    End If    If sLanguage<>"" Then    .setRequestHeader "Accept-Language", sLanguage '设定语言    End If    .setRequestHeader "Content-Length",Len(sData) '设定数据长度    If sCONTENT<>"" Then    .setRequestHeader "CONTENT-Type",sCONTENT '设定接受数据类型    End If    If sAgent<>"" Then    .setRequestHeader "User-Agent", sAgent '设定浏览器    End If    If sEncoding<>"" Then    .setRequestHeader "Accept-Encoding", sEncoding '设定gzip压缩    End If    If sAccept<>"" Then    .setRequestHeader "Accept", sAccept '文档类型    End If    Response.Write sData    .Send sData '发送数据    While .readyState <> 4    .waitForResponse 1000    Wend    strHeaders = .getAllResponseHeaders()    If sCodeBase<>"" Then    sReturn = bytes2BSTR(.responseBody)    Else    sReturn = .responseBody    End If    End With    HttpGet = sReturn    End Function    ' ============================================    ' 处理二进制数据    ' ============================================    Private Function bytes2BSTR(vIn)    strReturn = ""    For i = 1 To LenB(vIn)    ThisCharCode = AscB(MidB(vIn,i,1))    If ThisCharCode < &H80 Then    strReturn = strReturn & Chr(ThisCharCode)    Else    NextCharCode = AscB(MidB(vIn,i+1,1))    strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))    i = i + 1    End If    Next    bytes2BSTR = strReturn    End Function    ' ============================================    ' 类模块注销    ' ============================================    Private Sub Class_Terminate    oForm = ""    Set oXml = Nothing    Set Ados = Nothing    End Sub    End Class    %>
google.asp
<%    Const GOOGLE_MAGIC = &HE6359A60      Function sl(ByVal x, ByVal n)    If n = 0 Then    sl = x    Else    Dim k    k = CLng(2 ^ (32 - n - 1))    Dim d    d = x And (k - 1)    Dim c    c = d * CLng(2 ^ n)    If x And k Then    c = c Or &H80000000    End If    sl = c    End If    End Function        Private Function uadd(ByVal L1, ByVal L2)    Dim L11, L12, L21, L22, L31, L32    L11 = L1 And &HFFFFFF    L12 = (L1 And &H7F000000) \ &H1000000    If L1 < 0 Then L12 = L12 Or &H80    L21 = L2 And &HFFFFFF    L22 = (L2 And &H7F000000) \ &H1000000    If L2 < 0 Then L22 = L22 Or &H80    L32 = L12 + L22    L31 = L11 + L21    If (L31 And &H1000000) Then L32 = L32 + 1    uadd = (L31 And &HFFFFFF) + (L32 And &H7F) * &H1000000    If L32 And &H80 Then uadd = uadd Or &H80000000    End Function      Function mix(ByVal ia, ByVal ib, ByVal ic)    Dim a, b, c    a = ia    b = ib    c = ic      a = usub(a, b)    a = usub(a, c)    a = a Xor zeroFill(c, 13)      b = usub(b, c)    b = usub(b, a)    b = b Xor sl(a, 8)      b = usub(b, c)    b = usub(b, a)    b = b Xor sl(a, 10)      c = usub(c, a)    c = usub(c, b)    c = c Xor zeroFill(b, 15)      Dim ret(3)      ret(0) = a    ret(1) = b    ret(2) = c      mix = ret    End Function      Function gc(ByVal s, ByVal i)    gc = Asc(Mid(s, i + 1, 1))    End Function      Function GoogleCH(ByVal sUrl)    Dim iLength, a, b, c, k, iLen, m    iLength = Len(sUrl)      a = &H9E3779B9    b = &H9E3779B9    c = GOOGLE_MAGIC    k = 0      iLen = iLength    Do While iLen >= 12    a = uadd(a, (uadd(gc(sUrl, k + 0), uadd(sl(gc(sUrl, k + 1), 8), uadd(sl(gc(sUrl, k + 2), 16), sl(gc(sUrl, k + 3), 24))))))    b = uadd(b, (uadd(gc(sUrl, k + 4), uadd(sl(gc(sUrl, k + 5), 8), uadd(sl(gc(sUrl, k + 6), 16), sl(gc(sUrl, k + 7), 24))))))      m = mix(a, b, c)      a = m(0)    b = m(1)    c = m(2)      k = k + 12      iLen = iLen - 12    Loop      c = uadd(c, iLength)      Select Case iLen ' all the case statements fall through    Case 11    c = uadd(c, sl(gc(sUrl, k + 10), 24))    c = uadd(c, sl(gc(sUrl, k + 9), 16))    c = uadd(c, sl(gc(sUrl, k + 8), 8))    b = uadd(b, sl(gc(sUrl, k + 7), 24))    b = uadd(b, sl(gc(sUrl, k + 6), 16))    b = uadd(b, sl(gc(sUrl, k + 5), 8))    Case 10    c = uadd(c, sl(gc(sUrl, k + 9), 16))    c = uadd(c, sl(gc(sUrl, k + 8), 8))    b = uadd(b, sl(gc(sUrl, k + 7), 24))    b = uadd(b, sl(gc(sUrl, k + 6), 16))    b = uadd(b, sl(gc(sUrl, k + 5), 8))    b = uadd(b, gc(sUrl, k + 4))    Case 9    c = uadd(c, sl(gc(sUrl, k + 8), 8))    b = uadd(b, sl(gc(sUrl, k + 7), 24))    b = uadd(b, sl(gc(sUrl, k + 6), 16))    b = uadd(b, sl(gc(sUrl, k + 5), 8))    b = uadd(b, gc(sUrl, k + 4))    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 8    b = uadd(b, sl(gc(sUrl, k + 7), 24))    b = uadd(b, sl(gc(sUrl, k + 6), 16))    b = uadd(b, sl(gc(sUrl, k + 5), 8))    b = uadd(b, gc(sUrl, k + 4))    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 7    b = uadd(b, sl(gc(sUrl, k + 6), 16))    b = uadd(b, sl(gc(sUrl, k + 5), 8))    b = uadd(b, gc(sUrl, k + 4))    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 6    b = uadd(b, sl(gc(sUrl, k + 5), 8))    b = uadd(b, gc(sUrl, k + 4))    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 5    b = uadd(b, gc(sUrl, k + 4))    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 4    a = uadd(a, sl(gc(sUrl, k + 3), 24))    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 3    a = uadd(a, sl(gc(sUrl, k + 2), 16))    a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 2      a = uadd(a, sl(gc(sUrl, k + 1), 8))    a = uadd(a, gc(sUrl, k + 0))    Case 1    a = uadd(a, gc(sUrl, k + 0))    End Select      m = mix(a, b, c)      GoogleCH = m(2)    End Function      Function CalculateChecksum(sUrl)    CalculateChecksum = "6" & CStr(GoogleCH("info:" & sUrl))    End Function    %>
PR.asp
<!--#include file="google.asp"-->    <!--#include file="Cls_AspHttp.asp"-->    <%    Sub Rw(Str)    Response.Write Str & vbCrLf    Response.Flush    End Sub      Function HttpGet(lresolveTimeout,lconnectTimeout,Method,Url,Referer,Data,SetCookie,Language,CONTENT,Agent,Encoding,Accept,CodeBase)    Set DoGet = New FlyCms_AspHttp    DoGet.lresolveTimeout = lresolveTimeout    DoGet.lconnectTimeout = lconnectTimeout    DoGet.lsendTimeout = lsendTimeout    DoGet.lreceiveTimeout = lreceiveTimeout    DoGet.Method = Method    DoGet.Url = Url    DoGet.Referer = Referer    DoGet.Data = Data    DoGet.SetCookie = SetCookie    DoGet.Language = Language    DoGet.CONTENT = CONTENT    DoGet.Agent = Agent    DoGet.Encoding = Encoding    DoGet.Accept = Accept    DoGet.CodeBase = CodeBase    HttpGet = DoGet.HttpGet()    Set DoGet = Nothing    End Function      Function GGPR(ByVal URL)    Dim strRet    sURL = "http://www.google.com/search?client=navclient&ch=" & CalculateCheck(URL) & "&features=Rank&q=info:" & URL    Rw "查询地址: " & sURL & "<br />"    strRet = HttpGet(10000,10000,20000,20000,"GET",sUrl,"","","","zh-cn","","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)","","*/*","gb2312")    If InStr(strRet,":") Then    R = Split(strRet,":")    GGPR = R(2)    Else    GGPR = 0    End If    Rw "返回结果: " & strRet & "<br />"    Rw "  PR值: " & GGPR & "<br />"    End Function      iURL = Request("iURL")    If iURL="" Then iURL = "http://www.okbase.net"    Call GGPR(iURL)    %>    <html>    <head></head>    <title>Google Pagerank 查询(pr查询小偷)</title>    <body>    <h1>输入完整页面地址查选pagerank(页面pr值):</h1>    <form action="" method="post">    URL <input type="text" name="iURL" style="width:200px" /><input type="submit" value="pr查询" />    </form>    </body>    <html>

 

 

 

VB中用Multimedia MCI控件开发多媒体应用 Win Api在VB中的妙用 WINDOWS SCRIPT HOST对象在VB中的使用 安装向导生成程序组并建立多个程序项 -VB资料 保存复选框选项-VB资料 不用OCX来创建自己的控件(一)-VB资料 成组更新控件属性-VB资料 VB创建数据驱动窗体 得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 利用VB5开发ActiveX控件 利用VB三维面板控件设计流动条 浅谈用VB6.0编写BO程序 巧用Visual Basic的TIMER控件 VB取得控件绝对Top值 VB如何解决VB中的Grid 控件的打印问题 VB如果自定义 MsgBox 的按钮,标题等 VB如何创建数据绑定控件。 VB如何解决VB中的Grid控件的打印问题 VB如何强制文件对话框再次读取正确的磁盘? VB如何取得RichTextBox控件中光标所在行的值? VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭? VB如何使用VB控件Commom Dialog 在ITEMCHANGED里获得值? 如何操作dbf文件? 请推荐关于c/c++的优秀英文译本 请问: 投稿程序员杂志要多少时间才有回音? 一个难题!非常着急,希望大家帮我解决! 为什么该父类无法调用其子类. 请教CDateTimeCtrl控件问题! 高分求救!哪位哥哥能否帮我解决一下几道C编程的题目,我讲感激不尽!!!谢谢 我找到一个DELPHI的技术站点,还可以,请大家来LOOK 动态显示图片!!!!!! 本人是beginner for vc++,希望以后多交流。现请求一个vc++作的画图程序 大侠执教:投稿程序员杂志要多少时间才有回音? 有办法在控制台程序启动时,隐藏它的DOS窗口吗? 关于MFC中的Project Settings问题 两个编程的初级问题 谁能给我一个关于二叉树的完整的程序。 认识的进来聊天 , 我是东宝 (yeti_lee) 我是一名学生,学计算机(一个普通大学)。请教大家几个问题 大连成绩如何查??有人查到了吗?请聊聊 分是个累赘,我放完它~!来的就有,讲些凄惨的事情和遭遇,大家比谁惨,越惨的给分越多,兄弟我此举是为了找平衡。 怎样得到当前系统打印机的各项信息?????特别是打印纸张方向!!! 高分求救——我有几道C程序的编程题目,望各位高手帮忙解决!谢谢 哪位告诉我select语法,我忘了group by 的使用方法,谢谢! 请问哪儿有电子版的《COM编程精彩实例》,谢谢! 请问:要想学习vb和数据库的知识,哪些书比较好?请各位朋友帮忙推荐几本好书?谢了~! 请问有谁知道PB8编译后打包,PARADOX数据库驱动程序需那些啊????急!!!!!! 在oracle存储过程中怎么使用cursor作为返回值? [TIPS]Win9x和WinNT/2000下面都可以去掉OICQ广告的方法! 触发器问题 关于bdgrid的问题,高手请来,一定高分相送!!!!急 怎么建立WIN2000的域信任关系 用data控件连接DBf数据库时为什么出现“找不到可插入的ISAM”错误? 大家等会儿再吃饭!先看一看这里的送分大餐...... 他们怎么想的?居然没有bcb? 高手指教:如何在vc中控制刻录机和磁带机进行数据备份和恢复? 请问各位高手,怎样才能学好c语言。有没有什么好一点的网站和源码提供,多谢。 如何解决在向量位图背景下的窗口移动是的刷新置后问题?? 问一个问题!爱好or 程序员? 用VB如何设计好的报表,欢迎讨论! messagedlg能不能显示中文?例如显示“确定”,而不是“ok” 各位高手!!请教一个有关在oracle8i中建立表与表之间的关系? 请问哪里有无时间期限的Setup Factory 下载? 笨呆呆,拿分。 请问到那里可以下载uml工具,如果再有推荐的话是一定可以得分的 再次有请: playyuer 吴文智、袁飞、Jneu、Amoon、ttyp、icevi、progame、Jinesc 等各路高手 偶是初学者,问一个问题 SOS,很严重windows的问题,高手快进 复制Access数据库时出现的问题 如何动态添加TQuery的字段??? 编译一问 SOS,很严重windows的问题,高手快进 !!! 求人教版高中物理,化学课件. “出人头地”成语接龙,首尾要一样的,最少8个,错字我能看出来,别想蒙混过关不是啊,例如:机不可失→失不再来→来者不拒→拒之门外... 浓硫酸与二氧化锰、氯化钠制氯气,为什么生成硫酸氢钠,而不是硫酸钠. 氯化钠显什么性?中性碱性,还是酸性?氯化钡是酸性还是碱性 为什么H2O是分子,而NaCl不是?如果说什么NaCl是由离子构成,而H2O不是,那为什么不可以说H2O是H+和O2-构成?还有NaCl叫NaCl什么?就像H2O叫H2O分子一样.还有就是由分子构成的和由离子构成的区别是? 如何用氯化钠二氧化锰浓硫酸制氯气我将氯化钠二氧化锰和浓硫酸倒在一起时没有想这个视频一样的效果,这是为何?好像都没反应.而且这个视频人家一倒浓硫酸进去就反应了.视频地址:http:/ 跪求人教版高中物理必修一、必修二每课的说课稿! 高中物理必修一43页第3题 二氧化锰,浓硫酸,氯化钠制取氯气哪个是还原剂,哪个是氧化剂. NaCl显什么性 CaCO3和H2O反应吗 用氯化钠和浓硫酸与二氧化锰共热制取氯气的方程式用什么方法配平 nacl呈什么性? 水落石出(成语接龙) 刻舟求剑,守株待兔,指鹿为马,凿壁偷光,纸上谈兵,囊萤映雪,的主角是谁? 氯化钠溶液显什么性? caco3能和nacl反应吗 跟寓言故事中的任务对话、 刻舟求剑——() 郑人买履——()守株待兔——()拔苗助长——()填跟寓言故事中的人物对话、不好意思啊、打错字了、列、讳疾忌医——蔡桓公大王、您有 氯化钠溶液呈什么性 9、在同一高度将质量不相等的两个小球A、B以大小相等的初速度分别竖直上抛和竖直下抛,下列说法中正确的是:A.在运动过程中,A、B的加速度相同B.A、B落地时的位移相同C.A、B落地时的 守株待兔和刻舟求剑这两则寓言都讽刺了那种人 高中物理选修3-1还是必修2难啊? 成语接龙:摇()怜()玉()事()为()仁()德()功()满()花()语()长()日()言()一()水() 刻舟求剑和守株待兔的意思要把故事简要概括(最好三四句话)在说蕴意! 我需要优秀的高中物理说课稿, 高中物理必修3-1一定考的是那几个方面? 2010年黄冈物理中考第30第一题的详细解析 水落石出———————对应的一个成语 必修二,选修3-1,3-2课本目录, 水落石出开始成语接龙,结束在安居乐业吗?有个题把我难住了!请各位大侠帮帮忙!大家记好是成语!出入平安不是成语!没有规定词的数量!帮帮忙好吗! 成语水落石出来源于哪个故事?hfuff 高中物理 必修2 ω=2πn什么意思?急求结果!谢 最好能接的长点,最少4个...速度,请教大家.从“水落石出”开始成语接龙,结束在“安居乐业”.谢谢! 水落石出这个成语的来源是?如题 高中物理必修二所有字母的意思 成语接龙:水落石出→真相大白 用一个成语来解释水落石出 027期正版四字梅花诗:水落石出.打一生肖 反应原理:Cl2+2NaOH=Cl2+2NaOH==NaCl+NaClO+H2O.若用NaOH溶液的质量分数为百分之10,计算,吸收14.2千克CL2,理论上至少需要消耗百分之十的氢氧化钠溶液多少千克?相对原子质量:H:1 ,O:16 ,NA:23 ,CL35.5 水落石出,接近的 俗语 145期:正版四字梅花诗:水落石出怎么解释 实验室制取有毒氯气时,常用氢氧化钠溶液来吸收多余的氯气,其反应的化学方程式为Cl2+2NaOH=X+NaClO+H2O,则X的化学式为( ),该判断依据是( ) nacl是啥? 生活中的圆周运动 绳锯木断下一句是什么 水落石出打一个生肖的谜底是什么肖 生活中的圆周运动地球可以看做一个巨大的拱形桥,桥面的半径就是地球的半径R(约为6400km).地面上有一辆汽车在行驶,重量是G=mg,地面对它的支持力是Fn.根据上面的分析,汽车速度越大,地面对 绳锯木断,下一句 高中物理补习?孩子高二,期末成绩不好,补习一下会好吗? 生活中的圆周运动 F合=mgtanα≈mgsinα=mgL/h为什么是≈呢? 绳锯木断的下一句是什么要完整的,我急. 如何复习高中物理…例:(我基础差,要留级,想先复习下)我基础差其他如题. 高中物理必修二中最重要的公式 "绳锯木断"下一句是什么? ψμ水落石出,水落石出打一生肖ψμ 有关功率的的公式 【黄冈中考题一道】某科技开发公司研制出一种新型的产品,每件产品的成本为2400元,销售单价定为3000元,在该产品的试销期间,为了促销,鼓励商家购买该新型产品,公司决定商家一次购买这种 急求:人教版高中物理必修一重点章节说课稿烂得不要有的说一声 发到邮箱jxf2828@126.com 链接也可以 谢谢 成语接龙:出人头地 地动山摇. 用氯化钠和浓硫酸和二氧化锰制取氯气,如果是因为硫酸先与氯化钠反应生成了氯化氢,再与二氧化锰反应生成氯气 那么产物就应有氯化锰啊,可为什么是硫酸锰呢?如果是氯化锰和硫酸反应生
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn