left.asp

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

<table cellPadding="0" border="0" cellSpacing="0" cellPadding="0" width="164" >
			<tr>
				<td>
				<img height="28" src="images/lht1.gif" width="164"></td>
			</tr>
			<tr>
				<td align="middle" bgColor="#ffbe29" height="130">
				<iframe name="login" width="136" height="127" src="common/inc_login.asp" scrolling="no" align="middle" border="0" frameborder="0" marginwidth="1" marginheight="1" target="_top">
				浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></td>
			</tr>
		</table>
		<table height="3" cellSpacing="0" cellPadding="0" width="132" border="0">
			<tr>
				<td></td>
			</tr>
		</table>
		<table cellSpacing="1" cellPadding="0" width="163" bgColor="#ffaf2b" border="0">
			<tr>
				<td><img height="28" src="images/12s.gif" width="163"></td>
			</tr>
			<tr>
				<td bgColor="#ffffff">
				<p style="margin-left: 4px"><!--#INCLUDE FILE="Common/Inc_Catalog.asp"--></td>
			</tr>
		</table>
		<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="164" border="0" height="178">
              <tbody>
              <tr>
                <td vAlign="top" width="170" height="2"></td>
              </tr>
              <tr>
                <td vAlign="top" width="170" height="55" align="center">
				<a target="_blank" href="http://www.fyasp.com"><img border="0" src="images/fyad.gif" width="164" height="55"></a></td>
              </tr>
              <tr>
                <td width="164" background="images/1ks.gif" height="113" valign="bottom"> 
				<table border="0" style="border-collapse: collapse" width="164" height="79" cellpadding="0">
					<tr>
						<td height="26" width="62" align="center">
						<a href="list.asp?lx=1"><font color="#000000">供应信息</font></a></td>
						<td height="26" width="63" align="center">
						<a href="list.asp?lx=2"><font color="#000000">求购信息</font></a></td>
						<td height="26" width="63" align="center">
						<a href="list.asp?lx=3"><font color="#000000">要闻信息</font></a></td>
					</tr>
					<tr>
						<td height="26" width="62" align="center">
						<a href="list.asp?lx=4"><font color="#000000">动态信息</font></a></td>
						<td height="26" width="63" align="center">
						<a href="list.asp?lx=5"><font color="#000000">招聘信息</font></a></td>
						<td height="26" width="63" align="center">
						<a href="list.asp?lx=6"><font color="#000000">求职信息</font></a></td>
					</tr>
					<tr>
						<td height="27" width="62" align="center">
						<a href="list.asp?lx=7"><font color="#000000">展会信息</font></a></td>
						<td height="27" width="63" align="center">
						<a href="list.asp?lx=8"><font color="#000000">其它信息</font></a></td>
						<td height="27" width="63" align="center"><b>
						<a href="add.asp"><font color="#FF0000">免费发布</font></a></b></td>
					</tr>
				</table>
				</td>
              </tr>

              </tbody>
            </table>
		<table height="3" cellSpacing="0" cellPadding="0" width="164" border="0">
			<tr>
				<td></td>
			</tr>
              <tr>
                <td vAlign="top" width="164" height="55" align="center"><table cellSpacing="1" cellPadding="0" width="164" bgColor="#c4df5a" border="0">
					<tr>
						<td bgColor="#ffffff">
						<img height="28" src="images/1lt.gif" width="164"></td>
					</tr>
					<tr>
						<td bgColor="#feffec"><br><table borderColor="#111111" cellSpacing="0" cellPadding="0" width="164" border="0">
        <tbody>
<%
set rsnewpic=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
sqlpic="Select top "&intNewtjinfof&" InfoKey,Topic,pic From Dat_Information Where State = 1 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) and  tj ='1' order by infokey desc"
else
sqlpic="Select top "&intNewtjinfof&" InfoKey,Topic,pic From Dat_Information Where State = 1 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) and  tj ='1' order by infokey desc"
end if
	rsnewpic.Open sqlpic,conn,1,1  
	do while not rsnewpic.EOF
								if len(rsnewpic("Topic")) > 16 then
								strTopic2 = leftt(rsnewpic("Topic"),17) &".."
							else
								strTopic2 = rsnewpic("Topic")
							end if
							tjpicid=rsnewpic("InfoKey")
							%>
        <tr>
          <td width="164" align="center" valign="top" height="122">
		<a href="View_Info.asp?Id=<%=tjpicid%>" target="_blank">
							<img border="0" src="<%=rsnewpic("pic")%>" width="150" height="112" alt="<% =strTopic2%>" style="border: 1px solid #BFDFFF;"></a><br>
<a href="View_Info.asp?Id=<%=tjpicid%>" target="_blank"><%=strTopic2%></a></td>
        </tr><%rsnewpic.MoveNext
		loop 		
  	rsnewpic.Close()
  	set rsnewpic=nothing%>
        <tr>
          <td height="8"></td>
        </tr>
        </tbody>
      </table>
						</td>
					</tr>
				</table></td>
              </tr>
		</table>