<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'代码调用:<script language="JavaScript" src="js.asp?lx=1&num=6&words=15&dl=12&tj=ok&showlx=ok&showtime=ok"></script>
'***信息调用说明：
'lx为信息类型：供应：1  求购：2 要闻：3 动态：4 招聘：5 求职：6 展会：7  其它：8
'num为调用条数：默认为6条
'words为标题显示字数。默认为10个字符。
'dl  为一级分类编号，如果单独调用某个分类请填写此参数 如:&dl=12
'tj  是否调用推荐信息，如果只调用推荐信息，请保留此参数，否则留空
'showlx   是否显示信息前边的类型，如果显示，请保留此参数，否则留空
'showtime 是否显示信息发布时间，如果显示，则保留此参数，否则为空（如果修改时间显示方式，请打开js.asp，找到103行FormatTime(rsa("CreateTime"),4)，修改数字4为别的数字，会看到时间格式的变化）
'-------------------------------------------------------------------------------------
qq=lcase(request.servervariables("url"))
rr=InstrRev(""&qq&"","/")
dd=left(""&qq&"",""&rr&"")
hp="http://"&request.servervariables("server_name")&""&dd&""
%>
<%
dim fyshow
s_num=changechr(request("num"))
lm=changechr(request("dl"))
lx=changechr(request("lx"))
s_words=changechr(request("words"))
tj=changechr(request("tj"))
showlx=changechr(request("showlx"))
showtime=changechr(request("showtime"))
tempcontent="<table cellspacing=0 cellpadding=0 width=100% align=center border=0>"
tempcontent=tempcontent&"  <tbody>"
tempcontent=tempcontent&"  <tr>"
tempcontent=tempcontent&"    <td height=4></td>"
tempcontent=tempcontent&"  </tr>"
if s_num="" then
s_num=6
end if
if s_words="" then
s_words=10
end if
			set rsa=server.createobject("adodb.recordset")
			strsql="select Top "&s_num&" * from Dat_Information Where State = 1 "
			if lx<>"" then
			strsql=strsql&" and InfoClass='"&lx&"' "
			end if
			if tj="ok" then
			strsql=strsql&" and tj = true "
			end if
			if lm<>"" then
			strsql=strsql&" and dl ='"&lm&"' "
			end if
			strsql=strsql&" Order By InfoKey Desc"
			rsa.Open strsql,conn,1,1
			if rsa.EOF or rsa.BOF then
tempcontent=tempcontent&" <tr><td>暂时没有任何信息！</td></tr>"
			end if
			do while not rsa.EOF
			tempcontent=tempcontent&"  <tr>" 
			sstit=Trim(rsa("Topic"))
			xxidb=Trim(rsa("InfoKey"))
if len(sstit)>cint(s_words) then
					atempTitle = Left(sstit,s_words)&"..."
		   		else
					atempTitle =sstit
end if


tempcontent=tempcontent&"    <td height=20 valign=top><div align='left'>"
if showlx="ok"  then
xxlx3=cstr(rsa("InfoClass"))
		Select Case xxlx3
		Case "1"
							tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=1><font color=#009933 style=font-size: 9pt><span style=text-decoration: none>[销售]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "2"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=2><font color=#ff0000 style=font-size: 9pt><span style=text-decoration: none>[求购]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"	
							Case "3"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=3><font color=#FF00FF style=font-size: 9pt><span style=text-decoration: none>[要闻]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "4"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=4><font color=#008080 style=font-size: 9pt><span style=text-decoration: none>[动态]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "5"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=5><font color=#0000FF style=font-size: 9pt><span style=text-decoration: none>[招聘]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "6"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=6><font color=#9900FF style=font-size: 9pt><span style=text-decoration: none>[求职]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "7"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=7><font color=#CC6600 style=font-size: 9pt><span style=text-decoration: none>[展会]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
							Case "8"
								tempcontent=tempcontent&"·<a  target=_blank href="&hp&"list.asp?lx=8><font color=#000000 style=font-size: 9pt><span style=text-decoration: none>[其它]</span></font></a><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
						Case else
								tempcontent=tempcontent&"·<font color=#000000 style=font-size: 9pt><span style=text-decoration: none>[未知]</span></font><a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"

		End Select
else
tempcontent=tempcontent&"·<a  target=_blank href='"&hp&"View_Info.asp?Id="&xxidb&"'>"&atempTitle&"</a>"
end  if
if showtime="ok" then
tempcontent=tempcontent&"<td align=right width=86>"&FormatTime(rsa("CreateTime"),8)&"</td>"
end if
tempcontent=tempcontent&"    </div></td>"
tempcontent=tempcontent&"  </tr>"

	rsa.movenext
	loop
	rsa.close
	set rsa = nothing
tempcontent=tempcontent&"  </tbody>"
tempcontent=tempcontent&"</table>"
%>
document.write("<%=tempcontent%>");