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

编程获取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 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 捕捉屏幕图象 -VB资料 放置“透明”的图片-VB资料 分割图像的方法-VB资料 如何将整个画面暗下来,如同关机前一般-VB资料 VB获取桌面图象 简单介绍透明位图的实现方法 -VB资料 将图片「非重叠显示」填满整个表格视窗 -VB资料 将英文字母及阿拉伯数字旋转任意角度 -VB资料 将真彩色图像变为256色灰度(BIG5码):-VB资料 VB利用Image控件实现图形浏览程序 利用VB捕捉并保存屏幕图象 切割一个Container中的图片 -VB资料 VB如何改变桌面的图片? VB如何实现“百叶窗”的图形特效? VB如何实现霓虹灯效果 VB如何在VB中用API获得EXE文件图标并显示在Picture控件里 VB如何在VB中直接显示无格式256灰度级图像 VB如何在窗体中平铺图片? 三维字的实现 -VB资料 关于网络代理软件WINPROXY Server 2.0的设置的问题。 页面丢失 如何把TListView控键里面的内容输出到打印机! 请问:*.gsp格式文件,用什么打开? *** 高分,请问一个比较难的问题。哪位高手可以解决? *** 如何实现两台上INTERNET计算机之间文件传送? 关于网络代理软件WINPROXY Server 2.0的设置的问题。 关于加入到工程中的bmp文件 请问如何用PB实现个人相册中相片的增加,保存,浏览 [广告] 请帮忙测试一个MySQL的管理程序 我受不了拉。关于dll中的menu 关于网络代理软件WINPROXY Server 2.0的设置的问题。 发布站点的问题 winsock2 故障 如何实现两台上INTERNET计算机之间文件传送?有哪些方案可选? 关于linux下光驱的问题 如何提取Win2K/XP安装光盘的引导信息? 单元格日期格式从单元格中读出来时成了数字,如何另外的用代码还原成日期? 到底是怎么回事,北京拨号163有调整了吗? 在线的进来问点问题(jsp/javabean), 分不多其它帖子中送出 关于linux下光驱的问题 DELPHI怎样调用IE内核? 用PB7。0做的程序怎么用PB8。0打开呀 variant和array的转换问题 紧急:请给一个JRun Studio的最新正式版下载地址! 我的信誉分又被扣了,给个理由先!!!!!!!!!!!!!!!!! 问一个初级的问题? 新手问路:linux支持哪些语言? 怎么样在: sql server enterprise manager 中插入一条记录?? 如何动态向picture控件中加载图片 Bean的java里的class有什么区别? 为什么每退出一个程序或一个命令都会有一封信发给root!! 为什么每退出一个程序或一个命令都会有一封信发给root!! 菜鸟问题! 怎样在Window 98中设置环境变量,如Classpath=.....,path=....之类的. VB中常量字符串里要包含双引号怎么写? 我现在想装installshield,可是我找不到,不知道哪儿能单独下载!!!我的VC++ 6.0里没有奇怪了! 为什么关于adoquery等等生成xml数据文件以及如何从这些xml文件取数据的资料这么少啊??? 怎样在控件上画线,或者说怎样获取控件的Graphics对象. 大家快帮我回答这个问题吧,我会加分的:http://www.csdn.net/expert/topic/599/599906.xml?temp=.2423517 关于corba在delphi中的实现 比较难的一个问题: 用什么方法得到一个多播组的成员数量? 请问怎么解除两个互为复本的数据库之间的复本关系? 急,求一个API函数 用ATL开发组件来封装asp网页中遇到的问题:IRequest::get_Form(IRequestDictionary **ppDictReturn)应该怎么用?谢谢! 怎样用VB代码实现两个SQL SERVER数据库之间数据的复制。 请问为什么在网络编程中Send("this is a test",16);结果正常,而CString msg = "this is a test";Send(msg,16);却只能读到第一个字母 t ? 请问如何在c++builder5.5中安装c++builder API reference, netscape6.x上如何禁止显示select框右端的滚动条。 我的IE怎么提示: IE on windows2000 doesn't support ActiveX auto-downloading???
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘