www.gusucode.com > 盐城分类信息网asp源码程序 > inc/inc.asp
<!--#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, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(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 [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 9 id,class1,fei,fei2 from 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="99.5%" id="table1" style="border-collapse: collapse" bgcolor="#FFFFFF" cellpadding="2" cellspacing="2">
<%while not rs.eof
kk=kk+1%>
<tr>
<%
for k=0 to 2
class1=rs("id")
%>
<td valign=top width=240>
<table width="241" border="0" cellpadding="0" cellspacing="0" background="Images/xxbg.jpg">
<tr >
<td width="25" height="34"></td>
<td width="129" height="26" ><A href="info.asp?/=<%=rs(0)%>&cnmai=1">
<div class="infoft"><img src="img/dot1.gif" border="0"> <%=rs(1)%></div></A></td>
<td width="155" ><div class="infoft2"> <a href="axx.asp?cnmai=free"><font color=#ff0000>免费发布</font></a>
</div></td>
</tr>
<tr>
<td colspan="3" bgcolor="#FFFFFF" style="BORDER-RIGHT:#bebebe 1px solid; PADDING-RIGHT: 2px; BORDER-TOP:#bebebe 0px solid; PADDING-LEFT: 2px; BACKGROUND-IMAGE: url(copybg.jpg); PADDING-BOTTOM: 2px; BORDER-LEFT:#bebebe 1px solid; PADDING-TOP: 2px; BORDER-BOTTOM:#bebebe 1px solid; HEIGHT: 14px; TEXT-ALIGN: left">
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
Sql1="select top "&tnum&" id,biaoti,leixing,a,b,fbsj from 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 > <font color=red>New</font>"
else
fsj="<FONT color=#999999>"&month(rs1("fbsj"))&"/"&day(rs1("fbsj"))&"</FONT >"
end if %>
<div class="infoft1"><font color=#aa0000>[<%=trim(left(rs1("leixing"),2))%>]</font><font color=#<%=rs1("a")%>>·</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)&"</font>"
end if
Response.Write"</A> "&fsj&"<br></div>"
rs1.movenext
Loop
rs1.close
set rs1=nothing
Response.Write"</td></tr></table></td>"
rs.movenext
next
b=kk
if b=1 then
Response.Write"</tr><tr><td colspan=3>"%><%=ad6%>
<%Response.Write"</td></tr>"
else
if b=2 then
Response.Write"</tr><tr><td colspan=3>"%><%=ad7%>
<%Response.Write"</td></tr>"
else
if b=4 then
Response.Write"</tr><tr><td colspan=3>"%><%=adtop%>
<%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 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 [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 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 [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 com where class1="&class1&" and class2="&class2&" and yz=1 order by lastdl desc"
else
vipsql= "select top 10 username,com from 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 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 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 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
'最新VIP信息
sub nxvip()
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 8 id,biaoti,fbsj from xinxi where yz=1 and tuijian=1 order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
do while not rsnx1.eof%>
<div id="articleline">
·<A target=_blank href="x.asp?cnmai=<%=rsnx1("id")%>"><%=left(rsnx1("biaoti"),13)%></a></div>
<%
rsnx1.movenext
loop
rsnx1.close
set rsnx1=nothing
end sub
sub nxvip1()%>
<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></table>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
<tr><td background="img/righttitle1bg.jpg" valign="top" >
<%
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 8 id,biaoti,fbsj from xinxi where yz=1 and tuijian=1 order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
do while not rsnx1.eof%>
<div style="margin-left:16px;">
·<A target=_blank href="x.asp?cnmai=<%=rsnx1("id")%>"><%=left(rsnx1("biaoti"),13)%></a></div>
<%
rsnx1.movenext
loop
rsnx1.close
set rsnx1=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 nxnews()
set rsnx1=server.createobject("adodb.recordset")
sqlnx1= "select top 10 id,biaoti,fbsj from xinxi where yz=1 and class1="&id_1&" order by fbsj desc,id desc"
rsnx1.open sqlnx1,conn,1,1
do while not rsnx1.eof%>
·<A target=_blank href="x.asp?cnmai=<%=rsnx1("id")%>"><%=left(rsnx1("biaoti"),13)%></a></div>
<%
rsnx1.movenext
loop
rsnx1.close
set rsnx1=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></table>
<table width="214" border="0" cellpadding="0" cellspacing="0" background="img/righttitle1.jpg" >
<tr><td background="img/righttitle1bg.jpg" valign="top" a><%set rsx=server.createobject("adodb.recordset")
sqlx= "select top 10 id,biaoti,fbsj from xinxi where yz=1 and class1="&id_1&" and class2="&rs1("id")&" order by fbsj desc,id desc"
rsx.open sqlx,conn,1,1
do while not rsx.eof%>
<div id="articleline">·<A href="x.asp?cnmai=<%=rsx("id")%>" ><%=left(rsx("biaoti"),13)%></a></div>
<%rsx.movenext
loop
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/nu_<%=kk%>.gif"/> <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 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 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 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 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 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 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 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 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")&""">"%>
<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="119" height="90">
<param name="movie" value="img/swfoto.swf?image=<%=rstj_a("biaoti")%>">
<param name="wmode" value="transparent">
<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></td></tr></table></div>
<%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")&""">"%>
<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=<%=rstj_a("tupian")%>">
<param name="wmode" value="transparent">
<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></td></tr></table></div>
<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 5 username,com,logo from 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 5
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>
<br><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 links()
dim rs_bar,sqlwto,j,rsct
Set rs_bar = Server.CreateObject("ADODB.Recordset")
sqlwto="select top 36 web,webabout,url from link where yanz=1 order by jrsj desc"
rs_bar.open sqlwto,conn,1,1%>
<table border=0 width="100%" align=left cellspacing=1 height="100%">
<%while not rs_bar.eof%>
<tr>
<td align=center class=bar_muen style="width:93%;color:#FFFFFF">
<%for j=0 to 9
if rs_bar.eof then
exit for
end if%>
<%response.write "<a target=""_blank"" title="""&rs_bar("web")&"-"&rs_bar("webabout")&""" href="""&rs_bar("url")&""">"&rs_bar("web")&"</a> ｜ "%>
<%rs_bar.movenext
next
%>
<br />
<%
wend
rs_bar.close
set rs_bar=nothing
%></td></tr></table>
<%end sub
%>
<%
sub gg()
set ggrs=server.createobject("adodb.recordset")
ggsql = "select top 7 id,biaoti from 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 tutj()
response.write "<TABLE border=0 width=""100%"" cellspacing=0 cellpadding=0><tr>"
dim j
set rstj_a=server.createobject("adodb.recordset")
sqltj_a="select top 10 * from xinxi where yz=1 and tuijian=1 and (tupian<>'0' or right(biaoti,4)='.gif' or right(biaoti,4)='.jpg' or right(biaoti,5)='.jpeg') and left(memo,4)='http' order by fbsj desc,ID desc"
rstj_a.open sqltj_a,conn,1,1
while not rstj_a.eof and not rstj_a.bof
for j=0 to 4
if rstj_a.eof then
exit for
end if
response.write "<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")&"><IMG src="&rstj_a("biaoti")&" width=145 height=55 border=1 class=td hspace=0 vspace=3></a>"
end if
if rstj_a("tupian")<>"0" and rstj_a("tupian")<>"" then
response.write "<a title="&rstj_a("biaoti")&" target=""_blank"" href=""x.asp?cnmai="&rstj_a("id")&""">"
response.write "<IMG src="&rstj_a("tupian")&" width=145 height=55 border=1 class=td hspace=0 vspace=3></a>"
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
Conn.Execute("Update xinxi Set b=0 where DateDiff('D',fbsj,now())>="&b_y&" and yz=1")
Conn.Execute("Update xinxi Set tuijian=0 where DateDiff('D',fbsj,now())>="&tui_y&" and yz=1")
%>