<!--#include file="../te.asp"-->
<!--#include file="../config.asp"-->
<%
dim diqu,btnum,viprs,vipsql,id,str2,tupian,objFSO,fileExt,sql1,rs1,i,ii,username,a,b,c,d,count,f
dim rs,sql,qq,class1,class2,biaoti,memo,name,email,dianhua,m,idcard,dizhi,password,userip,sdays,jiage,file
class1=trim(request("/"))
class2=trim(request("//"))
class2c=trim(request("/1"))
key=trim(request("/2"))
leixing=request("/3")
diqu=trim(request("/4"))
cla1=request("cla1")
leixing=request("leixing")
cnmai=HTMLEncode(request("cnmai"))
btnum=zinum
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if

function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", "&gt;")
fString = replace(fString, "<", "&lt;")
fString = Replace(fString, CHR(32), "&nbsp;")
fString = Replace(fString, CHR(9), "&nbsp;")
fString = Replace(fString, CHR(34), "&quot;")
fString = Replace(fString, CHR(39), "&#39;")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
HTMLEncode = fString
end if
end function

'一级分类
if class1<>"" or class2<>"" then
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select id,class1 from [jle_class1] where id="&class1&" order by paixu desc"
rs2.open sql2,conn,1,1
if rs2.bof or rs2.eof then
response.redirect "/"
end if
dim tit
tit=rs2("class1")
rs2.close
set rs2=nothing
end if

'分类地区
sub di()
dim rsdi,sqldi
if tit<>"" or class2c<>"" or diqu<>"" then%>
 <table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:43px;"> <%=tit%><%=class2c%><%=diqu%>信息</div></td></tr></table>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr><td  background="img/righttitle1bg.jpg" valign="top" align="center"><div align="center"><%
end if
set rsdi=server.createobject("adodb.recordset")
sqldi="select city,diqu from config "
rsdi.open sqldi,conn,1,1
if rsdi.bof or rsdi.eof then
response.redirect "/"
end if
diqu=split(rsdi("diqu"),"|")
xm=diqu(0)
for x=1 to xm
%><div id="articleline2"><a href="info.asp?/=<%=class1%>&//=<%=class2%>&/1=<%=escape(class2c)%>&/4=<%=escape(diqu(x))%>&cnmai=3"><%=diqu(x)%></a>
<%if x mod 3 =0 then%><br />
<%end If%></div>
<%next
rsdi.close
set rsdi=nothing%></div>
</td></tr>
<tr>
          <td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
        </tr></table>
<%end sub

'信息类型，数据库中修改
sub leixs()
set rslx=server.createobject("adodb.recordset")
sqllx = "select leixing from config "
rslx.open sqllx,conn,1,1
leixing=split(rslx("leixing"),"|")
xn=leixing(0)
response.write "<select name=""leixing"">"
response.write "<option value=>类型</option>"
for x=1 to xn
response.write "<option value="""&leixing(x)&""">"&leixing(x)&"</option>"
next
response.write "</select>"
rslx.close
set rslx=nothing
end sub

'选择地区
sub dix()
set rsdq=server.createobject("adodb.recordset")
sqldq = "select diqu from config "
rsdq.open sqldq,conn,1,1
diqu=split(rsdq("diqu"),"|")
xn=diqu(0)
response.write "<select name=""diqu"">"
'response.write "<option value=>选择地区</option>"
for x=1 to xn
response.write "<option value="""&diqu(x)&""">"&diqu(x)&"</option>"
next
response.write "</select>"
rsdq.close
set rsdq=nothing
end sub

'首页信息分类显示
sub xlist()
Set rs = Server.CreateObject("ADODB.Recordset")    
Sql="select top 10 id,class1 from jle_class1 order by paixu desc"                                                         
rs.open sql,conn,1,1
If rs.eof Then
Response.Write("请先添加分类")
End If
kk=0
%>
<table border=0 width="100%" bgcolor="#FFFFFF">
<%while not rs.eof
kk=kk+1%>
<tr>
<%
for k=0 to 1
if rs.eof or rs.bof then
response.write""
response.end()
end if
class1=rs("id")
set rs_n=conn.execute("select count(class1) from jle_xinxi where class1="&class1&"")
%>
<td valign=top width=369>
<table width="369" border="0" cellpadding="0" cellspacing="0" background="img/centertitlebg.jpg">
  <tr>
    <td width="149" height="36" valign="top"><A href="info.asp?/=<%=rs(0)%>&cnmai=1">
<div class="infoft"><%=rs(1)%></div></A></td>
    <td width="107" valign="top"><div class="infoft2">共<%=rs_n(0)%>条信息</div></td>
    <td width="53"><a href="axx.asp">立即发布</a></td>
    <td width="60">｜<A href="info.asp?/=<%=rs(0)%>&cnmai=1">&gt;&gt;更多</a></td>
  </tr>
</table>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top "&tnum&" id,biaoti,leixing,a,b,fbsj from jle_xinxi where yz=1 and class1="&rs(0)&" order by fbsj desc,b desc,id desc"
rs1.open Sql1,conn,1,1
Do while not rs1.eof
If rs1.eof Then
Response.Write("还没有分类信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"                   
end if %>
<div class="infoft1"><font color=#990000>[<%=rs1("leixing")%>]</font>·</font><A  href="x.asp?cnmai=<%=rs1(0)%>">
<%if rs1("a")="0" then
response.write ""&left(rs1("biaoti"),btnum)&""
else
response.write "<font color=#"&rs1("a")&">"&left(rs1("biaoti"),btnum)&""
end if
Response.Write"</A>  "&fsj&"<br></div>"
rs1.movenext
Loop
rs1.close
set rs1=nothing
Response.Write"</td>"


rs.movenext                                                                             
next
b=kk
if b=1 then
Response.Write"</tr><tr><td colspan=2>"%><%call spic()%>
<%Response.Write"</td></tr>"
else
if b=2 then
Response.Write"</tr><tr><td colspan=2>"%><%=adtop%>
<%Response.Write"</td></tr>"
else
if b=4 then
Response.Write"</tr><tr><td colspan=2>"%><%=adhot%>
<%Response.Write"</td></tr>"
else
Response.Write"</tr>"
end if
end if
end if
wend
rs.close
set rs=nothing
Response.Write"</table>"
end sub

'搜索地区
sub diso()
dim rsdi,sqldi,dq,dd%>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:43px;"><img border=0 src="image/dd.gif" width=12 height=12><%=diqu%><%=key%>信息</div></td></tr></table>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr><td  background="img/righttitle1bg.jpg" valign="top" align="center">
		<%set rsdi=server.createobject("adodb.recordset")
sqldi="select diqu from [config] "
rsdi.open sqldi,conn,1,1
if rsdi.bof or rsdi.eof then
response.redirect "/"
end if
diqu=split(rsdi("diqu"),"|")
dq=diqu(0)
for g=1 to dq
%>

<div id="articleline2">
<%response.write "<a href=""so.asp?/2="&key&"&cla1="&cla1&"&/4="&escape(diqu(g))&""">"&diqu(g)&"</a>"%>
<%if g mod 3 =0 then%>
<br />
<%end If%>
</div>

<%next
rsdi.close
set rsdi=nothing%>
</td></tr>
<tr>
          <td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
      </tr></table>
<%
end sub

'城市新闻
sub news()
set nsrs=server.createobject("adodb.recordset")
nssql= "select top 5 id,nbiaoti,nfrom,ndata from news order by ndata desc"
nsrs.open nssql,conn,1,3
do while not nsrs.eof
sj=DateDiff("d",""&nsrs("ndata")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(nsrs("ndata"))&"/"&day(nsrs("ndata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(nsrs("ndata"))&"/"&day(nsrs("ndata"))&"</FONT >"                   
end if%>
<div id="articleline1">·<A href=news.asp?id=<%=nsrs("id")%> title="来自：<%=nsrs("nfrom")%>"><%=left(nsrs("nbiaoti"),19)%></A> <font color="#C0C0C0">[<%=fsj%>]</font></div>
<%
nsrs.movenext
loop

nsrs.close
set nsrs=nothing
end sub

'商家栏目分类
sub bars()
dim rs_s,sqls,s,rscts 
Set rs_s = Server.CreateObject("ADODB.Recordset")    
sqls="select top 10 id,class1 from jle_class1 order by paixu desc "                                                          
rs_s.open sqls,conn,3,2
while not rs_s.eof
for s=0 to 7                                    
if rs_s.eof then
exit for
end if
'set rscts=conn.execute("select count(id) from [jle_com] where class1="&rs_s("id")&" ")          
response.write "<a href=""ac.asp?/="&rs_s("id")&"&cnmai=1"" >"
response.write ""&rs_s("class1")&"</a><font color=""#336699"" style=""font-size: 12pt"">·</font>"
rs_s.movenext                                                                             
next                                                        
wend
rs_s.close
set rs_s=nothing
end sub

'info.asp子分类
sub cla()%>
 <table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr>
          <td height="30" class="lefttd"><div style="margin-left:43px;"><%=tit%>子分类</div></td></tr></table>

<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
        <tr><td  background="img/righttitle1bg.jpg" valign="top" align="center"><div align="center">
		<%dim rs1,sql1
set rs1=server.createobject("adodb.recordset")
sql1 = "select id,class2 from jle_class2 where class1="&class1&" order by paixu desc"
rs1.open sql1,conn,1.1
do while not rs1.eof
set rsct1=conn.execute("select count(id) from [jle_xinxi] where class2="&rs1("id")&" ")  %> 
<div id="articleline3">
<%response.write "<a href=""info.asp?/="&class1&"&//="&rs1("id")&"&/1="&escape("-"&rs1("class2"))&"&cnmai=2"">"&rs1("class2")&"</a>("&rsct1(0)&")"%>
<%if x mod 2 =0 then%><br />
<%end If%></div>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</div>
</td></tr>
<tr>
          <td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
      </tr></table><%
end sub

'分类商家
sub vipcom
response.write "<img border=0 src=""image/dd.gif"" width=12 height=12><b>相关特约商家</b><br>"
set viprs=server.createobject("adodb.recordset")
if class1<>"" and class2<>"" then
vipsql= "select top 10 username,com from jle_com where class1="&class1&" and class2="&class2&" and yz=1 order by lastdl desc"
else
vipsql= "select top 10 username,com from jle_com where class1="&class1&" and yz=1 order by lastdl desc"
end if
viprs.open vipsql,conn,1,1
do while not viprs.eof
response.write "<font color=""#336699"" style=""font-size: 12pt"">·</font><A class='left' target=_blank href=""com.asp?m="&viprs("username")&""" >"&viprs("com")&"</a><br>"
viprs.movenext
loop
viprs.close
set rsvip=nothing
end sub

' 最新商家
sub com
response.write "<img border=0 src=""image/dd.gif"" width=12 height=12><b>分类特约商家</b><br>"
set viprs=server.createobject("adodb.recordset")
vipsql= "select top 10 zcdata,username,com from jle_com where class1="&class1&" and yz=1 order by lastdl desc"
viprs.open vipsql,conn,1,1
do while not viprs.eof
sj=DateDiff("d",""&viprs("zcdata")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(viprs("zcdata"))&"/"&day(viprs("zcdata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(viprs("zcdata"))&"/"&day(viprs("zcdata"))&"</FONT >"                   
end if 
response.write "<font color=""#336699"" style=""font-size: 12pt"">·</font><A class='left' target=_blank href=""com.asp?m="&viprs("username")&""" >"&viprs("com")&"</a>  "&fsj&"<br>"
viprs.movenext
loop
viprs.close
set rsvip=nothing
end sub

'商家图片
sub comtu()
set rs01=server.createobject("ADODB.recordset")	      
rs01.open sql01,conn,1,1         
if rs01.eof and rs01.bof then      
response.write "<p align='center'>没有图片置顶推荐信息</p>"       
else      
do while not rs01.eof
response.write "<td align=""center"">"  
response.write "<a title="&rs01("com")&" target=""_blank"" href=com.asp?m="&rs01("username")&">"
response.write "<img src="""&rs01("logo")&""" width=70 height=60 border=1 style=""border: 1px solid #C0C0C0; ; padding-left:2px; padding-right:2px"" alt="""&rs01("com")&""">"
response.write "</a></td>"        
rs01.movenext                
loop            
end if       
rs01.close
set rs01=nothing
end sub

'信息图片
sub xtup()
set rsxtp=server.createobject("ADODB.recordset")
sqlxtp="select top 2 id,biaoti,tupian,yz from jle_xinxi where yz=1 and (tupian<>'0' and tupian<>'') and tuijian=1 order by fbsj desc" 	
rsxtp.open sqlxtp,conn,1,1
if rsxtp.eof and rsxtp.bof then      
response.write "<p align='center'>没有图片置顶推荐信息</p>"       
else      
for u=1 to 2
response.write "<a title="&rsxtp("biaoti")&" target=""_blank"" href=x.asp?cnmai="&rsxtp("id")&">"
response.write "<img src="""&rsxtp("tupian")&""" width=100 height=74 border=1 style=""border: 1px solid #C0C0C0; ; padding-left:2px; padding-right:2px"" tit="&rsxtp("biaoti")&" vspace=5></a><br>"
rsxtp.movenext
next
end if   
rsxtp.close
set rsxtp=nothing
end sub

'最新信息回复/浏览
sub nx()
set rsnx=server.createobject("adodb.recordset")
sqlnx= "select top 7 id,biaoti,fbsj,name from jle_xinxi where yz=1 and hfcs>=1 order by fbsj desc"
rsnx.open sqlnx,conn,1,1

do while not rsnx.eof%>
<div id="articleline">·<A  href="x.asp?cnmai=<%=rsnx("id")%>" ><%=left(rsnx("biaoti"),9)%></a> <FONT color=#999999><%=rsnx("name")%></font></div>
<%rsnx.movenext
loop
rsnx.close
set rsnx=nothing
end sub


'信息页相关信息
%><%sub xxs()%>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
<tr>
<td height="30" class="lefttd"><div style="margin-left:43px;">本类相关信息</div></td></tr>
<tr>
<td  background="img/righttitle1bg.jpg" valign="top">
<%set rsx=server.createobject("adodb.recordset")
sqlx="select top 10 * from jle_xinxi where yz=1 and class1="&id_1&" order by fbsj desc"
rsx.open sqlx,conn,1,1
if rsx.eof and rsx.bof then      
response.write "<p align='center'>没有置顶推荐信息</p>"       
else
do while not rsx.eof%>

<div id="articleline">·<A   href="x.asp?cnmai=<%=rsx("id")%>" ><%=left(rsx("biaoti"),13)%></a></div>
<%rsx.movenext
loop
end if
rsx.close
set rsx=nothing%>
</td>
</tr>
<tr>
<td height="15" background="img/righttitle1bg.jpg"><img src="img/righttitle1bottom.jpg" width="214" height="15"></td>
</tr></table>
<%
end sub%><%

sub ncom()
dim crs

set crs=server.createobject("adodb.recordset")
crs.open sql,conn,1,1
kk=0
do while not crs.eof
kk=kk+1
sj=DateDiff("d",""&crs("zcdata")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(crs("zcdata"))&"/"&day(crs("zcdata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(crs("zcdata"))&"/"&day(crs("zcdata"))&"</FONT >"                   
end if 
%>
<div id="articleline"><img src="img/num-<%=kk%>.gif"/>&nbsp;<A  href="com.asp?m=<%=crs("username")%>" ><%=left(crs("com"),11)%></a><%=fsj%></div><%
crs.movenext
loop
crs.close
set crs=nothing
end sub

sub nhcom()
dim rsnh
sqlnh = "select top 10 tong,com,username from jle_com where yz=1 order by tong desc,zcdata desc"
set rsnh=server.createobject("adodb.recordset")
rsnh.open sqlnh,conn,1,1
do while not rsnh.eof%>
<div id="articleline">·<A  href="com.asp?m=<%=rsnh("username")%>"><%=left(rsnh("com"),14)%></a><%=rsnh("tong")%></div>
<%rsnh.movenext
loop
rsnh.close
set rsnh=nothing
end sub

sub tcom()
trs.open tsql,conn,1,1
do while not trs.eof
sj=DateDiff("d",""&trs("zcdata")&"",now())
if sj<1 then                   
fsj="<FONT color=#336699>"&month(trs("zcdata"))&"/"&day(trs("zcdata"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(trs("zcdata"))&"/"&day(trs("zcdata"))&"</FONT >"                   
end if 
response.write "<font color=""#336699"" style=""font-size: 12pt"">·</font><A class='left' target=_blank href=""com.asp?m="&trs("username")&""" >"&left(trs("com"),14)&"</a>  "&fsj&"<br>"
trs.movenext
loop
trs.close
set rsvip=nothing
end sub

sub ins()
dim rsx,sqlx
set rsx=server.createobject("adodb.recordset")
sqlx = "select * from jle_xinxi where yz=1 and id="&cstr(cnmai)
rsx.open sqlx,conn,1,1
if rsx.eof or rsx.BOF then
response.write "参数错误、记录已经删除或该信息没有通过管理员认证！<br>3秒内自动转入"&title&"首页"
response.write "<meta http-equiv=refresh content=""2;URL=index.asp"">"
response.end
end if
rsx("llcs")=rsx("llcs")+1
rsx.update
end sub
%>

<%
'栏目图片
sub spic()%>
<TABLE border=0 height=68 width="100%" bgcolor="#ffffff" style=""border-collapse: collapse" cellpadding=0>
<tr>
<%dim j
set rstj_a=server.createobject("adodb.recordset")
Select Case cnmai
Case "1"
sqltj_a = "select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and class1="&class1&" order by b desc,id desc"
Case "2"
sqltj_a = "select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and class1="&class1&" and class2="&class2&" order by b desc,id desc"
Case "3"
sqltj_a = "select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and diqu like '%"&diqu&"%' and class1 like '%"&class1&"%' and class2 like '%"&class2&"%'  order by b desc,id desc"
Case "4"
if leixing=0 then
sqltj_a = "select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and (biaoti like '%"&key&"%' or memo like '%"&key&"%' or diqu like '%"&key&"%' or com like '%"&key&"%' or username like '%"&key&"%' or name like '%"&key&"%') order by b desc,id desc"
else
sqltj_a = "select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and leixing="&leixing&" and (biaoti like '%"&key&"%' or memo like '%"&key&"%' or diqu like '%"&key&"%' or com like '%"&key&"%' or username like '%"&key&"%' or name like '%"&key&"%') order by b desc,id desc"
end if
Case Else
sqltj_a="select top 5 id,biaoti,tupian,memo,dianhua from jle_xinxi where yz=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and tuijian=1  order by fbsj desc,ID desc" 	      
End Select
rstj_a.open sqltj_a,conn,1,1
while not rstj_a.eof and not rstj_a.bof 
for j=0 to 5                                      
if rstj_a.eof then                                      
exit for                                      
end if%>                                  
<td align="center" valign="top">
<%if (right(rstj_a("biaoti"),4)=".gif" or right(rstj_a("biaoti"),4)=".jpg" or right(rstj_a("biaoti"),4)=".bmp") then
response.write "<a title="""&rstj_a("dianhua")&""" target=""_blank"" href="""&rstj_a("memo")&""">"%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  
  codebase="http://download.macromedia.com/pub/shockwave/cabs/
  flash/swflash.cab#version=6,0,29,0"  width="119" height="90">
<param name="movie" value="img/swfoto.swf?image=<%=rstj_a("biaoti")%>"> 
<embed  src="img/swfoto.swf?image=<%=rstj_a("biaoti")%>" 
  width="119" height="90" 
  pluginspage="http://www.macromedia.com/go/getflashplayer" 
  type="application/x-shockwave-flash"></embed>
</object>
<%response.write "</a>"%>
<%else
if (rstj_a("tupian")="0" and rstj_a("tupian")="") then
else
response.write "<a title="""&rstj_a("biaoti")&""" target=""_blank"" href=""x.asp?cnmai="&rstj_a("id")&""">"%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  
  codebase="http://download.macromedia.com/pub/shockwave/cabs/
  flash/swflash.cab#version=6,0,29,0"  width="120" height="90">
<param name="movie" value="img/swfoto.swf?image=<%=rstj_a("tupian")%>"> 
<embed  src="img/swfoto.swf?image=<%=rstj_a("tupian")%>" 
  width="120" height="90" 
  pluginspage="http://www.macromedia.com/go/getflashplayer" 
  type="application/x-shockwave-flash"></embed>
</object>
<br><u><%
response.write ""&left(rstj_a("biaoti"),7)&"</u></a>"
end if
end if
response.write "</td>"
rstj_a.movenext                          
next  
response.write "</tr>"
wend          
rstj_a.close
set rstj_a=nothing
response.write "</TABLE>"
end sub%>

<%
'首页名店推荐
sub comp()%>
<TABLE border=0 height=68 width="100%" cellpadding=0>
<tr>
<%dim v
set rst_p=server.createobject("adodb.recordset")
sqltj_a="select top 10 username,com,logo from jle_com where yz=1 and logo<>'' and vip=1 order by lastdl desc,ID desc" 	      
rst_p.open sqltj_a,conn,1,1
while not rst_p.eof and not rst_p.bof 
for v=0 to 10 
if rst_p.eof then
exit for                                      
end if%>
<td align="center" valign="top">
<a title="<%=rst_p("com")%>" href="com.asp?m=<%=rst_p("username")%>">

<div class="shadow5">
<table  height="80" border="0" align="center" cellpadding="0" cellspacing="0" class="stock">
<tr>
<td  bgcolor="#FDFDFD" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  
  codebase="http://download.macromedia.com/pub/shockwave/cabs/
  flash/swflash.cab#version=6,0,29,0"  width="120" height="90">
<param name="movie" value="img/swfoto.swf?image=<%=rst_p("logo")%>"> 
<param name="wmode" value="transparent">
<embed  src="img/swfoto.swf?image=<%=rst_p("logo")%>" 
  width="120" height="90" 
  pluginspage="http://www.macromedia.com/go/getflashplayer" 
  type="application/x-shockwave-flash"></embed>
</object></td></tr></table></div>
<u>
<%=left(rst_p("com"),10)%></u></a>
</td><%
rst_p.movenext                          
next  %>
<tr><td align="center" colspan=6  bgcolor="#F2F2F2">
</td></tr><%
wend          
rst_p.close
set rst_p=nothing
%>
</TABLE>
<%
end sub%>
<%
sub links1()
dim q                                               
Set rs_link = Server.CreateObject("ADODB.Recordset")    
sql_link="select top 36 web,webabout,url from link where yanz=1 order by jrsj desc "
rs_link.open sql_link,conn,1,1
while not rs_link.eof
response.write " "
for q=0 to 10                                      
if rs_link.eof then                                      
exit for                                      
end if                                      
response.write "<a target=""_blank"" title="""&rs_link("web")&"-"&rs_link("webabout")&"""  href="""&rs_link("url")&""">"&rs_link("web")&"</a> ｜ "
rs_link.movenext                                                                             
next
response.write "<br>"
wend
rs_link.close
set rs_link=nothing
end sub
%>
<%
sub gg()
set ggrs=server.createobject("adodb.recordset")
ggsql = "select top 7 id,biaoti from jle_gonggao order by data desc,id desc"
ggrs.open ggsql,conn,1,1
do while not ggrs.eof%>
<div id="articleline">·<A  href="gonggao.asp?id=<%=ggrs("id")%>" ><%=left(ggrs("biaoti"),13)%></a></div>
<%ggrs.movenext
loop
ggrs.close
set ggrs=nothing
end sub
%>


<%sub vipxin()%>

<table width="98%" border="0" cellspacing="0" cellpadding="0"> 
<%
set rs11=server.CreateObject("adodb.recordset")
rs11.Open "select top 12 id,biaoti,fbsj from jle_xinxi where yz=1 and tuijian=1 order by fbsj desc,id desc",conn,1,1
i=0
%>
<tr>
 <%do while not rs11.eof
  i=i+1%>
<td>
 <div id="nxint"><A target=_blank href="x.asp?cnmai=<%=rs11("id")%>">
·<%=left(rs11("biaoti"),17)%></a>
      </div>
	     </td>
      <%if (i mod 2)=0 then%>
      </tr>
      <% end if
rs11.movenext
loop
rs11.Close
set rs11=nothing
%>
</table>
<%end sub%>



<%sub newcom()%>
<table width="98%" border="0" cellspacing="0" cellpadding="0"> 
<%
set rs11=server.CreateObject("adodb.recordset")
rs11.Open "select top 12 username,com,zcdata,lastdl from jle_com where yz=1 and vip=1 order by lastdl desc,id desc",conn,1,1
i=0
%>
<tr>
 <%do while not rs11.eof
  i=i+1%>
<td>
 <div id="nxint"><img src="img/nu_<%=i%>.gif"/>&nbsp;<A  href="com.asp?m=<%=rs11("username")%>" ><%=left(rs11("com"),15)%></a><%=fsj%>
      </div>
	     </td>
      <%if (i mod 2)=0 then%>
      </tr>
      <% end if
rs11.movenext
loop
rs11.Close
set rs11=nothing
%></table>
<%end sub%>




