<!--#include file=../menu.asp-->
<%
	  function getHTTPPage(url) 
		on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
%>

<%
Server.ScriptTimeOut=120
dim id,softname,softxg
on error resume next 
	id=request("IP_SEARCH_ALBUM_TYPE")
	page=cint(request("page"))
	if id="" then id="港台明星"
	if page="" or page<1 then page=1
	
	url="http://photo.et.21cn.com/starchannel/AlbumList.php3?IP_SEARCH_ALBUM_TYPE="&id&"&IP_DISP_PAGENO="&page
	
	
	
	set myCache=new cache
	myCache.name="picindex"&id&page
	if myCache.valid then
	piccode = myCache.value
	else
	piccode=getHTTPPage(url)	
	myCache.add piccode,dateadd("d",1,now)
	end if 	
	
	if err.number=0 then
	atart=instr(piccode,"共查到")
	over=instr(piccode,"本图集")
	sums=mid(piccode,atart,over-atart)
	atart=instr(piccode,"/共")
	over=instr(piccode,"页</td>")
	sump=mid(piccode,atart,over-atart)	
	start=split(piccode,"<td height="&chr(34)&"20"&chr(34)&" align="&chr(34)&"center"&chr(34)&" bgcolor="&chr(34)&"#F0F0F0"&chr(34)&"> ")
	for i=1 to ubound(start)
	over=Instr(start(i),"AlbumList.php3?IP_ACTION_FLAG=")-84
	piclist=piclist&"<tr><td height="&chr(34)&"20"&chr(34)&" align="&chr(34)&"center"&chr(34)&" bgcolor="&chr(34)&"#F0F0F0"&chr(34)&"> "&mid(start(i),1,over-1)&"</tr>"
	next	
	piclist=replace(piclist,"http://photo.et.21cn.com/starchannel/AlbumList.php3","index.asp")
	piclist=replace(piclist,"http://photo.et.21cn.com/starchannel/AlbumShow.php3?","list.asp?")
	piclist=replace(piclist,"<td bgcolor=""#FAFAFA""> <a","<td bgcolor=""#FAFAFA""> <a target=_blank")
	piclist="<table width=100%\><tr bgcolor=#E6E6E6 height=20 align=center><td width=29>序号</td><td width=123>专集名</td><td width=75>类别</td><td width=90>更新日期</td><td width=62>图片数</td><td width=62>点击数</td></tr>"&piclist&"</table>"
	'response.end 
	
	else 
		wscript.echo err.description 
	end if
	
%>


<div align="center">

<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
    <tr>
      <td width="170" rowspan="2" bgcolor="#fdfdfd">
        <a href="?IP_SEARCH_ALBUM_TYPE=&#28207;&#21488;&#26126;&#26143;"><img src="images/tit_gt.gif" border="0"></a><br>
        <a href="?IP_SEARCH_ALBUM_TYPE=&#26085;&#38889;&#26126;&#26143;"><img src="images/tit_rh.gif" border="0"></a><br>
        <a href="?IP_SEARCH_ALBUM_TYPE=&#27431;&#32654;&#26126;&#26143;"><img src="images/tit_om.gif" border="0"></a><br>
        <a href="?IP_SEARCH_ALBUM_TYPE=&#20869;&#22320;&#26126;&#26143;"><img src="images/tit_nd.gif" border="0"></a><br>

       <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=&#28207;&#21488;&#26126;&#26143;>港台明星</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=&#26085;&#38889;&#26126;&#26143;>日韩明星</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=&#27431;&#32654;&#26126;&#26143;>欧美明星</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=&#20869;&#22320;&#26126;&#26143;>内地明星</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=其他明星>其他明星</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=娱乐明星>娱乐明星</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=成人写真>成人写真</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=狂野写真>狂野写真</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=影视天地>影视天地</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=霓裳艳影>霓裳艳影</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=竞技体育>竞技体育</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=游戏卡通>游戏卡通</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=我为车狂>我为车狂</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=综合>综合</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=亚洲封面>亚洲封面</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=欧美封面>欧美封面</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=美洲海报>美洲海报</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=中国海报>中国海报</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=亚洲海报>亚洲海报</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=其它海报>其它海报</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=精彩剧照>精彩剧照</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=热门动漫>热门动漫</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=经典回顾>经典回顾</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=动漫周边>动漫周边</a><br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=广告创意>广告创意</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=插画>插画</a><br>
			<img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=宠物情缘>宠物情缘</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=涂鸦>涂鸦</a> <br>
            <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=我爱摄影>我爱摄影</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=扫描>扫描</a><br>
          	<img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=游戏时空>游戏时空</a> <img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=艺术>艺术</a><br>
          	<img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=CG世界>CG世界</a>&nbsp;&nbsp;&nbsp;<img src="images/047.gif" width="14" height="14" vspace="3" align="absmiddle"><a href=?IP_SEARCH_ALBUM_TYPE=纯情写真>纯情写真
          </td>
      <td width="1" rowspan="2" bgcolor="#CCCCCC"></td>
      <td width="589" align="center" valign="top">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="30" bgcolor="#F9B72C">
		  <table border="0" cellspacing="0" cellpadding="5">
              <tr> 
                <td><img src="images/047.gif" width="14" height="14"align="absmiddle"></td>
                <td ><a href="index.asp" >写真首页</a> &gt;&gt; <%=ID%></td>
              </tr>
        </table>
		</td>
	   </tr>
       </table>	<%=piclist%>
       <table width="560" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#E6E6E6>
          <tr>
            <td width="190"><%=sums%>本图集</td>
            <td width="130">第 <%=page%> 页 <%=sump%> 页</td>
            <td width="130" align="center"><a href=?IP_SEARCH_ALBUM_TYPE=<%=id%>&page=<%=page-1%>>上一页</a> <a href=?IP_SEARCH_ALBUM_TYPE=<%=id%>&page=<%=page+1%>>下一页</a></td>
            <form action=?IP_SEARCH_ALBUM_TYPE=<%=id%> >
			<td width="110">跳到
              <input name="page" type="text" class="input"  style="width:30">
        页 <input name="image" type="image" src="images/button_go.gif" align="absmiddle" border="0"></td>
		</form>
          </tr>
      </table></td>
    </tr>
  </table>

</div>

<!--#include file="../bottom.asp" -->