代码如下：

<div id=”zfw_gg” style=”overflow: hidden; width: 185px; height: 300px”>
<div id=”zfw_gg1″>
<table class=”normal” height=”300″ cellspacing=”0″ cellpadding=”0″ width=”185″ align=”center” border=”0″>
<tbody>
<tr>
<td>
</—–你原来的友情链接内容——/>
</td>
</tr>
</tbody>
</table>
</div>
<div id=”zfw_gg2″> </div>
</div>
<script type=”text/javascript”>
var zfw_speed=45
zfw_gg2.innerHTML=zfw_gg1.innerHTML
function zfw_Marquee()
{
  if(zfw_gg2.offsetTop - zfw_gg.scrollTop <= 0)
    zfw_gg.scrollTop -= zfw_gg1.offsetHeight
  else{
    zfw_gg.scrollTop++
  }
}
var zfw_MyMar=setInterval(zfw_Marquee,zfw_speed)
zfw_gg.onmouseover=function() {clearInterval(zfw_MyMar)}
zfw_gg.onmouseout=function() {zfw_MyMar=setInterval(zfw_Marquee,zfw_speed)}
</script>

如果你沈阳的商户，请拨打电话与我联络
手机：13478184425
QQ：47722978

跨域操作需要设置域属性:
Response.Cookies(”MyCookie”).Domain = “yule4.com”; (这里指的是泛域名)
这样在其它二级域名下就都可以访问到了， ASP 和 ASP.NET 测试通过

虚拟目录下访问：
我在ASP端做了下测试，.NET的没试, 如果不指定Path属性， 不同虚拟目录下Cookie无法共享
将Response.Cookies(”MyCookie”).Path = “/” 就可以了

总的写法:
Response.Cookies(”MyCookie”).Domain = “cnblogs.com”;
Response.Cookies(”MyCookie”).Path = “/”
Response.Cookies(”MyCookie”).Expires = Now + 365;
Response.Cookies(”MyCookie”)(”Test”) = “test”;

.NET 清除Cookie
HttpCookie cookie = System.Web.HttpContext.Current.Request.Cookies[cookiename];
if (cookie != null)
{
  cookie.Values.Clear();
  SetUserCookieExpireTime(cookiename, -1);
  cookie.Domain = _domain;
  System.Web.HttpContext.Current.Response.Cookies.Set(cookie);
 }
public static void SetUserCookieExpireTime(string key, int days)
{
  System.Web.HttpContext.Current.Response.Cookies[key].Domain = _domain;
  System.Web.HttpContext.Current.Response.Cookies[key].Path = _cookiepath;
  System.Web.HttpContext.Current.Response.Cookies[key].Expires = DateTime.Now.AddDays(days);
}
.NET 添加/更新Cookie
public static void AddUserCookies(string key,string value, string cookiename, string domain)
{
  HttpCookie cookie = System.Web.HttpContext.Current.Request.Cookies[cookiename];
  if (cookie == null)
  {
  cookie = new HttpCookie(cookiename);
  cookie.Domain = domain;
  cookie.Path = _cookiepath;

cookie.Values.Add(key, value);
  HttpContext.Current.Response.AppendCookie(cookie);
  }
  else
  {
  if (System.Web.HttpContext.Current.Request.Cookies[cookiename].Values[key] != null)
  {
  cookie.Values.Set(key, value);
  }
  else
  {
  cookie.Domain = domain;
  cookie.Path = _cookiepath;

cookie.Values.Add(key, value);
  HttpContext.Current.Response.AppendCookie(cookie);
  }
  }
}

<h3>Ping Test</h3>
<cfoutput>
Almontel 1: #Ping(”www.almontel1.com”)#<br>
Almontel 2: #Ping(”www.almontel2.com”)#<br>
</cfoutput>

Full UDF Source:

<!—
Pings a website using .net framework

@param host      URL/IP that you would like to ping. (Required)
@return A string containing the results of the ping.
@author Elias (eliasjp@msn.com)
@version 1, October 14, 2008
—>
<cffunction name=“Ping” returntype=“string” output=“false” access=“public”>
<cfargument name=“host” type=“string” required=“yes”>
<!— Local vars —>
<cfset var pingClass=“”>
<cfset var pingReply=“”>
<!— Get Ping class —>
<cfobject type=“.NET” name=“pingClass”
class=“System.Net.NetworkInformation.Ping”>
<!— Perform synchronous ping (using defaults) —>
<cfset pingReply=pingClass.Send(Arguments.host)>
<!— Return result —>
<cfreturn pingReply.Get_Status().ToString()>
</cffunction>


$ch = curl_init();
curl_setopt ($ch, CURLOPT_PROXY, $proxy);
curl_setopt ($ch, CURLOPT_URL, $url);
curl_setopt ($ch, CURLOPT_USERAGENT, $user_agent);
curl_setopt ($ch, CURLOPT_COOKIEJAR, “c:\cookie.txt”);
curl_setopt ($ch, CURLOPT_HEADER, 1);
curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt ($ch, CURLOPT_FOLLOWLOCATION, 1);
curl_setopt ($ch, CURLOPT_TIMEOUT, 120);
$result = curl_exec ($ch);
curl_close($ch);
return $result;

}

$url_page = http://www.yule4.com;
$user_agent = “Mozilla/4.0″;
$proxy = “http://192.11.222.124:8000″;
$string = curl_string($url_page,$user_agent,$proxy);
echo $string;
?>

http-method： HTTP的通信方式，比如GET或是 POST
url： 接收XML数据的服务器的URL地址。通常在URL中要指明 ASP或CGI程序
async： 一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作
userID 用户ID，用于服务器身份验证
password 用户密码，用于服务器身份验证&nbsp;
XMLHTTP对象的Send方法
用Open方法对Request对象进行初始化后，调用Send方法发送XML数据：
poster.send XML-data
Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。
XMLHTTP对象中的readyState属性能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示：
值 说明
0 Response对象已经创建，但XML文档上载过程尚未结束
1 XML文档已经装载完毕
2 XML文档已经装载完毕，正在处理中
3 部分XML文档已经解析
4 文档已经解析完毕，客户端可以接受返回消息
客户机处理响应信息
客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。客户机接收响应是通过XMLHTTP对象的属性实现的：
● responseTxt：将返回消息作为文本字符串；
● responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；
● responseStream：将返回消息视为Stream对象。

AspHTTP组件的属性

Accept
指示什么样的MIME类型可以被请求程序接受
例如:
HttpObj.Accept = “*/*”

Authorization
授权头可以让你获得 需要验证身份的地方的url
用户名和口令之间用冒号点开
例如:
HttpObj.Authorization = “jimb:superbmr”

BinaryData
返回来自getURl请求获得的两进制格式的数据，你可以用这个属性取得两进制数据
如来自另一个web服务器的图片例如:
<%
Response.ContentType = “image/gif”
Set HTTPObj = Server.createObject(”AspHTTP.Conn”)
HTTPObj.Url = “/blog/upload/200562215730899.gif”
HTTPObj.GetURL
Response.BinaryWrite HTTPObj.BinaryData
%>

ContentType
这个属性允许你在POST***作时自定义content-type头
例如:
ContentType = “application/x-www-form-urlencoded”

Error
报告请求中发生的任何错误

FollowRedirects
FollowRedirects告诉组件跟随HTTP Server的重定向
例如:
HttpObj.FollowRedirects = true

Headers
Headers属性包含了在请求被调用GetURL处理完成之后，来自http请求的回应头
例如:
Response.Write HttpObj.Headers

Port
Port属性指示连接http服务器的端口号
例如:
HttpObj.Port = 80

PostData
PostData属性应该被设置为你希望post请求POST到web服务器的数据的值
例如:
HttpObj.PostData = “suid=jimb&act=upd”

Protocol
指示请求应该使用的http协议版本号，缺省值是HTTP/1.0
例如:
HttpObj.Protocol = “HTTP/1.1″

Proxy
proxy属性包含proxy server代理服务器的地址/端口，冒号点开
例如:
HttpObj.Proxy = “address.net:2001″

ProxyPassword
设置需要验证的http代理服务器的http代理密码，现在只支持basic authentication（基本验证)

RequestMethod
RequestMethod属性指示发给服务器http请求的类型，合法的值是”GET”, “POST” 和 “HEAD”.
例如:
HttpObj.RequestMethod = “POST”

RegisteredUser
RegisteredUser属性指示组件授权用户的名字
例如:
Response.Write “This component is licensed to ” & HttpObj.RegisteredUser

Response
Response属性包含在收到web服务器过来的请求之后的http response回应

SaveFileTo
SaveFileTo允许你得到任何类型的文件，自动存到本地盘上。图形/文本/HTML文件均可以。
例如:
HttpObj.SaveFileTo = “c:\images\3rdqrtr.jpg”

TimeOut
timeout属性决定组件等待http server响应的时间
例如:
HttpObj.TimeOut = 45

URL
URL属性设定你希望request请求所***作的url，以http://开头
例如:
HttpObj.URL = “http://www.myfinancial.com/scripts/update3.asp”

UserAgent
UserAgent让组件通过发送一个request的UserAgent头伪装浏览器
例如:
HttpObj.UserAgent = “Mozilla Compatible (MS IE 3.01 WinNT)”

Version
指示AspHTTP组件的版本
例如:
Response.Write “The component version is ” & HttpObj.Version

AspHTTP组件的方法

方法 参数 返回值 描述
GetURL 无 String 返回http请求的响应，这是一个字符串，组件不支持2进制返回值，如Gif/Jpg图像
AddExtraHeader String 无 在请求内增加一个自定义的http头，自定义头可以包括模拟的浏览器头，例如IE的分辨率信息头
ClearExtraHeaders 无 无 清除所有AddExtraHeader设置的http头
GetHeader String String 在GetUrl调用之后，获得自定头的值，如果有多个头，返回第一个。要检索所有的头，请看GetHeaders
Example:
strCookie = HttpObj.GetHeader(”Set-Cookie”)
You could then on subsequent calls return the same cookie as follows:
if strCookie <> “” then
HttpObj.AddExtraHeader “Cookie: ” & strCookie
end if
GetHREFs 无 Variant 字符串数组，在调用GetUrl之后，你可以调用GetHREFs处理html里面的<a href=”"> Tags.
GetHREFs返回一个你可以进一步处理或显示的字符串的可变数组
请见HREFList.asp（下载包内有）使用这个方法的示例代码，GetHREFs是在aspHTTP版本2.4增加的。
URLDecode strValue String 解码一个URL编码的字符串
URLEncode strValue String 将一个字符串编码成一个合法的url值
Example:
HttpObj.URL = HttpObj.URLEncode(”http://www.test_xyz.com?avalue=this is a value with spaces”)

支付宝日结算的挂机项目:一天8-10元,换IP的10元一天
不换IP8元左右 

如果你是站长，更加要下载这个，用这个软件就不用为没人点击你的广告而发愁了，主要的好处是这个软件带来的都是真实的鼠标点击流量

请下载挂机软件

 下载地址:test.rar

1、最简单的方法：使用RasDial命令
    RasDial是Windows自带的命令，使用非常简单。实际使用是可将下面代码保存为一个批处理文件，然后直接运行或在程序里进行调用。

rasdial.exe  /disconnect ‘断开连接
del “C:\Documents and Settings\hyuqin\Cookies\*.*” /Q  ‘清除Cookie
rasdial.exe  连接名 连接账户 连接密码 ‘重新拨号

2、封装为类，灵活调用
    上面提到的方法虽然很简单，但并非标准的实现方法，使用时会受到一些限制，此时最好的办法就是将实现代码封装为类库。下面这个类库是网上一位朋友提供的,直接调用就行.

using System;
using System.Runtime.InteropServices;

public struct RASCONN
{
    public int dwSize;
    public IntPtr hrasconn;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 257)]
    public string szEntryName;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 17)]
    public string szDeviceType;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 129)]
    public string szDeviceName;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)]
public struct RasStats
{
    public int dwSize;
    public int dwBytesXmited;
    public int dwBytesRcved;
    public int dwFramesXmited;
    public int dwFramesRcved;
    public int dwCrcErr;
    public int dwTimeoutErr;
    public int dwAlignmentErr;
    public int dwHardwareOverrunErr;
    public int dwFramingErr;
    public int dwBufferOverrunErr;
    public int dwCompressionRatioIn;
    public int dwCompressionRatioOut;
    public int dwBps;
    public int dwConnectionDuration;
}

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)]
public struct RasEntryName
{
    public int dwSize;
    //[MarshalAs(UnmanagedType.ByValTStr,SizeConst=(int)RasFieldSizeConstants.RAS_MaxEntryName + 1)]
    public string szEntryName;
    //#if WINVER5
    //  public int dwFlags;
    //  [MarshalAs(UnmanagedType.ByValTStr,SizeConst=260+1)]
    //  public string szPhonebookPath;
    //#endif
}
public class RAS
{
    [DllImport(”Rasapi32.dll”, EntryPoint = “RasEnumConnectionsA”,
         SetLastError = true)]

    internal static extern int RasEnumConnections
        (
        ref RASCONN lprasconn, // buffer to receive connections data
        ref int lpcb, // size in bytes of buffer
        ref int lpcConnections // number of connections written to buffer
        );
    [DllImport(”rasapi32.dll”, CharSet = CharSet.Auto)]
    internal static extern uint RasGetConnectionStatistics(
        IntPtr hRasConn,       // handle to the connection
        [In, Out]RasStats lpStatistics  // buffer to receive statistics
        );
    [DllImport(”rasapi32.dll”, CharSet = CharSet.Auto)]
    public extern static uint RasHangUp(
        IntPtr hrasconn  // handle to the RAS connection to hang up
        );

    [DllImport(”rasapi32.dll”, CharSet = CharSet.Auto)]
    public extern static uint RasEnumEntries(
        string reserved,              // reserved, must be NULL
        string lpszPhonebook,         // pointer to full path and
        //  file name of phone-book file
        [In, Out]RasEntryName[] lprasentryname, // buffer to receive
        //  phone-book entries
        ref int lpcb,                  // size in bytes of buffer
        out int lpcEntries             // number of entries written
        //  to buffer
        );

    [DllImport(”wininet.dll”, CharSet = CharSet.Auto)]
    public extern static int InternetDial(
        IntPtr hwnd,
        [In]string lpszConnectoid,
        uint dwFlags,
        ref int lpdwConnection,
        uint dwReserved
        );

    public RAS()
    {
    }
}
public enum DEL_CACHE_TYPE //要删除的类型。
{
    File,//表示internet临时文件
    Cookie //表示Cookie
}

public class RASDisplay
{
    [DllImport(”wininet.dll”, CharSet = CharSet.Auto)]
    public static extern bool DeleteUrlCacheEntry(
        DEL_CACHE_TYPE type
        );
    private string m_duration;
    private string m_ConnectionName;
    private string[] m_ConnectionNames;
    private double m_TX;
    private double m_RX;
    private bool m_connected;
    private IntPtr m_ConnectedRasHandle;

    RasStats status = new RasStats();
    public RASDisplay()
    {
        m_connected = true;

        RAS lpras = new RAS();
        RASCONN lprasConn = new RASCONN();

        lprasConn.dwSize = Marshal.SizeOf(typeof(RASCONN));
        lprasConn.hrasconn = IntPtr.Zero;

        int lpcb = 0;
        int lpcConnections = 0;
        int nRet = 0;
        lpcb = Marshal.SizeOf(typeof(RASCONN));

        nRet = RAS.RasEnumConnections(ref lprasConn, ref lpcb, ref
            lpcConnections);

        if (nRet != 0)
        {
            m_connected = false;
            return;

        }

        if (lpcConnections > 0)
        {
            //for (int i = 0; i < lpcConnections; i++)

            //{
            RasStats stats = new RasStats();

            m_ConnectedRasHandle = lprasConn.hrasconn;
            RAS.RasGetConnectionStatistics(lprasConn.hrasconn, stats);
            m_ConnectionName = lprasConn.szEntryName;

            int Hours = 0;
            int Minutes = 0;
            int Seconds = 0;

            Hours = ((stats.dwConnectionDuration / 1000) / 3600);
            Minutes = ((stats.dwConnectionDuration / 1000) / 60) - (Hours * 60);
            Seconds = ((stats.dwConnectionDuration / 1000)) - (Minutes * 60) - (Hours * 3600);
            m_duration = Hours + ” hours ” + Minutes + ” minutes ” + Seconds + ” secs”;
            m_TX = stats.dwBytesXmited;
            m_RX = stats.dwBytesRcved;
            //}
        }
        else
        {
            m_connected = false;
        }
        int lpNames = 1;
        int entryNameSize = 0;
        int lpSize = 0;
        RasEntryName[] names = null;

        entryNameSize = Marshal.SizeOf(typeof(RasEntryName));
        lpSize = lpNames * entryNameSize;

        names = new RasEntryName[lpNames];
        names[0].dwSize = entryNameSize;

        uint retval = RAS.RasEnumEntries(null, null, names, ref lpSize, out lpNames);

        //if we have more than one connection, we need to do it again
        if (lpNames > 1)
        {
            names = new RasEntryName[lpNames];
            for (int i = 0; i < names.Length; i++)
            {
                names[i].dwSize = entryNameSize;
            }

            retval = RAS.RasEnumEntries(null, null, names, ref lpSize, out lpNames);

        }
        m_ConnectionNames = new string[names.Length];
        if (lpNames > 0)
        {
            for (int i = 0; i < names.Length; i++)
            {
                m_ConnectionNames[i] = names[i].szEntryName;
            }
        }
    }

    public string Duration
    {
        get
        {
            return m_connected ? m_duration : “”;
        }
    }

    public string[] Connections
    {
        get
        {
            return m_ConnectionNames;
        }
    }

    public double BytesTransmitted
    {
        get
        {
            return m_connected ? m_TX : 0;
        }
    }
    public double BytesReceived
    {
        get
        {
            return m_connected ? m_RX : 0;

        }
    }
    public string ConnectionName
    {
        get
        {
            return m_connected ? m_ConnectionName : “”;
        }
    }
    public bool IsConnected
    {
        get
        {
            return m_connected;
        }
    }

    public int Connect(string Connection)
    {
        int temp = 0;
        uint INTERNET_AUTO_DIAL_UNATTENDED = 2;
        int retVal = RAS.InternetDial(IntPtr.Zero, Connection, INTERNET_AUTO_DIAL_UNATTENDED, ref temp, 0);
        return retVal;
    }
    public void Disconnect()
    {
        RAS.RasHangUp(m_ConnectedRasHandle);
    }
}

调用方法:
RASDisplay ras = new RASDisplay();
ras.Disconnect();//断开连接
ras.Connect(”ADSL”);//重新拨号