整容说文库 > 程序代码 > 教育资讯

ASP如何把access数据库中大量数据(从execl导入过来的外部数据,在execl中已经把其中一个字段全部加了超链接)的超链接输出到网页呢?

来源:学生作业帮助网 编辑:整容说文库 时间:2020/12/01 23:28:33 程序代码
ASP如何把access数据库中大量数据(从execl导入过来的外部数据,在execl中已经把其中一个字段全部加了超链接)的超链接输出到网页呢?程序代码
如题!
那你导入Access之后 你再看看 那个字段内容是什么样的 如果没有超链接了 那就输出的时候在给他加上<a href="<%=rs("url")%>" ><%=rs("url")%></a>
引用 1 楼 yan11cn 的回复:
那你导入Access之后 你再看看 那个字段内容是什么样的 如果没有超链接了 那就输出的时候在给他加上 <a href=" <%=rs("url")%>" > <%=rs("url")%> </a>


我不知道怎么加啊,请你说详细点好嘛,谢谢
我的源码是这样的:两个文件第一个获取查询数据getd.asp
  <html>   
  <head>   
  <title>查询数据库记录</title>   
 
  </head>   
  <body   bgcolor="#FFFFFF"> 
 
  <p   align="center"><font   size="5">查询数据库记录</font></p>   
  <form   method="post"   action="listd.asp">   
  <div   align="center">   
  <table   width="46%"   border="0">   
  <tr>     
  <td   width="28%">     
  <div   align="right">新编码:   </div>  </td>   
  <td   width="72%">     
  <input   name="Nid"   type="text" maxlength="30">  </td>   
  </tr>   
  <tr>     
  <td   width="28%">     
  <div   align="right">名称:   </div>  </td>   
  <td   width="72%">     
  <input   type="text"   name="Name">  </td>   
  </tr>   
  </table>   
  <table   width="46%"   border="0">
    <tr>
      <td   width="28%"><div   align="right">旧编码:</div></td>
      <td   width="72%"><input   name="Oid"   type="text" maxlength="30">      </td>
    </tr>
    <tr>
      <td><div   align="right"> </div></td>
      <td><input   name="查询"   type="submit" id="查询"   value="查询">
      <input   name="重置"   type="reset" id="重置"   value="重置">      </td>
    </tr>
  </table>
  </div>   
  </form>   
  </body>   
  </html>   
listd.asp:
<html>
<HEAD></HEAD>

<%
Nid = Request("Nid")
Name = Request("Name")
Cid = Request("Cid")
Oid = Request("Oid")
%>
<%
If (Nid = "" or Oid = "") Then
Response.Write "<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
'Response.Redirect "error.htm"
Response.End 
End If
%>
<title>查询结果--<% =Request.Form("Nid")%></title>
<body>
<center>
<table border="1">
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("customer.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from customer where 新编码='"&Request.Form("Nid")&"'"
Set rs=conn.execute(sql)
'response.write("<tr><td>"出错!"</td></tr>")  
%>
<%
response.Write("查询结果:")

%>
<tr> 
<td>编号</td>
<td>新编码</td>
<td>名称</td>
<td>客户编号</td>
<td>旧编码</td>
</tr><br>
<%
Do while Not rs.Eof
response.write("<tr><td>"&rs("ID")&"</td>")  
response.write("<td>"&rs("新编码")&"</td>")  
response.write("<td>"&rs("名称")& "</td>") 
response.write("<td><a href=download.asp?ID="&rs("ID")&">"&rs("客户编号")& "</a></td>") '客户编号是带有超连接的pdf文件名,为得是能显示连接方便查询后下载
response.write("<td>"&rs("旧编码")& "</td></tr>")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</table>
</center>
</body>
</html>


结果通过显示却显示access中原有的超链接,怎么回事啊?
那要把rs("客户编号")&里面的连接部分给清理掉了
引用 3 楼 w000111 的回复:
那要把rs("客户编号")&里面的连接部分给清理掉了

清理掉也不能实现所对应字段名的值所指向的文件进行下载啊?
程序代码