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

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

 

 

 

【Hadoop技术博客推荐】Hive的那些事 Twitter联合创始人推社交搜索应用Jelly 马云“食言”进军手游分成比例8:2,开发者可拿7成 CodeCombat游戏全面开源:玩游戏也能学编程 Netflix首席云架构师Adrian Cockcroft加盟Battery Ventures Android 4.3附体:RIBX发布FB/Ti 互联网手表 IE11界面布局的秘密武器:Quero Toolbar 【开源专访】Node-Webkit作者王文睿:桌面应用的全新开发方式 CentOS归属红帽:企业级Linux领域社区与商业的融合 印度初创公司Little Eye Labs证实已被Facebook收购 雅虎收购Aviate:重在提升用户体验 SDN领域硝烟再起,Oracle将Corente收入囊中 Hadoop科普文——常见的45个问题解答 CES 2014:奥迪下一代汽车将采用NVIDIA的芯片! Cocos 3.0 Beta发布:更易用、更友好 开拓新兴市场?诺基亚或推Android手机,UI界面遭泄露 预测2014大数据值得关注的8个发展方向 霸主地位再临挑战?Salesforce CEO,我们不只有Oracle LBS应用新星、“司机好助手”微车借力移动互联网,志在打造车主的个人移动门户 新一代IDE Light Table开源:让编程工作更简单 图片应用也能高大上,看Cooliris如何玩转无人机 拥抱Spark,机遇无限——Spark Summit 2013精彩回顾 1月10日:改变世界的iPhone七岁了,你是传奇! 同洲电子推出首款手机操作系统960OS 免费授权使用 如何在Windows 8.1的IE11中打开同步选项卡? 25年老对手评价微软:换CEO可行,但是太迟了 【PPT集萃】十位一线专家分享Spark现状与未来(三) 万元奖品等你拿!2014创客118新年大Party! Firefox OS的2013回顾和2014展望 Strom8 CEO:搞好手游开发,合伙人很重要 2013年Q4全球PC出货量同比下滑6.9% 已连续下滑七个季度 这个问题让我有点晕!——安装与部署项目! 空调有坏了!!!! 安装论坛过程中遇到的问题!!!!!! 关于使用TC35Modem发送短信的问题,用超级终端可以,用N多个程序连接端口都不行。 "native code outside the VM"是什么错误呀 win2000 VPN方式的网络的实现。 datagrid控件的数据绑定问题. 请高手教我如何搭redflag linux下JAVA开发环境,急,另给分 如何删除一个字符串的前10个字符? 资料档案库是用来干嘛的? 用EJB做后台的参数传递。高分请教! 在ASP中对数据库操作是否可以用事务提交啊? TOMCAT+SQLSERVER连接池配置问题~~高分请教~ 请教!!!如何在IntraWeb控制IE? 如何远程对局域网内的某一台计算机(假设其计算机名为comm1)实施关机操作? 为什么连不上CVS服务器? 如何用ASP读取XML中节点的属性值? 如何使用jspsmartupload 一个简单问题请进来look一下 我所知道的论坛常用语,自己以为算得上的可以往上加啊! 如何自画窗体或者PANEL,让小图象在上面排列,然后再根据顺序,一次改变小图象呢? asp.net 上传图片问题? xml中怎么取得这个值呀? 请大家给介绍一本学VC++.NET的书!谢谢 有谁用过solpartwebcontrols.dll控件来建立菜单的,请进! pcanywhere联机方式 高手请进,关于MFC的消息映射。 问一个可能是低级的问题:嵌在网页中的Windows Control能不能打印 请教:我用一个COMBOBOX作为存放表字段名,如何SELECT搜索满足条件 “三个代表”具体是指什么,希望各位JJGGMM帮忙解释一下了,谢谢!(90度鞠躬!!!!~~) 如何将装入到graphi字段的图片压缩?? 看过windows程序设计的朋友请进来 asp调用存储过程问题请教!!!!急!!!! IIS不能使用了该怎么解决? 请教C#问题(1)?? Oracle Intermedia Text支不支持中文的模糊查询 我是ORACLE菜鸟,现有一SQL语句(SQL Server语法),想转换成ORACLE语法,请指点 数据库连接问题??????????? 大虾,请看这里看看? vb中字符串中怎么输入双引号(")或单引号(')? 大家帮忙看看为什么这段代码不工作? ████ 这个帖子骂人,请斑竹秉公处理!!!!!!!████ 怎么样让时间加一个差值; 在另一个类中,怎样给Radio或Combobox赋值 ~~~~向各位高人请教三层线程模型,分可以另开贴加。 new出来的idicmpclient的onreply事件怎么响应? 那位大虾帮我看一下这断代码(JSP高分请教) 帮帮忙啦,哪位同志用过mscomm控件做点对点拨号通讯的 AspRunner是个不错的辅助编写ASP页面的工具,请问哪里有破解下载的啊?谢谢了! 2010的初一期末测试卷的答案古人的一腔“愁”绪,常在诗文中流露.柳宗元在《小石潭记》 中用“凄神寒骨,悄枪幽邃”表现了“愁”的难以排解,李白在《宣州谢跳楼饯别校书叔云》 中用“___ 有没有人知道 moody blues中文意思Declan唱的那首, 谁知到moody的意思 konwledge的中文意思是什么? 美国moody's analytics是什么? 大家对调查问卷的活动熟悉哪个?来给提供个参考. 分别写出工业上制造①煤气②水煤气的反应方程式,并指出还原剂和氧化剂,指出哪种物质发生还原反应?哪种元素的化合价降低了? 辽国为什么灭不了北宋金国却这么轻易呢 join in fun用法 on the left have fun in the neighbrhood是什么意思啊 人民币即期汇率连破四关口 逼近“5时七部委9负责人“应考”科技经费使用北京地铁10号线一个月故障五回 官方南宁:警方在拆违现场遇暴力抗法被迫用美“杀死中国人”节目被删 万人在白宫北京脖颈卡护栏女子恢复呼吸 丈夫否认印度少女回家途中遭轮奸 事后遭歹徒焚沈阳“土豪别墅”未批先建 系村委会主部分赣南脐橙由青果催熟 染色打蜡后上星巴克CEO对中国媒体抱怨咖啡售价高四川平江县一粮站站长组织公款旅游被撤责编:郝 青邮箱:haiwaiban马年第一场雪,让大家有点小雀跃富阳 “权力清单”打造阳光政府“五水共治”的战略意义现实路径永康细化落实治水责任 水质好不好 每多条高速限流封道,部分客运班车受影响风雪问民生 冷暖总关情一场瑞雪,润了龙井甜了小菜载6遗体回港较真委员三年三提案 呼吁之江大桥通行2013杭州市国民经济和社会发展主要
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘