index.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

							<tr>
								<td height="6"></td>
							</tr>
							<tr>
								<td height="187" valign="top"><!--#INCLUDE FILE="Common/Inc_newyp.asp"--></td>
							</tr>
							</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
		</table>
		</td>
	</tr>
</table></div>
<!--开始-->
<div align="center">
	<table border="0" style="border-collapse: collapse" width="759">
		<tr>
			<td height="136" background="images/fyaspad2.jpg" width="759">
			<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="756" height="136">
				<param name="movie" value="images/W.swf">
				<param name="quality" value="High">
				<param name="wmode" value="transparent">
				<embed src="images/W.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="756" height="136" quality="High" wmode="transparent"></object>
			</td>
		</tr>
		<tr>
			<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
		</tr>	</table>
</div>
<div align="center">
	<table border="0" style="border-collapse: collapse" width="760" cellpadding="0">
		<tr>
			<td align="center"><!--开始分类--><table cellSpacing="0" cellPadding="0" width="581" border="0">
		<tr>
			<td align="middle" height="2" colspan="2"></td>
		</tr>
		<tr>
			<td align="middle" height="38" colspan="2">
			<a href="http://www.fyasp.com" target="_blank">
			<img height="75" src="images/ad.gif" width="581" alt="预留广告位" border="0"></a></td>
		</tr>
		<tr>
			<td align="middle" height="2" colspan="2"></td>
		</tr><!--开始--><%
                set rsf=server.CreateObject("adodb.recordset")
					 Sqlf="select * From BigClass Order By sj Desc"
					 Rsf.Open Sqlf,conn,1,3
					 b=1
					 Do While Not Rsf.Eof
					 %>
		<tr>
			<td height="51" width="290" align="center"><%
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rsf("id")&"'")
dlsl = rscd2(0)%><table cellSpacing="1" cellPadding="0" width="289" bgColor="#cccccc" border="0">
				<tr>
					<td width="50%" height="38">
					<table cellSpacing="0" cellPadding="0" width="100%" border="0">
						<tr>
							<td bgColor="#ffffff" width="17%"><%
							strpic=rsf("pic")
							if strpic<>"" then%>
							<img border="0" src="<%=strpic%>"><%end if%></td>
							<td bgColor="#ffffff" background="images/bg.gif" width="67%">
							<A href="list.asp?bid=<%=rsf("id")%>" class="a01"><%=rsf("BigClassName")%>(<%=dlsl%>)</A></td>
							<td bgColor="#ffffff" width="16%"><A href="list.asp?bid=<%=rsf("id")%>">
							<img border="0" src="images/m.gif" width="45" height="30"></A></td>
						</tr>
						<tr>
							<td vAlign="top" bgColor="#ffffff" height="100" colspan="3">
<table height="20" cellSpacing="0" cellPadding="0" width="287" border="0">
								<!--开始显示图片-->
								<%set rsxx=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (InStr(pic,'OpenFile01.asp?')>0 or InStr(pic,'.jpg')>0 or InStr(pic,'.gif')>0 or InStr(pic,'.bmp')>0 or InStr(pic,'.png')>0 or InStr(pic,'.bmp')>0) order by infokey desc"
else
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (CharIndex('OpenFile01.asp?',pic)>0 or CharIndex('.jpg',pic)>0 or CharIndex('.gif',pic)>0 or CharIndex('.bmp',pic)>0 or CharIndex('.png',pic)>0 or CharIndex('.bmp',pic)>0) order by infokey desc"
end if
					 Rsxx.Open Sqlxx,conn,1,1
					 if not rsxx.EOF then
					 strtit=rsxx("topic")
					yxq=rsxx("InfoDate")
						  fbsj=FormatTime(rsxx("CreateTime"),8)
						  dqsj=DateAdd( "d" ,yxq ,fbsj)
						  sysj=DateDiff ("d",date(),dqsj)
						  if sysj<0 then
						  sysj="<font color=#808080>过期</font>"
						  else
						  sysj="<font color=#ff0000>"&sysj&"</font>&nbsp;天"
						  end if
						  sxxid=rsxx("infokey")
%><tr>
									<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
			<tr style="font-size: 12PX; font-family: 宋体">
				<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">
				<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
					<tr style="font-size: 12PX; font-family: 宋体">
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td style="font-size: 12PX; font-family: 宋体">
								<table height="87" cellSpacing="0" cellPadding="0" width="100%" bgColor="#bcbcbc" border="0">
									<tr style="font-size: 12PX; font-family: 宋体">
										<td align="middle" style="font-size: 12PX; font-family: 宋体">
										<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
										<img alt="<%=strtit%>" src="<%=rsxx("pic")%>" border="0" width="113" height="85"></a></td>
									</tr>
								</table>
								</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td height="2" style="font-size: 12PX; font-family: 宋体">
								</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td background="images/text_bg.gif" height="18" style="font-size: 12PX; font-family: 宋体">
								<p align="center"><%=leftt(strtit,16)%></td>
							</tr>
						</table>
						</td>
						<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋体">　</td>
						<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">　</td>
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont"><font color="#ff3300">
								<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
								<font color="#ff0000"><%=leftt(strtit,18)%></font> </a>
								</font></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">　<%=leftt(rsxx("Content"),46)%><font color="#ff0000">[
								<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
								<font color="#ff0000">详 细</font></a> ]</font></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td align="middle" height="5" style="font-size: 12PX; font-family: 宋体">
								<img height="1" src="images/line.gif" width="121"></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">剩余时间：<%=sysj%></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont" align="right">　</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
		</table></td>
								</tr><%else%>
<tr>
									<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
			<tr style="font-size: 12PX; font-family: 宋体">
				<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">
				<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
					<tr style="font-size: 12PX; font-family: 宋体">
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td style="font-size: 12PX; font-family: 宋体">
								<p align="center">
										<img border="0" src="images/NoPic2.jpg" width="113" height="97"></td>
							</tr>
							</table>
						</td>
						<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋体">　</td>
						<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">　</td>
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">　</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">
								<p align="center">暂无图片信息！</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td align="middle" height="5" style="font-size: 12PX; font-family: 宋体">
								</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">　</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont" align="right">　</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
		</table></td>
								</tr>
								<%end if
								rsxx.close
								set rsxx=nothing
								%><!--结束显示图片-->
							<%set rsx=server.CreateObject("adodb.recordset")
							Sqlx="select top 5 infokey,tj,state,infoclass,infoadd,topic,CreateTime,pic,infotop,color From Dat_Information Where State = 1 and dl='"&rsf("id")&"' order by  infotop  desc,tj  desc,infokey desc"
					 Rsx.Open Sqlx,conn,1,3
					 if not rsx.EOF then
                        do while not rsx.EOF
					 xxlx2=rsx("InfoClass")
							if len(rsx("Topic")) > 14 then
								strTopic2 = left(rsx("Topic"),15) &".."
							else
								strTopic2 = rsx("Topic")
							end if
							strsj=rsx("CreateTime")
							strsj1=FormatTime(rsx("CreateTime"),6)
							pic=rsx("pic")
							strcolor=rsx("color")
                      %>
								<tr>
									<td background="images/20.gif" height="20">&nbsp;<font color="#0000ff"><%call  gqlx(2,xxlx2)%></font>&nbsp;<a href="View_Info.asp?Id=<% =rsx("InfoKey")%>" target="_blank" class="a01"><%if  strcolor<>""  then%><font color="#<%=strcolor%>"><%=strTopic2%></font><%else%><%=strTopic2%><%end  if%></a><%if pic<>"" and pic<>"http://" then%><font color="#109610"><span style="font-size: 9pt">[图]</span></font><%end if%><%if rsx("infotop")=1 then%><img border="0" src="images/Ontop.gif" alt="置顶信息"><%end  if%></td>
									<td align="right" width="13%" background="images/20.gif">
									<%if cint(DateDiff ("d",""&strsj1&"",FormatTime(now(),6)))<cint(4) then%><font color="#ff0000"><%else%><font color="#999999"><%end if%><%=DatePart ("m",""&strsj&"")%>-<%=DatePart ("d",""&strsj&"")%></font>&nbsp;</td>
								</tr><%rsx.MoveNext
						loop
						end if
						rsx.close
						set rsx=nothing%>
								</table>
							</td>
						</tr>
					</table>
					</td>
				</tr>
				</table></td><!--第一列结束--><%
					   Rsf.MoveNext
					 If Not Rsf.Eof Then
					   b=b+1
					   %>
			<%
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rsf("id")&"'")
dlsl = rscd2(0)%>
			<td height="51" width="293" align="right"><table cellSpacing="1" cellPadding="0" width="289" bgColor="#cccccc" border="0">
				<tr>
					<td width="50%" height="38">
					<table cellSpacing="0" cellPadding="0" width="100%" border="0">
						<tr>
							<td bgColor="#ffffff" width="13%">
							<%
							strpic=rsf("pic")
							if strpic<>"" then%>
							<img border="0" src="<%=strpic%>"><%end if%></td>
							<td bgColor="#ffffff" width="72%" background="images/bg.gif">
							<A href="list.asp?bid=<%=rsf("id")%>" class="a01"><%=rsf("BigClassName")%>(<%=dlsl%>)</A></td>
							<td bgColor="#ffffff" width="16%"><A href="list.asp?bid=<%=rsf("id")%>">
							<img border="0" src="images/m.gif" width="45" height="30"></A></td>
						</tr>
						<tr>
							<td vAlign="top" bgColor="#ffffff" height="100" colspan="3">
<table height="20" cellSpacing="0" cellPadding="0" width="287" border="0">
<!--开始显示图片-->
								<%set rsxx=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (InStr(pic,'OpenFile01.asp?')>0 or InStr(pic,'.jpg')>0 or InStr(pic,'.gif')>0 or InStr(pic,'.bmp')>0 or InStr(pic,'.png')>0 or InStr(pic,'.bmp')>0) order by infokey desc"
else
Sqlxx="select top 1 * From Dat_Information Where State = 1 and dl='"&rsf("id")&"' and (CharIndex('OpenFile01.asp?',pic)>0 or CharIndex('.jpg',pic)>0 or CharIndex('.gif',pic)>0 or CharIndex('.bmp',pic)>0 or CharIndex('.png',pic)>0 or CharIndex('.bmp',pic)>0) order by infokey desc"
end if
					 Rsxx.Open Sqlxx,conn,1,1
					 if not rsxx.EOF then
					 strtit=rsxx("topic")
					yxq=rsxx("InfoDate")
						  fbsj=FormatTime(rsxx("CreateTime"),8)
						  dqsj=DateAdd( "d" ,yxq ,fbsj)
						  sysj=DateDiff ("d",date(),dqsj)
						  if sysj<0 then
						  sysj="<font color=#808080>过期</font>"
						  else
						  sysj="<font color=#ff0000>"&sysj&"</font>&nbsp;天"
						  end if
						  sxxid=rsxx("infokey")
%><tr>
									<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
			<tr style="font-size: 12PX; font-family: 宋体">
				<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">
				<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
					<tr style="font-size: 12PX; font-family: 宋体">
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td style="font-size: 12PX; font-family: 宋体">
								<table height="87" cellSpacing="0" cellPadding="0" width="100%" bgColor="#bcbcbc" border="0">
									<tr style="font-size: 12PX; font-family: 宋体">
										<td align="middle" style="font-size: 12PX; font-family: 宋体">
										<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
										<img alt="<%=strtit%>" src="<%=rsxx("pic")%>" border="0" width="113" height="85"></a></td>
									</tr>
								</table>
								</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td height="2" style="font-size: 12PX; font-family: 宋体">
								</td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td background="images/text_bg.gif" height="18" style="font-size: 12PX; font-family: 宋体">
								<p align="center"><%=leftt(strtit,16)%></td>
							</tr>
						</table>
						</td>
						<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋体">　</td>
						<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">　</td>
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont"><font color="#ff3300">
								<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
								<font color="#ff0000"><%=leftt(strtit,18)%></font> </a>
								</font></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">　<%=leftt(rsxx("Content"),46)%><font color="#ff0000">[
								<a target="_blank" href="View_Info.asp?id=<%=sxxid%>">
								<font color="#ff0000">详 细</font></a> ]</font></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td align="middle" height="5" style="font-size: 12PX; font-family: 宋体">
								<img height="1" src="images/line.gif" width="121"></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont">剩余时间：<%=sysj%></td>
							</tr>
							<tr style="font-size: 12PX; font-family: 宋体">
								<td class="sfont" align="right">　</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</td>
			</tr>
		</table></td>
								</tr><%else%>
<tr>
									<td height="20" colspan="2"><table cellSpacing="1" cellPadding="1" width="99%" align="center" bgColor="#dfdfdf" border="0">
			<tr style="font-size: 12PX; font-family: 宋体">
				<td bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">
				<table cellSpacing="0" cellPadding="0" width="100%" bgColor="#f6f6f6" border="0">
					<tr style="font-size: 12PX; font-family: 宋体">
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="115" align="center" border="0">
							<tr style="font-size: 12PX; font-family: 宋体">
								<td style="font-size: 12PX; font-family: 宋体">
								<p align="center">
										<img border="0" src="images/NoPic2.jpg" width="113" height="97"></td>
							</tr>
							</table>
						</td>
						<td width="1" bgColor="#e2e2e2" style="font-size: 12PX; font-family: 宋体">　</td>
						<td width="1" bgColor="#ffffff" style="font-size: 12PX; font-family: 宋体">　</td>
						<td style="font-size: 12PX; font-family: 宋体">
						<table cellSpacing="0" cellPadding="0" width="135" align="center" border="0">