UC知道各位大哥大姐，帮帮忙啊，是关于ASP的
来源：百度知道 编辑：UC知道 时间：2024/06/01 12:15:38
<%
option explicit
dim conn,db
dim a
dim b
dim c
db="data1.mdb"
set conn = server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;"&"data source="& server.mappath(db)
a="update save set hit=hit+1 where d_name='"&request("name")&"'"
conn.execute(a)
b=request("name")
c="select downaddress from save where d_name='"&b&"'"
conn.Execute(c)
response.Redirect(c)
%>
小弟想通过页面点击一个连接，然后转向下载。可是总是说找不到下载页面。
各位大哥大姐帮我改下，看怎么实现，小弟在这里谢了
option explicit
dim conn,db
dim a
dim b
dim c
db="data1.mdb"
set conn = server.createobject("adodb.connection")
conn.open="provider=microsoft.jet.oledb.4.0;"&"data source="& server.mappath(db)
a="update save set hit=hit+1 where d_name='"&request("name")&"'"
conn.execute(a)
b=request("name")
c="select downaddress from save where d_name='"&b&"'"
conn.Execute(c)
response.Redirect(c)
%>
小弟想通过页面点击一个连接，然后转向下载。可是总是说找不到下载页面。
各位大哥大姐帮我改下，看怎么实现，小弟在这里谢了
b=request("name")
c="select downaddress from save where d_name='"&b&"'"
conn.Execute(c)
response.Redirect(c)
你有没有搞错呀？？？
response.redirect 到一条sql语句？？？？下毛下呀！
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs = conn.Execute(c)
response.Redirect(' " + rs.fields(0).value + " ')