📄 index2.asp
字号:
<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
xxlx4=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"> <font color="#0000ff"><%call gqlx(2,xxlx4)%></font> <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> </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>
<td width="177" align="center" align="top" valign="top">
<table cellSpacing="1" cellPadding="0" width="171" bgColor="#c4df5a" border="0">
<tr>
<td bgColor="#ffffff">
<img height="28" src="images/1lt.gif" width="169"></td>
</tr>
<tr>
<td bgColor="#feffec"><br><table borderColor="#111111" cellSpacing="0" cellPadding="0" width="168" border="0">
<tbody>
<%set rsnewpic=server.CreateObject("adodb.recordset")
if is_sqldata=0 then
sqlpic="Select top "&intNewtjinfo&" 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 "&intNewtjinfo&" 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="168" 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>
</div>
<div align="center">
<table border="0" style="border-collapse: collapse" width="760" cellpadding="0">
<tr>
<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
</tr>
</table>
</div>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<tr>
<td width="12" background="hy/img/index_pcjob2_9.gif" height="20">
<img height="29" src="hy/img/index_pcjob2_8.gif" width="12"></td>
<td align="middle" width="198" background="hy/img/index_pcjob2_9.gif">
<font color="#FFFFFF"><b>分 类 导 航</b></font></td>
<td align="left" width="7">
<img height="29" src="hy/img/index_pcjob2_11.gif" width="7"></td>
<td vAlign="bottom" align="right" width="575" background="hy/img/index_pcjob2_12.gif">
<table width="100%" border="0">
<tr>
<td align="right">
<a class="p1" href="RegMember/index.asp">免费加入</a></td>
</tr>
</table>
</td>
<td align="right" width="8">
<img height="29" src="hy/img/index_pcjob2_14.gif" width="8"></td>
</tr>
<tr vAlign="top" align="middle">
<td style="BORDER-RIGHT: #0d81bc 1px solid; BORDER-LEFT: #0d81bc 1px solid; BORDER-BOTTOM: #0d81bc 1px solid" colSpan="5" bgcolor="#EEEEEE">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td><!--开始--><table cellSpacing="3" cellPadding="5" width="738" align="center" bgColor="#ffffff" border="0">
<%
set rscde = Server.CreateObject("ADODB.Recordset")
sqlInfoe = "Select * From BigClass Order By sj Desc"
rscde.Open sqlInfoe,Conn,1,1
if not rscde.eof then
do while not rscde.eof
set rscd2e= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rscde("id")&"'")
dlsl = rscd2e(0)
rscd2e.close
set rscd2e=nothing
%><tr>
<td bgColor="#f5f3f3"><b>·<A href="<% = strSysUrl%>list.asp?bid=<%=rscde("id")%>" class="a01"><%=rscde("BigClassName")%>(<%=dlsl%>)</A></b></td>
</tr>
<tr>
<td bgColor="#f5f3f3">
<table border="0" colspan="30" style="border-collapse: collapse" width="740" cellpadding="0">
<%
set rscd1a = Server.CreateObject("ADODB.Recordset")
sqlInfo1a = "Select * From smallClass where dl='"&rscde("id")&"' Order By sj Desc"
rscd1a.Open sqlInfo1a,Conn,1,1
if not rscd1a.eof then
do while not rscd1a.eof
%>
<tr><td height="20" align="left">
<%
for j=1 to 7
if not rscd1a.eof then
set rscd3a= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and xl='"&rscd1a("id")&"'")
xlsl = rscd3a(0)
xlname=rscd1a("smallClassName")
%>
<A href="<% = strSysUrl%>list.asp?sid=<%=rscd1a("id")%>" class="a01"><%=xlname%>(<%=xlsl%>)</A>
<%end if
if not rscd1a.eof then
rscd1a.movenext
end if
next
%>
</td></tr>
<%loop
end if%>
</table>
</td>
</tr>
<%
rscde.MoveNext
loop
rscde.close
set rscde=nothing
end if
%>
</table><!--结速--></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--结束-->
<div align="center">
<table border="0" style="border-collapse: collapse" width="760" cellpadding="0">
<tr>
<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
</tr>
</table>
</div>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<tr>
<td width="12" background="hy/img/index_pcjob2_9.gif" height="20">
<img height="29" src="hy/img/index_pcjob2_8.gif" width="12"></td>
<td align="middle" width="198" background="hy/img/index_pcjob2_9.gif">
<font color="#FFFFFF"><b>合作伙伴</b></font></td>
<td align="left" width="7">
<img height="29" src="hy/img/index_pcjob2_11.gif" width="7"></td>
<td vAlign="bottom" align="right" width="575" background="hy/img/index_pcjob2_12.gif">
</td>
<td align="right" width="8">
<img height="29" src="hy/img/index_pcjob2_14.gif" width="8"></td>
</tr>
<tr vAlign="top" align="middle">
<td style="BORDER-RIGHT: #0d81bc 1px solid; BORDER-LEFT: #0d81bc 1px solid; BORDER-BOTTOM: #0d81bc 1px solid" colSpan="5" bgcolor="#EEEEEE">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td bgcolor="#cccccc">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td><!--开始--><%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =1 And State = 1 Order By LinkKey Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 height="28">
<TBODY>
<%do while not rscd.eof%>
<TR>
<%
for i=1 to 6
if not rscd.eof then
%>
<TD height="26" align="middle" bgcolor="#F6F6F6" background="hy/img/index_pcjob2_12.gif"><A href="<%=rscd("Url")%>" target="_blank"><font color="#4D4D4D"><%=rscd("Homepage")%></font></A></td>
<%end if
if not rscd.eof then
rscd.movenext
end if
next
%>
</TR>
<%
loop%>
</TBODY></TABLE>
<%
end if
rscd.close
set rscd=nothing
%><!--结速--></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" style="border-collapse: collapse" width="760" cellpadding="0">
<tr>
<td background="hy/img/2005_soft_mainbg.gif" height="7"></td>
</tr>
</table>
</div>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<tr>
<td width="12" background="hy/img/index_pcjob2_9.gif" height="20">
<img height="29" src="hy/img/index_pcjob2_8.gif" width="12"></td>
<td align="middle" width="198" background="hy/img/index_pcjob2_9.gif">
<font color="#FFFFFF"><b>友情链接</b></font></td>
<td align="left" width="7">
<img height="29" src="hy/img/index_pcjob2_11.gif" width="7"></td>
<td vAlign="bottom" align="right" width="575" background="hy/img/index_pcjob2_12.gif">
</td>
<td align="right" width="8">
<img height="29" src="hy/img/index_pcjob2_14.gif" width="8"></td>
</tr>
<tr vAlign="top" align="middle">
<td style="BORDER-RIGHT: #0d81bc 1px solid; BORDER-LEFT: #0d81bc 1px solid; BORDER-BOTTOM: #0d81bc 1px solid" colSpan="5" bgcolor="#EEEEEE">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td bgcolor="#cccccc">
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td><!--开始--><%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo ="Select * From Dat_Link Where LinkClass =2 And State =1 Order By LinkKey Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 height="28">
<TBODY>
<%do while not rscd.eof%>
<TR>
<%
for i=1 to 6
if not rscd.eof then
%>
<TD height="26" align="middle" bgcolor="#F6F6F6" background="hy/img/index_pcjob2_12.gif"><A href="<%=rscd("Url")%>" target="_blank"><font color="#4D4D4D"><%=rscd("Homepage")%></font></A></td>
<%end if
if not rscd.eof then
rscd.movenext
end if
next
%>
</TR>
<%
loop%>
</TBODY></TABLE>
<%
end if
rscd.close
set rscd=nothing
%><!--结速--></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="end.asp"-->
</body>
</html>
<%
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -