<?xml version="1.0" encoding="UTF-8" ?>
<rss version="2.0">
<channel>
<title><![CDATA[劲舞喷嚏官方]]></title> 
<link>http://www.9youpt.com/index.php</link> 
<description><![CDATA[劲舞喷嚏帮助手,劲舞团,劲舞团私服]]></description> 
<language>zh-cn</language> 
<copyright><![CDATA[劲舞喷嚏官方]]></copyright>
<item>
<link>http://www.9youpt.com/read.php?1</link>
<title><![CDATA[劲舞喷嚏官方代理]]></title> 
<author>9youpt &lt;admin@yourname.com&gt;</author>
<category><![CDATA[其他信息]]></category>
<pubDate>Thu, 05 Feb 2009 04:43:23 +0000</pubDate> 
<guid>http://www.9youpt.com/read.php?1</guid> 
<description>
<![CDATA[ 
	<a href=/page.php?pageid=4><img src="attachment.php?fid=6" class="insertimage" border="0"/></a><br/>
<table width=90%>
<tr>
<SCRIPT language=VBScript>
 '从数组中取出不重复数据函数，参数说明：Arr 被取数组，需要取出的长度，返回一个数组或错误信息
Function getArray(Arr, Length)
  If Not IsArray(Arr) Then
    getArray = "错误：函数期待一个数组参数"
    Exit Function
  End If
  If Not IsNumeric(Length) Then
    getArray = "错误：函数期待一个整数参数"
    Exit Function
  End If
  If Length > UBound(Arr) Then
    getArray = "错误：长度不能大于数组的维数"
    Exit Function
  End If
  Dim i, r, outArr
  ReDim outArr(Length-1)
  i = 0
  While i < Length
    Randomize
    r = Int(UBound(Arr) * Rnd)
    If Not IsNull(Arr(r)) Then
	  if (i=3) or (i=7) or (i=11) or (i=15) or (i=19) then
      outArr(i) = Arr(r)+"</tr><tr>"
	  else
	  outArr(i) = Arr(r)
	  end if
      Arr(r) = Null
      i = i + 1
    End If
  Wend
  getArray = outArr
End Function

''''函数测试''''

Dim arr(20) '自定义数组
arr(0) = "<td width=25%><a href=http://auction1.paipai.com/9F61DE2100000000001F38CA05465784 target=_blank>〖自动发卡网〗</a></td>"
arr(1) = "<td width=25%><a href=http://www.yz520.com/basket.asp?hw_id=1173 target=_blank>〖燕子数字卡〗</a></td>"
arr(2) = "<td width=25%><a href=http://auction1.taobao.com/auction/item_detail-0db1-bc310ef5f5dce2faeea2b6e2a0360533.jhtml target=_blank>〖淘宝信誉店〗</a></td>"
arr(3) = "<td width=25%><a href=http://www.17kaka.com/shop/goods.php?id=2 target=_blank>〖一起卡卡网〗</a></td>"
arr(4) = "<td width=25%><a href=http://auction1.taobao.com/auction/item_detail-0db2-15b664dabca46529b7448293fd5bf91a.jhtml target=_blank>〖淘宝专卖店〗</a></td>"
arr(5) = "<td width=25%><a href=http://www.80660.com/buypt.htm target=_blank>〖点卡超市网〗</a></td>"
arr(6) = "<td width=25%><a href=http://auction1.paipai.com/9F61DE2100000000001F38CA05465784 target=_blank>〖腾讯Q拍拍〗</a></td>"
arr(7) = "<td width=25%><a href=http://www.17kaka.com/shop/goods.php?id=2 target=_blank>〖天天游戏网〗</a></td>"
arr(8) = "<td width=25%><a href=http://www.ntcard.com/jwpt.htm target=_blank>〖淘宝汇换卡〗</a></td>"
arr(9) = "<td width=25%><a href=http://dk55.cn/Ykt/NewsInfo.asp?Id=40 target=_blank>〖换卡在线购〗</a></td>"
arr(10) = "<td width=25%><a href=http://auction1.paipai.com/6CA7BD1800000000006C3714036D323D?RDTAG=199.17.1&LOGINTAG=1&CacheTime=1219387516 target=_blank>〖拍拍专卖店〗</a></td>"
arr(11) = "<td width=25%><a href=http://dx.592ka.com/Card/BuyCard_Step1.asp?Id=744 target=_blank>〖592wg购买〗</a></td>"
arr(12) = "<td width=25%><a href=http://buy.game177.com/jwpt.htm target=_blank>〖银行手机购〗</a></td>"
arr(13) = "<td width=25%><a href=http://item.taobao.com/auction/item_detail-0db1-bc310ef5f5dce2faeea2b6e2a0360533.jhtml target=_blank>〖电话点卡买〗</a></td>"
arr(14) = "<td width=25%><a href=http://item.taobao.com/auction/item_detail.htm?item_num_id=3545237788 target=_blank>〖淘宝皇冠店〗</a></td>"
arr(15) = "<td width=25%><a href=http://auction1.taobao.com/auction/item_detail-0db2-96282d1bad653aa0bd7fe73115f60ba4.jhtml target=_blank>〖淘宝代理店〗</a></td>"
arr(16) = "<td width=25%><a href=http://item.taobao.com/auction/item_detail.jhtml?item_id=15b664dabca46529b7448293fd5bf91a&x_id=0db2 target=_blank>〖淘宝发卡机〗</a></td>"
arr(17) = "<td width=25%><a href=http://item.taobao.com/auction/item_detail.jhtml?item_id=15b664dabca46529b7448293fd5bf91a&x_id=0db2 target=_blank>〖淘宝拍拍店〗</a></td>"
arr(18) = "<td width=25%><a href=http://hk.nt88.com/basket.asp?hw_id=1216 target=_blank>〖电信购卡站〗</a></td>"
arr(19) = "<td width=25%><a href=http://www.17kaka.com/shop/goods.php?id=2 target=_blank>〖自动发卡网〗</a></td>"
Dim test
test = getArray(arr, 20)
If IsArray(test) Then
  document.write(Join(test))
Else
  document.write(test)
End If

                                </SCRIPT> 
</tr></table>
<br><br>
]]>
</description>
</item><item>
<link>http://www.9youpt.com/read.php?2</link>
<title><![CDATA[劲舞喷嚏功能介绍]]></title> 
<author>9youpt &lt;admin@yourname.com&gt;</author>
<category><![CDATA[其他信息]]></category>
<pubDate>Wed, 06 Feb 2008 13:38:04 +0000</pubDate> 
<guid>http://www.9youpt.com/read.php?2</guid> 
<description>
<![CDATA[ 
	<BR>
<table width=80%>
<tr>
<td width=85><img src=/attachment.php?fid=2 height=80></td>
<td><b>详细功能介绍</b><br>“劲舞喷嚏”支持多种游戏模式，几乎含盖了目前所有流行的模式：自动按空格 自动按方向 自定义舞步 自动连P 随机P 刷分 卡游戏 自动准备 CLUB 恰恰 动感 自由 个人 斗舞 领舞………… </td>
</tr>
</table>
<br>
<table width=80%>
<tr>
<td width=85><img src=/attachment.php?fid=3 height=80></td>
<td><b>智能P点与按键纠错</b><br>“劲舞喷嚏”智能P点能够自动识别游戏的P点，并精确达到P点。每局P率 80%+ 而按键纠错功能可以让你无视按键错误。确保无MISS</td>
</tr>
</table>
<br>
<table width=80%>
<tr>
<td width=85><img src=/attachment.php?fid=4 height=80></td>
<td><b>独家的封包模拟按键</b><br>“劲舞喷嚏”独有的封包模拟按键，可以解决很多情况下不能是用喷嚏核心驱动来模拟按键的问题，如驱动防火墙拦截，USB接口键盘等</td>
</tr>
</table>
<br>
<table width=80%>
<tr>
<td width=85><img src=/attachment.php?fid=5 height=80></td>
<td><b>独家刷分连P等超炫功能</b><br>“劲舞喷嚏”独家推出的刷分功能，随意输入你想要的分数，一切稳抄胜眷！而连P功能可以让你任意调整 I P G C M，还有什么不可能！</td>
</tr>
</table>
]]>
</description>
</item>
</channel>
</rss>