📄 复件 default.asp
字号:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href=news_display.asp?keyno=<%=rs("keyno")%> class="a11" target="_blank">
<% response.Write left(rs("title"),30) & "..." %>
</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font2">
<%
response.Write left(rs("content"),50) & "..."
%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
end if
rs.movenext
do while not rs.EOF %></td>
</tr>
</table>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"> </td>
<td><img src="images/arrow1.gif" width="4" height="6"><a href=news_display.asp?keyno=<%=rs("keyno")%> class="a02" target="_blank">
<%
if len(rs("title"))>=30 then
response.Write left(rs("title"),30)& "..."
else
response.Write rs("title")
end if
%>
</a><%response.Write " " & year(rs("updatetime")) & "-" & month(rs("updatetime")) & "-" & day(rs("updatetime"))%></td>
</tr>
<%
rs.MoveNext
loop
rs.Close%>
</table>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="24%" align="left"><img src="images/title_2.gif" width="86" height="16"></td>
<td width="55%" valign="top"> <table width="100%" height="6" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#a5a5a5"></td>
</tr>
</table>
<table width="100%" height="4" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#ececec"></td>
</tr>
</table></td>
<td width="4%" valign="top"><a href="show.asp"><img src="images/bt_more_1.gif" width="48" height="11" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
sql="select top 5 keyno,title,updatetime from miscell where baseclass='400' and state='1' order by sortnum asc, keyno desc"
rs.open sql,cn,0,1,1
do while not rs.EOF
%></td>
</tr>
</table>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="3%"> </td>
<td width="73%"><img src="images/arrow1.gif" width="4" height="6"> <a href=show.asp?keyno=<%=rs("keyno")%> class="a02">
<%
if len(rs("title"))>=20 then
response.Write trim(left(rs("title"),20))& "..."
else
response.Write trim(rs("title"))
end if
%>
</a></td>
<td width="24%"> <font color="#666666"><%=year(rs("updatetime")) & "-" & month(rs("updatetime")) & "-" & day(rs("updatetime"))%></font></td>
</tr>
<%
rs.MoveNext
loop
rs.Close%>
</table>
</td>
<td width="20"> </td>
<td width="180" valign="top"><table width="100%" height="3" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="71" bgcolor="#FFFFFF"></td>
</tr>
</table>
<table width="100%" height="17" border="0" cellpadding="0" cellspacing="0">
<tr>
<td background="images/bg_title2.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60%" align="center" class="font3"><table width="100%" height="3" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<font color="#333333">商会简介</font></td>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="1" border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#cacaca"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ededed">
<tr>
<td align="center" bgcolor="#fbfbfb"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%
sql="select top 1 keyno,content,updatetime from miscell where baseclass='101' and classcode='105' and sortnum=1 and state='1' order by sortnum asc, keyno desc"
rs.open sql,cn,0,1,1
do while not rs.EOF
%></td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="font2">
<%
response.Write left(rs("content"),150) & "..."
%>
</td>
</tr>
<%
rs.MoveNext
loop
rs.Close%>
</table>
<table width="90%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right"><a href="company.asp" class="a02">详细介绍</a></td>
</tr>
</table>
<table width="90%" height="10" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="5%" align="center"> </td>
<td align="left"><a href="investment.asp"><img src="images/bt_down_1.jpg" width="122" height="81" border="0"></a></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" height="35" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="778" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#D70100"></td>
</tr>
</table>
<table width="778" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="141" valign="top">
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="100" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><table width="100%" height="18" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#D70100" class="font3">友情链接</td>
</tr>
</table></td>
<td width="13" valign="top"><img src="images/point_title2_1.jpg" width="13" height="21"></td>
</tr>
</table>
<%
sql="select keyno,title,website,updatetime from miscell where baseclass='101' and classcode='900' and state='1' order by sortnum asc, keyno desc"
rs.open sql,cn,1,1,1
dim cnt
cnt=0
while not rs.EOf
cnt=cnt+1
if cnt<=5 then
%></td>
<td width="96"><table width="95" height="19" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="95" align="center" bgcolor="#f0f0f0">
<a href=<%=rs("website")%> target="_blank" class="a02"><%=rs("title")%></a>
</a></td>
</tr>
</table>
</td>
<td width="378"><%
else
%></td>
<td width="163" align="right">
<form name="form5">
<select name="menu3" onchange="linkChange(this);">
<option value="" selected>==更多友情链接==</option>
<option value="<%=rs("website")%>"><%=rs("title")%></option>
<%end if
rs.MoveNext
wend
rs.Close
%>
</select>
</form>
</td>
</tr>
</table>
<script language="javascript">
function linkChange(selectObj)
{
var value = selectObj.options[selectObj.selectedIndex].value;
if (value != "")
{
window.open(value, "", "")
}
}
</script>
<!-- #include file="end.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -