?? end.asp
字號(hào):
<br>
<table width="100%" cellpadding="4" class="MainTable" style="border-collapse: collapse">
<tr>
<td class="MainHead">友情鏈接</td>
<td class="MainHead" align=right><a href="Link_List.asp" class="U"><span style="font-weight: 400">更多友情鏈接</span></a></td>
</tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select link_info_url,link_info_detail from link_info where link_info_type=1 and link_info_IndexShow=0 order by id"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<tr><td>"
set link_info_url=rs(0)
set link_info_detail=rs(1)
while not rs.eof
response.write "<a href="&link_info_url&" target=_blank><img src=uploadpic/"&link_info_detail&"></a> "
rs.movenext
wend
response.write "</td></tr>"
end if
rs.close
set rs=nothing
dim link_info_url,link_info_detail
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select link_info_url,link_info_detail from link_info where link_info_type=0 and link_info_IndexShow=0 order by id"
rs.open sql,conn,1,1
if not rs.eof then
response.write "<tr><td>"
set link_info_url =rs(0)
set link_info_detail =rs(1)
while not rs.eof
response.write "<a href="&link_info_url&" target=_blank>"&link_info_detail&"</a> "
rs.movenext
wend
response.write "</td></tr>"
end if
rs.close
set rs=nothing
%>
</table>
<br>
<table border="0" width="100%" cellpadding="4" style="border-collapse: collapse">
<tr>
<td align=center>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_info_ICP,root_info_tel,root_info_email,root_info_QQ,root_info_MSN,root_info_WangWang,root_info_sitename,root_info_address,root_info_zip,root_info_fax from root_info where id=1"
rs.open sql,conn,1,1
root_info_ICP1 =rs(0)
root_info_tel1 =rs(1)
root_info_email1 =rs(2)
root_info_QQ1 =rs(3)
root_info_MSN1 =rs(4)
root_info_WangWang1 =rs(5)
root_info_sitename1 =rs(6)
root_info_address1 =rs(7)
root_info_zip1 =rs(8)
root_info_fax1 =rs(9)
rs.close
set rs=nothing
if root_info_address1<>"" then
response.write "聯(lián)系地址:"&root_info_address1
end if
if root_info_zip1<>"" then
response.write " 郵編:"&root_info_zip1&"<br>"
end if
if root_info_tel1<>"" then
response.write "聯(lián)系電話:"&root_info_tel1
end if
if root_info_fax1<>"" then
response.write " 傳真:"&root_info_fax1
end if
if root_info_email1<>"" then
response.write " E-mail:"&root_info_email1&"<br>"
end if
if root_info_qq1<>"" then
response.write "QQ:"&root_info_QQ1
end if
if root_info_WangWang1<>"" then
response.write " 淘寶旺旺:"&root_info_WangWang1
end if
if root_info_msn1<>"" then
response.write " MSN:"&root_info_msn1&"<br>"
end if
%>Copyright © <%=year(now())%> <%=root_info_SiteName1%> 版權(quán)所有 <a href="http://www.miibeian.gov.cn/" target="_blank"><%=root_info_ICP1%></a>
</td>
</tr>
<tr>
<td height="8" class="Line"></td>
</tr>
</table>
</div>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -