📄 index.asp
字号:
<td vAlign="top" width="6" rowspan="2"><img height="1" src="images/space.gif" width="8" border="0"></td>
<td vAlign="top" width="1" background="images/space_01.gif" rowspan="2"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
<td class="bg01" vAlign="top" width="157" align="center" rowspan="3">
<table borderColor="#111111" height="176" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="top" height="35"><img height="35" src="images/pic_520_passport_01.gif" width="157" border="0"></td>
</tr>
<tr>
<td vAlign="top" background="images/pic_520_passport_02.gif" bgColor="#ffffff" height="120" align="center"><!--#include file="Common/Inc_Login.asp"--></td>
</tr>
<tr>
<td vAlign="top" height="21"><img height="21" src="images/pic_520_passport_03.gif" width="157" border="0"></td>
</tr>
</tbody>
</table>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25" width="155"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF"><a href="class.asp"><span style="text-decoration: none"><font color="#FFFFFF">信息分类</font></span></a></font></b></td>
</tr>
<tr>
<td height="8" width="155"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Catalog.asp"--></td>
</tr>
<tr>
<td height="8" width="155" colspan="2"></td>
</tr>
</tbody>
</table>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">合作伙伴</font></b></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Cooperate.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <b><font color="#FFFFFF">友情链接</font></b></td>
</tr>
<tr>
<td height="8"></td>
</tr>
<tr>
<td width="155" align="center" valign="top"><!--#INCLUDE FILE="Common/Inc_Link.asp"--></td>
</tr>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="157" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/space_01.gif" height="25"> <img src="images/arrow_02.gif" border="0"> <font color="#FFFFFF"><b>图片信息</b></font></td>
</tr>
<tr>
<td height="8"></td>
</tr><%set rsnewpic=server.CreateObject("adodb.recordset")
sqlpic="Select top 4 InfoKey,Topic,pic From Dat_Information Where State = 1 and pic<>'' and pic<>'http://' order by infokey desc"
rsnewpic.Open sqlpic,conn,1,1
do while not rsnewpic.EOF%>
<tr>
<td width="155" align="center" valign="top" height="122">
<a href="View_Info.asp?Id=<%=rsnewpic("InfoKey")%>" target="_blank">
<img border="0" src="<%=rsnewpic("pic")%>" width="136" height="112" alt="<% =rsnewpic("Topic")%>" style="border: 1px solid #C0C0C0; padding: 1px"></a>
</td>
</tr><%rsnewpic.MoveNext
loop
rsnewpic.Close()
set rsnewpic=nothing%>
<tr>
<td height="8"></td>
</tr>
</tbody>
</table>
</td>
<td vAlign="top" width="1" background="images/space_01.gif" rowspan="3"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
</tr>
<tr>
<td vAlign="top" width="10"> </td>
<td vAlign="top" width="580" 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="x/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%">
<img border="0" src="x/<%=b%>.gif"></td>
<td bgColor="#ffffff" background="x/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="x/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 rsx=server.CreateObject("adodb.recordset")
Sqlx="select top 5 infokey,tj,state,infoclass,infoadd,topic,CreateTime From Dat_Information Where State = 1 and dl='"&rsf("id")&"' order by infokey desc"
Rsx.Open Sqlx,conn,1,3
if not rsx.EOF then
do while not rsx.EOF
xxlxa=rsx("InfoClass")
Select Case xxlxa
Case "1"
strInfoClass2 = "<a href=list.asp?lx=1><font color=#009933 style=""font-size: 9pt""><span style=""text-decoration: none"">[销售]</span></font></a>"
Case "2"
strInfoClass2 = "<a href=list.asp?lx=2><font color=#ff0000 style=""font-size: 9pt""><span style=""text-decoration: none"">[求购]</span></font></a>"
Case "3"
strInfoClass2 = "<a href=list.asp?lx=3><font color=#FF00FF style=""font-size: 9pt""><span style=""text-decoration: none"">[要闻]</span></font></a>"
Case "4"
strInfoClass2 = "<a href=list.asp?lx=4><font color=#008080 style=""font-size: 9pt""><span style=""text-decoration: none"">[动态]</span></font></a>"
Case "5"
strInfoClass2 = "<a href=list.asp?lx=5><font color=#0000FF style=""font-size: 9pt""><span style=""text-decoration: none"">[招聘]</span></font></a>"
Case "6"
strInfoClass2 = "<a href=list.asp?lx=6><font color=#9900FF style=""font-size: 9pt""><span style=""text-decoration: none"">[求职]</span></font></a>"
Case "7"
strInfoClass2 = "<a href=list.asp?lx=7><font color=#CC6600 style=""font-size: 9pt""><span style=""text-decoration: none"">[展会]</span></font></a>"
Case "8"
strInfoClass2 = "<a href=list.asp?lx=8><font color=#000000 style=""font-size: 9pt""><span style=""text-decoration: none"">[其它]</span></font></a>"
End Select
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)
%>
<tr>
<td background="x/20.gif" height="20"> <font color="#0000ff"><% = strInfoClass2%></font> <a href="View_Info.asp?Id=<% =rsx("InfoKey")%>" target="_blank" class="a01"><%=strTopic2%></a></td>
<td align="right" width="13%" background="x/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> </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%">
<img border="0" src="x/<%=b%>.gif" width="37" height="30"></td>
<td bgColor="#ffffff" width="72%" background="x/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="x/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 rsx=server.CreateObject("adodb.recordset")
Sqlx="select top 5 infokey,tj,state,infoclass,infoadd,topic,CreateTime From Dat_Information Where State = 1 and dl='"&rsf("id")&"' order by infokey desc"
Rsx.Open Sqlx,conn,1,3
if not rsx.EOF then
do while not rsx.EOF
xxlxa=rsx("InfoClass")
Select Case xxlxa
Case "1"
strInfoClass2 = "<a href=list.asp?lx=1><font color=#009933 style=""font-size: 9pt""><span style=""text-decoration: none"">[销售]</span></font></a>"
Case "2"
strInfoClass2 = "<a href=list.asp?lx=2><font color=#ff0000 style=""font-size: 9pt""><span style=""text-decoration: none"">[求购]</span></font></a>"
Case "3"
strInfoClass2 = "<a href=list.asp?lx=3><font color=#FF00FF style=""font-size: 9pt""><span style=""text-decoration: none"">[要闻]</span></font></a>"
Case "4"
strInfoClass2 = "<a href=list.asp?lx=4><font color=#008080 style=""font-size: 9pt""><span style=""text-decoration: none"">[动态]</span></font></a>"
Case "5"
strInfoClass2 = "<a href=list.asp?lx=5><font color=#0000FF style=""font-size: 9pt""><span style=""text-decoration: none"">[招聘]</span></font></a>"
Case "6"
strInfoClass2 = "<a href=list.asp?lx=6><font color=#9900FF style=""font-size: 9pt""><span style=""text-decoration: none"">[求职]</span></font></a>"
Case "7"
strInfoClass2 = "<a href=list.asp?lx=7><font color=#CC6600 style=""font-size: 9pt""><span style=""text-decoration: none"">[展会]</span></font></a>"
Case "8"
strInfoClass2 = "<a href=list.asp?lx=8><font color=#000000 style=""font-size: 9pt""><span style=""text-decoration: none"">[其它]</span></font></a>"
End Select
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)
%>
<tr>
<td background="x/20.gif" height="20"> <font color="#0000ff"><% = strInfoClass2%></font> <a href="View_Info.asp?Id=<% =rsx("InfoKey")%>" target="_blank" class="a01"><%=strTopic2%></a></td>
<td align="right" width="13%" background="x/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> </td>
</tr><%rsx.MoveNext
loop
end if
rsx.close
set rsx=nothing%>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr><%
Rsf.MoveNext
End If
b=b+1
Loop
Rsf.Close
set rsf=nothing
%>
</table>
</td>
</tr>
<tr>
<td vAlign="top" width="760" colSpan="6"><img height="14" src="images/pic_bottom_01.gif" width="760" border="0"></td>
</tr>
</tbody>
</table>
<!--#include file="End.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -