请教一个如何使用ASP做链接以实现参数传递的问题

2025-03-22 22:03:24

推荐回答（5个）

回答1：

给你一个我的
建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码在本页可查询,可分页
-----------------------下面保存为search.asp--------------------------

文件

输入搜索内容:

<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("./news.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

' 获取产品的名字记录集（从 news表中）
if cx <> "" then
sql = "select * from news where title like '%"&cx& "%' order by id desc"
else
sql ="select * from news order by id desc"
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"
"+"
"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if

' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=40
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录（ PageSize中设置的行数）

WHILE NOT RS.EOF AND NumRows%>

<%RS.MoveNext
NumRows=NumRows+1
WEND%>

ID 号 标题 修改 删除

<%=rs("id")%>
" target="_blank"><%=rs("title")%> >修改 >删除

共<%=PageCount%>页第<%=page%>页★
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
首页
<%end if%>★
<%if page>1 then%><%end if%>上一页
<%
dim pagewhere
dim p
p = 1
'把pagewhere转换成整数
'pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<%=p%>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>

<%end if %>下一页★
<%if page=PageCount then%>尾页
<%end if%>
<%if page
尾页
<%end if%>

搜索内容:<%=cx%>

<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>

回答2：

B面错误
<% if Request.ServerVariables("http_method")="GET" then
set conn=server.CreateObject("adodb.connection")
connstr="dbq="&server.MapPath("diaocha.mdb")&";driver={microsoft access driver (*.mdb)};"
conn.open connstr
set rec=server.CreateObject("adodb.recordset")

sqlstr="select * from userinfor where user_name='"& request.form("user_name")& "'" '这个改成request("user")
set rec=conn.execute(sqlstr)

if NOT rec.BOF and NOT rec.EOF then
%>

姓名
联系地址

<%=rec("user_name") %>
<%=rec("user_id")%>
<%=rec("user_add")%>

回答3：

B页面的这句

sqlstr="select * from userinfor where user_name='"& request.form("user_name")& "'"
set rec=conn.execute(sqlstr)

改为

sqlstr="select * from userinfor where user_name='"& request("user_name")& "'"
set rec=conn.execute(sqlstr)

如果还不行可以考虑把B页面首句
if Request.ServerVariables("http_method")="GET" then
这个判断条件去掉相应的ELSE END IF也要去掉，现在很少用这种方法了

回答4：

改成传递ID，你现在用的是name，不方便。

回答5：

GET方法发送的数据应该用Request.QueryString方法接收

ID 号	标题	修改	删除
<%=rs("id")%>	" target="_blank"><%=rs("title")%>	>修改	>删除

共<%=PageCount%>页第<%=page%>页★ <%if page=1 then%>首页<%end if%> <%if page>1 then%> 首页 <%end if%>★ <%if page>1 then%><%end if%>上一页 <% dim pagewhere dim p p = 1 '把pagewhere转换成整数 'pagewhere = cint(request("pagewhere")) pagewhere = pageCount if pagewhere>0 then for p=1 to pagewhere if p <> page then%> <%=p%> <%end if if p =page then%> <%=p%> <% end if next end if%> <%if page < PageCount then%> <%end if %>下一页★ <%if page=PageCount then%>尾页 <%end if%> <%if page 尾页 <%end if%>
搜索内容:<%=cx%>