<%
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file=Sub.asp -->
<%
call up("友情鏈接","友情鏈接","友情鏈接")
response.write "<tr>"
response.write "	<td><b>文字鏈接</b></td>"
response.write "</tr>"
response.write "<tr>"
response.write "	<td>"
						Set rs= Server.CreateObject("ADODB.Recordset")
						sql="select link_info_url,link_info_detail from link_info where link_info_type=0 order by id"
						rs.open sql,conn,1,1
						if not rs.eof then
							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>&nbsp;"
        					rs.movenext
							wend
						else
							response.write "暫無文字鏈接!"
						end if
						rs.close
						set rs=nothing 
response.write "	</td>"
response.write "</tr>"
response.write "<tr>"
response.write "	<td><b>圖片鏈接</b></td>"
response.write "</tr>"
response.write "<tr>"
response.write "	<td>"
						Set rs= Server.CreateObject("ADODB.Recordset")
						sql="select link_info_url,link_info_detail from link_info where link_info_type=1 order by id"
						rs.open sql,conn,1,1
						if not rs.eof then
   							i=1
							set link_info_url1=rs(0)
   							set link_info_detail1=rs(1)
							while not rs.eof 
							response.write "<a href="&link_info_url1&" target=_blank><img src=uploadpic/"&link_info_detail1&"></a>&nbsp;"
        					rs.movenext
							wend
						else
							response.write "暫無圖片鏈接!"
						end if
						rs.close
						set rs=nothing 
response.write "	</td>"
response.write "</tr>"

call down()
%>