%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% dim conn set conn = server.createobject("adodb.connection") conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("admin/data/#db1.asp") ON ERROR RESUME NEXT %>![]() |
|
| 首页 | 公司简介 | 产品展示 | 新闻动态 | 销售网络 | 在线留言 | 联系我们 | 企业邮箱 | 人才招聘 |
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
友情链接:
<%
sql="select * from [link] order by id desc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
do while not rs.eof
%> " target="_blank"><%=rs("linkname")%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
|