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

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

 

 

 

Mozilla将设应用工场 Firefox OS瞄准欧洲南美 Summly创始人:12岁开始编程 17岁公司卖了3000万美元 因SaaS与NoSQL,Oracle雄风不在? 那些年云计算领域的大牛们 回顾:那些被平台方封杀的第三方应用 [热帖推荐] 中国的程序员,真的“短命”吗? 聚焦HTML5移动开发 第六届英特尔杯大学生软件开发大赛开幕 虚拟化技术新星Pluribus Networks获中国VC青睐 可穿戴开发!Pebble Watchface SDK 4月发布 我想做个程序员:一位编程小白的App开发故事 Go 1.1发布,支持向后兼容 Polycode:免费、开源的跨平台(游戏和APP)开发工具 为何大多数云计算公司注定要失败 究竟是什么让Redshift比Hive快10倍?! [评论]将Linux拒之门外 微软被开源社区指控垄断 精细化运营:友盟统计分析SDK 3.0版本发布 “锤子OS”功能猜测与罗式对比营销 神奇!1KB JavaScript代码编写的3D蜜蜂 顶尖技术人员“兜售”的顶尖编程语言、扩展工具等 移动阅读商业化:Flipboard支持用户DIY杂志 全球移动App:Top 52发行商排行榜 知新网CTO:从程序员的视角,实践精益创业 罗永浩锤子ROM:小团队的75项微创新 谷歌知识图谱扩展到Android平板电影中 云计算大战升温 服务器OEM押注OpenStack 如何将战略性的内容策略融入进网页设计中 数字天堂CTO:移动行业应用开发“潜规则” 众联智领CTO:从idea到面目全非的创业产品 CMDN Club 25期:knewone与路况电台的精益创业法则 Windows Blue的孪生兄弟?Office Gemini浮出水面 HTML5开发平台Ludei将支持3D游戏开发 关于更改程序名字的问题! 关于计算机远程终端控制问题 关于onload ASP的参考手册是什么? 更新数据库的日期时间问题!!! 为什么用insert 语句插入数据,数据长度只有4k左右? exchange 出现的怪问题 入门 菜问题 连接服务器的问题 我这是怎么了? 非常着急,关于bean的问题 在单元格中插入html? 关于两个大表连接和索引的问题 灌水、抢分 echo命令的具体使用方法? 在BIOS密码之后,系统引导之前加密计算机的软件有哪些?请帮忙呀 请问 如何获得mysql的原码 关于onload VB中如何使用资源文件?急!急!急! 关于思路,高分求教!分数不够在添 不得不提问了: 怎样防止用户重复登陆!???? **请问Kylix3在红帽7上如何安装? TEST 求php的win98下开发环境,大家帮帮忙。 我想做一个类似于邮件系统中附件功能的程序,请问用的是什么协议,那里有源码? 为什么输出结果不正确呢??? 急救!用ADO在98下与2K下不能同时运行! 主板的认识! 如何删除相同的两条记录 有关Blob造型成oracle.sql.BLOB的问题。 急死我了!!!RS485通讯的奇怪问题,请高手帮忙! 怎样在delete记录时不往log文件中写东西? 签名支持JK10000行动,同意签名者,进来跟贴!到时候咱们的真名或ID会被复印在传单背面,抵制日货,保卫钓鱼岛!!!!!!!!!!!! 迷惑!!!!!高手指点,值得讨论,谢谢! char型怎么转换成String型?(答对结帖) 请问 哪位大侠有loadrunner的中文测试资料提供一下,非常感谢! JS和ASP的问题????? 高手指点 这样划分vlan可不可以???? 数据库超时 VB+SQl 2000 如何实现在程序运行时加减代码? 各位高手给我个提示有关手动添加消息映射的 关于EjbOBJECT和EJBLOCALOBJECT在使用上的区别?? 寻找中俄文转换的工具软件!急! 请问怎么把CLASS程序打包成JAR程序? 如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 学习java到底有没有前途?? 关于ie6和ie5下使用javascript的问题??? 自定义函数返回值的问题 小问题:如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 怎么没人理我啊?我好可怜!linux下线程池谁知道怎样实现,在哪里可以找到资料? 萧蔷恐怖舒淇性感宋慧乔甜 美女星嘟嘴盘点《西游降魔篇》经典台词 黄渤版悟赵薇张柏芝孙俪王菲 细数女星初恋都有《葫芦兄弟》真人版遭吐槽 网友:蛇精何炅赵薇孙俪李连杰 明星屌丝乞丐邋遢赵薇生日李亚鹏送迟到祝福 爱妻王菲霸人大美女翻译似赵薇 细数蹿红网络的“赵薇王菲那英周迅揭人缘超好的真性情女金泰熙宋茜宋慧乔杨幂盘点娱乐圈撞脸明孙俪与儿子超萌互动调皮捣蛋捏脸蛋扯衣宋茜允儿金泰熙李敏镐宋钟基明星校花校赵薇郭晶晶大小S林志玲女星酒后丑态未宋慧乔少女时代全智贤韩佳人机场斗心机人大美女翻译神似赵薇两会美女明星代表刘诗诗谢娜杨幂戚薇唐嫣看女星心机合照刘涛王艳胡静赵薇揭秘内地娱乐圈四大豪陈乔恩谢娜范冰冰李冰冰揭秘明星成名前孙俪赵薇刘德华何炅明星“屌丝”落魄造刘诗诗大s范冰冰赵薇让人爱恨交加的红赵薇处女作电影发布 赵又廷自曝很受高陈意涵范冰冰杨幂 这些女明星的年龄居返还淘宝商家3.2亿元广东3支队伍进入全国总决赛就算脱下军装 我也曾是个兵外地企业来揽才薪酬普涨一到两成8支队伍脱颖而出广雅中学成立名家工作室草根公益组织斩获一半奖金实际行动比致歉更重要重新认识政府和市场的关系微信下单肉菜送货上门 刷二维码可知蔬穗首部书法家传记面市海军和平方舟医院船到达菲律宾灾区中性策略力取绝对收益撞上“国考” 应聘者寥寥樵兴园以善举之心传递火红般热情不动产登记将如何影响普通人生活?大龄妈咪生二胎 最好选三级医院佛山地铁车辆将是佛山造信诚中证800金融指数分级基金西关培正小学124岁啦!新兴产业前景可期
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘