<!--#include file="inc/conn.asp"-->
<!--#include file="inc/jle_sub.asp"-->
<!--#include file="inc/function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312">
<meta name="keywords" content="<%=metakey%>"/>
<meta name="description" content="<%=metades%>" />
<link rel="stylesheet" type="text/css" href="css/style.css" />
<link href="css/css.css" type="text/css" rel="stylesheet">
<link href="img/style.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="inc/common.js"></script>
<script type="text/javascript" src="inc/index.js"></script>
<style type="text/css">
<!--
#apDiv1 {
	position:absolute;
	width:32px;
	height:139px;
	z-index:1;
	top: 130px;

}
-->
</style>
</head>
<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0" background="img/tietopbg.png">
  <tr>
    <td height="60" width="229" align="center"><img src="img/logo.gif" /></td>
    <td width="89" align="center" valign="bottom"><img src="img/tie/logo.jpg" /></td>
    <td width="829" valign="bottom"><% call menu1()%></td>
    <td width="192">&nbsp;</td>
  </tr>
</table>











<%
Dim idtie,ittie,Sqltie,Rstie,Itie,Ttie,Ltie,Ztie,PtieC,RCtie
idtie=request("id")
If idtie Then ittie=" - "&id&"号广告"
Call Header(ittie)
%>
<div id="main">
  <%
Const sitetitle=""
Const sitekeywords=""
Const sitedescription=""
Const BAN_LIST="http,www,江泽民,胡锦涛,温家宝,共产党,法轮,fuck,操,sex,强奸,日你,性交,测试,test"
Const KEEP_TIME=10	
Const PAGE_SIZE=50
Const LOVE_SIZE=20
	If idtie="" Then
		Sqltie="Select * From tietie Order By ID DESC"
	Else
		Sqltie="Select * From tietie Where ID<="&CLng(idtie)&" Order By ID DESC"
	End If 
	Randomize
	Set Rstie=Server.CreateObject("ADODB.RecordSet")
		Rstie.PageSize=30
		Rstie.CacheSize=Rstie.PageSize
		Rstie.Open Sqltie,Conn,1,1
	Dim Page
		If Request("page")="" Then
			Page=1
		Else
			Page=Request("page")
		End If
		If Not(Rstie.Eof And Rstie.Bof) Then Rstie.AbsolutePage=Page
	For Itie=1 To Rstie.PageSize
		If Rstie.Eof Then Exit For
		Ttie=Int(280*Rnd+89)
		Ltie=Int(940*Rnd+50)
		Ztie=Rstie.PageSize-Itie
		Response.Write "<div id=""Layer"&Rstie("ID")&""" style=""top:"&Ttie&"px;left:"&Ltie&"px;z-index:"&Ztie&""" class=""cf"" onmousedown=""Move(this,event)"" ondblclick=""Show("&Rstie("ID")&")""><img src=""img/tie/close.gif"" alt=""关闭"" onclick=""Close("&Rstie("ID")&")"" class=""close"" /><div class=""Face"&Rstie("Face")&"""><p class=""Num"">信息编号："&Rstie("ID")&"</p><p class=""Detail""><img alt="""" src=""img/tie/icon"&Rstie("Icon")&".gif"" width=""40"" height=""23"" /><span class=""Head""><b>"&Rstie("Pick")&"</b></span><br />"&Rstie("Info")&"</p><p class=""Sign"">联系电话："&Rstie("Send")&"</p><p class=""Date"">"&Rstie("PostDate")&"</p></div></div>"
		Rstie.MoveNext
	Next
	PCtie=Rstie.PageCount
	RCtie=Rstie.RecordCount
	Rstie.Close
	Set Rstie=Nothing
	Conn.Close
	Set Conn=Nothing
	%>
    
    <div id="apDiv1"><a href="tqadd.asp"><img src="img/imgtq.gif" /></a></div>
  <div id="shout">
	  <%
	Response.Write "5分钟前有 "&RCtie&" 人来贴贴墙贴广告 "%><br /><br />
    <%
	Call PageBar(Int(PCtie),Int(Page))
	%>
  </div>
</div>
<%
If request("id") Then response.write "<script type=""text/javascript"">Show("&request("id")&");</script>"
Call Footer()
%>
<div style="display:none">
        <script src="http://s85.cnzz.com/stat.php?id=1782927&web_id=1782927" language="JavaScript"></script>
      </div>