<!--#include file=artwind.inc-->
<%
	  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_PHOTO_ID")
	url="http://photo.et.21cn.com/starchannel/PhotoShow2.php3?IP_PHOTO_ID="&id&"#content"
	
	set myCache=new cache
	myCache.name="picshow"&id&page
	if myCache.valid then
	showcode = myCache.value
	else
	showcode=getHTTPPage(url)	
	myCache.add showcode,dateadd("d",1,now)
	end if 	
	
	if err.number=0 then
	start=instr(showcode,"图片名称：")+44
	over=Instr(showcode,"人气：")-97
	picmc=mid(showcode,start,over-start)
	start=instr(showcode,"人气：")+68
	over=Instr(showcode,"图片尺寸：")-101
	picrq=mid(showcode,start,over-start)
	start=instr(showcode,"图片尺寸：")+44
	over=Instr(showcode,"图片大小：")-97
	piccc=mid(showcode,start,over-start)
	start=instr(showcode,"图片大小：")+53
	over=Instr(showcode,"编辑：")-97
	picdx=mid(showcode,start,over-start)
	start=instr(showcode,"创建日期：")+68
	over=Instr(showcode,"点评结果：")-101
	picriq=mid(showcode,start,over-start)
	
	start=instr(showcode,"<td bgcolor="&chr(34)&"#F3F3F3"&chr(34)&">")+57
	over=Instr(showcode,"images/box_2.gif")-37
	picshow=mid(showcode,start,over-start)
	picshow=left(picshow,instr(picshow,"width")-1)
    picshow=replace(picshow,"<img src=""","<img src=""images.asp?url=")
	
	'response.write picshow&">"&over
	'response.end 
	
	else 
		wscript.echo err.description 
	end if
	
%>
<!--#include file="../menu.asp" -->
<div>
<body leftmargin="0" topmargin="0" style="background-color: #FFFFFF">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td 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 width="14"><img src="images/047.gif" width="14" height="14"align="absmiddle"></td>
                <td width="371" ><a href="index.asp" >写真首页</a> &gt;&gt; <a href="http://www.88852.com/star/">图片浏览</a> &gt;&gt; <%=picmc%></td>
              </tr>
          </table></td>
        </tr>
      </table>
      <table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
        <tr>
          <td width="8%" height="20">　</td>
          <td width="23%">人气：<%=picrq%></td>
          <td width="23%">图片尺寸：<%=piccc%> </td>
          <td width="17%"> 图片大小： <%=picdx%></td>
          <td width="29%"> 创建日期： <%=picriq%></td>
        </tr>
      </table><p>
      <table  border="0" cellpadding="0" cellspacing="1" bgcolor="#333333">
        <tr>
          <td bgcolor="#FFFFFF"><%=picshow%></td>
        </tr>
      </table>      
    </p>
      〖<A HREF="javascript:window.close()">关闭窗口</A>〗
</td>
  </tr>
</table>
</div>
<!--#include file="../bottom.asp" -->