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

编程获取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>

 

 

 

中国工程院院士李德毅:大数据时代的认知计算 创新工场联合创始人汪华:2013年中国移动互联网进入深入区 百度副总裁李明远:解答关于百度轻应用的八大疑问 谷歌推出PNaCl,帮助开发者在任何硬件和网站上运行代码 阿里云:双十一350亿交易额的幕后英雄 索尼移动智能设备全球技术总监Goran Andersson:索尼移动可穿戴设备解决方案 腾讯社交网络事业部副总裁陈磊:腾讯移动开发者服务体系 基调网络副总裁陈靖华:全面掌握移动应用性能 蓝港在线创始人王峰:手游新时代下的机会与挑战! Couchbase CEO Bob Wiederhold:数据库云端同步,移动应用开发的未来 三星电子大中华区副总裁黄伽卫:构建移动互联生态,解读内容服务新方向 MDCC 2013移动开发者大会:新浪潮,新硬件! 网站建设,如何平衡产品特性和利益需求? 开发者是如何提升技能水平的 Databricks核心成员专访:大数据时代“智能手机”Spark 数据密集、快速启动、核心应用,IBM存储重兵布阵 企业移动应用与BYOD:移动互联大势所趋 “首届智能硬件峰会”上午会议亮点汇总 代价究竟高不高,苹果为什么要在Android专利诉讼上花费2亿美元? 产品与设计专题论坛(下):App之美 产品与设计专题论坛(上):扁平还是拟物?产品说了算! 首届移动娱乐游戏峰会:中外手游的交锋与对抗(下) 研发人员超过500,基金会金牌会员,华为豪赌OpenStack New way of thinking:索尼SmartWatch 2应用开发马拉松大赛圆满结束 离了你地球照样转,谷歌地图并非苹果的必需品 面试必备的9大成功秘诀 Chuck Goldman:乔布斯从来不会说苹果不是企业应用的公司 全球最大的图片社交分享网站Pinterest发布首个API UX设计程序的五个谬论 研发周报:2013年美国开发者薪资调查报告 【开源推荐】PredictionIO:构建预测功能的机器学习服务器 请高手帮帮我!!! 如何改变打开、保存、另存为文件对话框中缺省的文件类型? 为何我的程序在VC编辑环境下按CTRL+F5不能正确RUN,在资源管理器下能正确RUN? make文件是怎么回事? oracle中long类型是什么类型? PB简单画图?保存到库表中? 用程序代码建立表结构的问题 怎么在状态栏中加入竖线分隔,而且调整字体的大小? 请高手帮帮我!!!! jbuilder4的enterprise setup需要weblogic51,但我的是weblogic6,应该怎样才能让jbuilder支持6啊? 关于数据库的并发操作 谁知道哪里有vb下载? 哪有可下载的AUTOCAD2000 如何用VB实现存折的打印???? 请教给TImage加滚动条的问题 我和她在一起的话,会开心吗 请大家看看这条语句有什么错? 关于isdn在win2000下共享的问题 各位水友,有力的出力,没力的看看,拜托 请从位高手帮小弟解决一个棘手的问题……………………多谢!!!!!!! ALLTEC(荔枝)兄弟,兄弟我接帖太快 :( 請這邊來. ★★★ 救命啊! VC 用ODBC访问 Access 数据库的问题 guo->你在www.linuxforum.net中叫什么?有个guoemail是你吗? 软件发布:市场摊位租赁管理系统Ver1.0 软件发布:量和单位转换软件(免费版) 软件发布:五笔快打 在listview中的各个记录listitem中,有没有双击记录的事件 软件发布:伏羲服装鞋业购销存管理系统 软件发布:进销存商务管理pcft-jxc 征集各地童谣.唤醒儿时记忆! 今天我请客! 有关vb调用excel的问题! 有没有关于BDE的单独的分发程序? VB中报表预览打印能不能实现象EXCEL中一样的“按比例缩放”?如何实现? 单机版流量统计 关于Delphi6的安装问题 动态计算公式怎么实现?? 常用的英文字体是什么? 在通信过程中怎样做到防监听、防篡改? 各位大虾现欲用java开发一套网上投票表决系统 应该看什么书?用什么开发工具?(一定给分!) 关于winsock的问题,急急 怎样使用VB6中TREEVIEW控件? 我真的要疯了! 这里有很多Delphi6的控件! 如何在ASP中传递多个参数?displaymsg.asp?page=1在后面我还想加另外一个参数 有没有喜欢画漫画的? 如何得到ActiveX控件的窗口句柄 请问mif文件格式以及、读写方法?高分求解 sco unix的root口令忘了,谢谢. 在PowerBuilder中使用Microsoft Web浏览器控件 ,这个控件在ole中怎么没有啊? 急盼有人答复!!!!!! 1.甲乙两车同时从AB两地相对开出,第一次相遇时,两车离A地是全程的五分之二;相遇后两车继续前进,到达BA两两地后立即返回,第二次相遇时,甲车离A地是全程的四分之AB两地相距多少千米?2.甲 (最好回答可以赢得财富值50)计时为10分钟内.1、图上20厘米表示实际480千米,这幅图的比例尺是().2、一个长方形的长宽高分别是9cm、4cm、5cm,它的体积是()cm³,表面积是()cm².5、 某工作如果由第一、二、三小队合干需要12天才能完成;如果由第一、三、五小队合干需要7天才能完成;如果由第二、四、五小队合干需要8天才能完成;如果由第一、三、四小队合干需要42 四个小朋友去钓了88条鱼,甲给乙五条,乙再钓两条,丙多钓一倍,丁少钓一倍,这时他们钓的雨都相等,请问他们每人钓鱼多少条. 17.菜场运来的萝卜比白菜多1.52吨,卖出0.2吨萝卜和0.4吨白菜后,白菜和萝卜的重量的比是7:9,原来各运来多少吨? 我想要小学一年级上学期的数学题在哪里找 问几道数学题,对了重谢1.已知直角梯形abcd中,ad平行bc,ab垂直bc,ad等于12,bc等于18,dc等于10,点p在bc上移动,则当pa+pd取最小值时,三角形adp以ap为底边上的高是————还有这个题 六年级奥数题,超急!要列计算过程!19.仓库里有一批化肥,运走45吨后,又运走余下的40%,这时剩下的化肥和两次共运走的同样多,仓库原有化肥多少吨? 三个人同时吃3个西红柿,用了3分钟吃完,6个人吃6个西红柿需要几分钟吃完?(仅用加减法列个式子) 于是有几道数学题>求各位高手解答.【七年级】初一> 红星厂制造一批零件,计划每天制造200个,15天完成,实际每天超产50个,多少天可以完成任务? 0952873641 3的前面第三个的后面第五位是几?到底多少呀 能不能讲下 5555555 跪求两道数学题的解(10分钟内回答双倍分!)已知关于x,y的方程组{x+y=2k+7 x-y=4k-3 的解为正数(1)求K的取值范围; (2)化简|9k+6|-|2k-10|.一定要有过程,谢谢! 1.甲、乙两箱苹果的数量的比是4:5,如果从甲箱取12个放入乙后,甲、乙两箱粉笔的数量比是7:5,两箱苹果共有多少个?打错,是甲乙两箱苹果的数量是7:不是粉笔,还有,刚开始甲、乙两箱苹果的 小学六年级奥数题,帮帮忙,最好有过程,谢谢!菜园里西红柿获得丰收,手下全部的八分之三是,装满一些筐还多24千克,收完其余部分时,又刚好装满6框,求共收西红柿多少千克? 如图,已知三角形ABC和三角形BDF都是等边三角形,试说明AE=CD的理由.图的地址在上面,是我自己画的可能画不好请多多见谅。中间那个交点是点E 1.一根柱子长方体,上、下底面和天花板和地面连接,长50厘米,宽40厘米,柱高8米.上、下底不需要上砖,四面贴砖,每平方米砖50元,贴完四面需要多少元?2.小强有邮票87张,小红有48张,小强给了小红 小学六年级奥数题 要过程的在第16届广州亚运会上,中国代表团取得了金牌第一的成绩.获得的金牌数比铜牌数的2倍还多3块,如果金牌再多1块,那么铜牌就是金牌的49%,银牌是金牌数的59.5%.问 1:甲乙两数之和是42,甲的3倍等于乙数的四倍,甲和乙各多少?2:两数之差是7,又知道两个数扩大3倍后和为45,则两数分别是?3:We have a (three) bills.括号提问! 1.一个数的9分之17倍是34.这个数是多少?2.甲数与乙数的和是16,甲数是乙数的3分之1.甲、乙两数个是多少?3.400减去它的4分之1后,正好等于一个数的5分之3,求这个数是多少? 两段圆柱的体积之差是314立方厘米.若将它们分别削成底面是最大正方形的长方体,则两个长方体体积之差是多少立方厘米? 1.二次函数s=1/60v^与s=1/150v^的图像有什么相同和什么不同?2.二次函数y=-3x^的图像与y=3x^的图像有什么关系?它是轴对称图形吗?它的开口方向、对称轴和顶点坐标分别是什么?二次函数y=-1/2x^的图 列式计算,红花有60朵:列式计算1.比黄花多1/5:2.是黄花的1/3:3.比黄花少1/6:4.黄花比红花多2/3:5.黄花比红花少1/6:6.黄花是红花的7/10:饲养场养鸡480只.鸡比鸭多1/8,鸭有多少只?一共有多少 实验室了有两个等高的容器,圆锥体容器的半径为9厘米,圆柱体容器的半径是6厘米,现在圆锥体容器装满水倒入圆柱体容器中,这是水深比容器的高度的6/7低3厘米,两个容器的高是多少厘米? 答得好 某市为了合理用电,某市鼓励用户安装“峰时”电表,该市原价每度0.53元 改装新电表后 每天晚上10时到次日早上8小时为“谷时”,收费标准是每千瓦时0.28元;其余时间为“峰时”,收费 一道奥林匹克的数学题,一辆车从甲地到乙地.如果把速度提高20%,可比原定时间提前1小时到,如果以原定时间1小时到达,如果一原定速度,如果以原速度行驶120千米后,则可以提前40分钟到达,那么 :用10张同样长的纸条粘贴成一条长51厘米的纸条.如果每个粘贴处都重叠1厘米,那么每张纸条长多少厘米? 问个简单数学题10分钟答出来给15分 了若X等于它的倒数,则(x+2)(x-3)/x-3÷x-3/(x-2)(x-3)的值是?带过程最好 六年级语文数学题!在线等!数学题:1:李叔叔去年按每股4元的价格买了民生银行股票2500股,到今年10月1日按每股6元的价钱卖出.在股票交易中,无论买卖都要缴纳0.3%的印花税和0.2%的其他费用. 1、一个长方体的长和宽都是5厘米,把它从长的中点截成两个相同的长方体后,得到的一个长方体表面积比原来大长方体表面积少120平方分米,原来长方体的体积是多少?2、两种商品的价格比试7:3 三十一又七分之二减二十二又十三分之六加四又七分之五加十一又十三分之六 造句:鹅毛般的苇絮恶狼般的眼睛为了 ...为了...为了.哑然失笑:急中生智:名言名句大提问挫折:灵感:成功:上衣和裤子的价格各是多少元?裤子的价格是上衣的三分之一,一套衣服共320元 1.某单位食堂一月内购买了三次大米,后两次购买数量是前一次的两倍,由于数量增加,每次加个都比前一次优惠10%,共用去2536.8元.如果下月一次性购买同样多的大米,可至少节约多少元?2.一个长 有十棵树,种成五行,每行种四棵,怎么种?十二棵树种成六行,每行四棵,又该怎么种? 一:忽然,像一阵风吹来的,远处的小丘上出现了一群马,马上的男女老少都穿个色的衣裳,群马疾驰,襟飘带舞,像一条彩虹朝我们飞来.“像一阵风吹来”说明________________,“彩虹”说明_____________ 丙在计算除法(有余数)是,吧除数137写作173,商多3,余数相同.求正确德商和余数 已知关于x的一元一次不等式3x+a/-13<3x-a/2的解集为x<7,求a的值. 两人:A,B从甲地和乙地同时出发,相向而行.第一次相遇离甲地5千米,然后继续走.走到两地后立即返回,第二次相遇离乙地2千米.问:甲乙两地相距多少千米? 一辆汽车共载客50人,其中一部分人买A票,每张1.20元;另一部分人买B票,每张1.00元,售票员最后统计出所卖的A票比B票多收入16元.买A票的有多少人?绝对要有解法,带讲解的我可能会追加的!赶快, 给我解个数学题,我不会解某人去银行存钱,利率是5%,是复利.此人第一年取1万,第二年两万,第n年取n万,要求每年都能取到钱.求此人一次性至少要存多少钱? 一辆车从甲地开往乙地,如果将车速提高20%,可以提前1小时到达,如果按原速行驶120千米后,再将车速提高25%,可以提前401分钟到达,甲、乙两地相差多少千米? 要把题目类型和解法写出来, 在平面直角坐标系中,已知反比例函数y=负x分之3m,和一次函数y=kx-1的图像都经过点p(m,-3m).求反比例函数的解析式. 1、长72米的列车,追上长108米的货车到完全超过用了10秒,如果货车速度为原来的1.4倍,哪么列车追上到超过货车就需要15秒.货车的速度是每秒多少米?2、一座大桥长1275米,一列火车过这座大桥.从 一个羽毛球4元,一个乒乓球2元.买这些花了100元.如果把羽毛球都换成乒乓球,乒乓球都换成羽毛球,则需要花92元.原来买这些乒乓球和羽毛球各多少个? 1.小华读一本书,当他读了全书的三分之二时,发现已经读了的页数比剩下的多30页,这本书多少页?2.求出图中阴影部分的面积.单位 cm总体是个半圆,画的不太标准,看懂得来算了,第二题大家都不 一列客车从甲城开往乙城,每小时行60千米,行了2小时后,从乙城往甲城开出一列货车,4小时与客车相遇,这时货车行了全程的3分之1,两城相距多少千米? 游乐中心内一个长方形游泳池,长25厘米,宽12.5厘米,深1.2厘米.如果用直径20厘米的进水管向游泳池内注水,水流速度按每分100厘米计算,注满一池水要多长时间? 一道数学题,十分钟内解答家100~一个晒烟厂用100克的海水可以晒出3克盐如果一块盐田一次放入5000吨的海水可以晒出多少吨盐? 请用算式答小李算长方形的体积时,误将宽多算了五分之一,高少算了四分之一,结果比正确答案少了40立方厘米,那么该长方形实际体积是多少?大家请用算式答!大家请不要回答的太深奥,我才 求助小学六年级寒假作业一道数学题解法甲、乙两人以匀速绕圆形跑道按相反方向跑步,出发点在直径的两个端点,如果他们同时出发,并在乙跑完100米时,第一次相遇,甲跑一圈还差60米时第二次 10分钟之内回答,谢在数轴上的点A对应的数是-3又1/2,那么与点A相距3个单位长度的点所表示的数是:________.错了 小学(超难的)我国个人所得税规定;个人月收入超过800元的部分应缴纳个人所得税,超过部分中,个人所得税率为;超过部分 500元 501~1500税率 5% 10%叔叔上月的税后工资为1500元,他交纳了多少 求这2道数学题解法1:求f(x)=cosx-1/2cos2x的最大值(x属于R)2:求sin10°sin30°sin50°sin70°的值 一共有两道哈.1、一桶油,第一次倒出它的六分之一,第二次比第一次多倒出20千克,这时已倒出的油与剩下的油的比是7:5,这桶油原来有多少千克?2、甲、乙两个书架,共有图书3000本,甲书架上本数 甲乙二人分别从东西两村同时相向而行,第一次相遇于距东村36公里处.二人继续前行,至目的地后折返,在距东村54公里处第二次相遇.问::东西两村的距离. 求2道数学题的解法1:tan71+tan49-√3tan71·tan492:(1-tan17)/(1+tan17) + cos146/(1+sin34) 几道数学题,请各位高手解答1. X的平方+5X-8,答案上写的是Prime什么意思???2. a的平方—3a+2ab-6b3. 12d的三次方+22d的平方-70d4. a的8次方-2565. what is the sum of three consecutive integers?为什么 《当堂练》上的六年级数学题,十分钟内1.有一个底面半径是2cm,容积是31.4毫升的圆锥形容器的高是多少厘米?(算式,2.一个圆柱体和一个圆锥体的底面积和高都相等已知圆柱底面周长是12.56分 ABCDE×ABCDE———————XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX———————XXXXXABCDE 求A+B+C+D+E=?A= B= C= D= E=ABCDE不可能是零
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn