📄 bodyr2.asp
字号:
<%
set rs=conn.execute("select * from nclass where lmflag0=2 order by lmorder")
do while not rs.eof
set rs1=conn.execute("select * from product where classid=" &rs("nclassid")&" order by changedate desc")
if rs("lmflag6")="9" then '左右标题值
%>
<div align="center">
<TABLE cellPadding=0 width="718" border=1 style="border-collapse: collapse" bordercolor=<%=rs("lmflag4")%>>
<TBODY>
<TR>
<TD width="716" colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD width=716 background=<%=rs("lmflag1")%> height=30>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table29" height="100%">
<tr>
<td width="620"></td>
<td width="95"><p align="center"><A href="showxm.asp?name=<%=rs("classname")%>"><span style="font-size: 10pt"><IMG src=<%=rs("lmflag5")%> alt="更多内容" border=0 align="absmiddle"></span></A></td>
</tr>
</table>
</TD></TR></TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD vAlign=top bgColor=<%=rs("lmflag2")%> width="50%" background=<%=rs("lmflag3")%>>
<TABLE cellPadding=2 width="345" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<%
if rs1.bof and rs1.eof then
response.write "<TR>"
response.write "<TD width=10></TD>"
response.write "<TD>暂无信息</TD>"
response.write "<TD width=40></TD>"
response.write "</TR>"
end if
for i=1 to 6 %>
<TR>
<% if rs1.eof then exit for
%>
<TD class="" vAlign=top width=10><span style="font-size: 10pt"><IMG src="body/Soft_common.gif"></span></TD>
<TD class="" height="20" >
<A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>">
<span style="font-size: 10pt">
<%if rs1("phflag")=1 then%>
<img border="0" src="body/news.gif">
<%end if%>
<%=rs1("productname")%>
</span></A></TD>
<TD class="" align=right width=40>
<span style="font-size: 10pt">
<% temp=datepart("m",rs1("ChangeDate")) &"-" & datepart("d",rs1("ChangeDate"))
if cint(right(temp,2))<10 then
temp1=left(temp,len(temp)-1) +"0"+right(temp,1)
else
temp1=temp
end if
if temp=datepart("m",date) &"-" & datepart("d",date) then
%>
<FONT color=red ;FONT-SIZE: 13pt><%=temp1%></FONT>
<% else %>
<FONT FONT-SIZE: 13pt><%=temp1%></FONT>
<%end if%>
</span>
</TD>
<% rs1.movenext%>
</TR>
<%next%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
</TD>
<TD vAlign=top bgColor=<%=rs("lmflag2")%> width="50%" background=<%=rs("lmflag3")%>>
<TABLE cellPadding=2 width="345" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<%
if rs1.bof and rs1.eof then
response.write "<TR>"
response.write "<TD width=10></TD>"
response.write "<TD>暂无信息</TD>"
response.write "<TD width=40></TD>"
response.write "</TR>"
end if
for i=1 to 6 %>
<TR>
<% if rs1.eof then exit for
%>
<TD class="" vAlign=top width=10><span style="font-size: 10pt"><IMG src="body/Soft_common.gif"></span></TD>
<TD class="" height="20">
<A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>">
<span style="font-size: 10pt">
<%if rs1("phflag")=1 then%>
<img border="0" src="body/news.gif">
<%end if%>
<%=rs1("productname")%>
</span></A></TD>
<TD class="" align=right width=40>
<span style="font-size: 10pt">
<% temp=datepart("m",rs1("ChangeDate")) &"-" & datepart("d",rs1("ChangeDate"))
if cint(right(temp,2))<10 then
temp1=left(temp,len(temp)-1) +"0"+right(temp,1)
else
temp1=temp
end if
if temp=datepart("m",date) &"-" & datepart("d",date) then
%>
<FONT color=red ;FONT-SIZE: 13pt><%=temp1%></FONT>
<% else %>
<FONT FONT-SIZE: 13pt><%=temp1%></FONT>
<%end if%>
</span>
</TD>
<% rs1.movenext%>
</TR>
<%next%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
</TD>
<%rs1close()%>
</TR>
</TBODY>
</TABLE>
</div>
<%end if%>
<%
if rs("lmflag6")="2" then '左一张图片,右多项标题值
%>
<div align="center">
<TABLE cellPadding=0 width="716" border=1 style="border-collapse: collapse" bordercolor=<%=rs("lmflag4")%>>
<TBODY>
<TR>
<TD width="716" colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD width=716 background=<%=rs("lmflag1")%> height=30>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table29" height="100%">
<tr>
<td width="620"></td>
<td width="95"><p align="center"><A href="showxm.asp?name=<%=rs("classname")%>"><span style="font-size: 10pt"><IMG src=<%=rs("lmflag5")%> alt="更多内容" border=0 align="absmiddle"></span></A></td>
</tr>
</table>
</TD></TR></TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD vAlign=top bgColor=<%=rs("lmflag2")%> width="50%" background=<%=rs("lmflag3")%>>
<TABLE cellPadding=2 width="716" border=0>
<TBODY>
<TR>
<%tempproductname=""
if not(rs1.bof and rs1.eof) then%>
<TD width="240" align=center>
<A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>">
<img border="0" src=<%="UpLoadFile\" &rs1("smallPic")%> width="230"></a>
</TD>
<%
tempproductname=rs1("productname")
if len(tempproductname)>15 then tempproductname=left(tempproductname,15) &"..."
rs1.movenext
end if%>
<TD width="449" valign="top" rowspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="400" id="table31">
<TBODY>
<%
if rs1.bof and rs1.eof then
response.write "<TR>"
response.write "<TD width=10></TD>"
response.write "<TD>暂无信息</TD>"
response.write "<TD width=40></TD>"
response.write "</TR>"
end if
for i=1 to 9 %>
<TR>
<%
if rs1.eof then exit for
%>
<TD class="" vAlign=top width=10><span style="font-size: 10pt"><IMG src="body/Soft_common.gif"></span></TD>
<TD class="" height="20">
<A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>">
<span style="font-size: 10pt">
<%if rs1("phflag")=1 then%>
<img border="0" src="body/news.gif">
<%end if%>
<%=rs1("productname")%>
</span></A></TD>
<TD class="" align=right width=40>
<span style="font-size: 10pt">
<% temp=datepart("m",rs1("ChangeDate")) &"-" & datepart("d",rs1("ChangeDate"))
if cint(right(temp,2))<10 then
temp1=left(temp,len(temp)-1) +"0"+right(temp,1)
else
temp1=temp
end if
if temp=datepart("m",date) &"-" & datepart("d",date) then
%>
<FONT color=red ;FONT-SIZE: 13pt><%=temp1%></FONT>
<% else %>
<FONT FONT-SIZE: 13pt><%=temp1%></FONT>
<%end if%>
</span>
</TD>
<% rs1.movenext%>
</TR>
<%next%>
</TBODY></TABLE></TD></TR>
<TR>
<TD width="267">
<p align="center"><font size="2"><%=tempproductname%></font></TD>
</TR></TBODY></TABLE>
</TD>
<%rs1close()%>
</TR>
</TBODY>
</TABLE>
</div>
<%end if%>
<%
if rs("lmflag6")="3" then '左一张图片,右一项文章值
%>
<div align="center">
<TABLE cellPadding=0 width="716" border=1 style="border-collapse: collapse" bordercolor=<%=rs("lmflag4")%>>
<TBODY>
<TR>
<TD width="716" colspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD width=716 background=<%=rs("lmflag1")%> height=30>
<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table29" height="100%">
<tr>
<td width="620"></td>
<td width="95"><p align="center"><A href="showxm.asp?name=<%=rs("classname")%>"><span style="font-size: 10pt"><IMG src=<%=rs("lmflag5")%> alt="更多内容" border=0 align="absmiddle"></span></A></td>
</tr>
</table>
</TD></TR></TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD vAlign=top bgColor=<%=rs("lmflag2")%> width="50%" background=<%=rs("lmflag3")%>>
<TABLE cellPadding=2 width="716" border=0>
<TBODY>
<TR>
<%if not(rs1.bof and rs1.eof) then%>
<TD width="240" align=center>
<A href ="showinfo.asp?id=<%=rs1("productid")%>&name=<%=rs("classname")%>">
<img border="0" src=<%="UpLoadFile\" &rs1("smallPic")%> width="230"></a>
</TD>
<TD width="449" valign="top" rowspan="2">
<TABLE cellSpacing=0 cellPadding=0 width="100%" id="table31">
<TBODY>
<TR>
<TD height="30" align="center">
<p align="center"><b><font size="3" color="#0000FF"><%=rs1("productname")%></font></b></TD>
</TR>
<TR>
<TD><font size="2"><%=rs1("content")%></font></TD>
</TR></TBODY></TABLE></TD>
<%else if rs1.bof and rs1.eof then
response.write "<TR>"
response.write "<TD width=10></TD>"
response.write "<TD>暂无信息</TD>"
response.write "<TD width=40></TD>"
response.write "</TR>"
end if
end if%>
</TR></TBODY></TABLE>
</TD>
<%rs1close()%>
</TR>
</TBODY>
</TABLE>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -