asp request.form

Posted 2023-04-18

用request.form("参数名")或request.form(1)都可以获取到相应参数的值.
那么如何获取参数名呢.也就是在不知道表单样式的情况下获取表单控件的名称和值.
我用request.Form.count配叙事request.form(1),可以得到未知名称的值,但名称如何才能得到.请高手指点.
谢谢,不过你说的方法不行的.用request.form是获取不到向get那样的字符串的.主要是不能获取字符串,要是能获取的话,其它的都好说.

参考技术A 有办法，不过较为复杂一点
先用

Request.Form

获取表单提交过来的所有值，包含每一项的名称和值

如：test1=11&test2=22&submit=submit

再用split()分割一下。
Dim v '所有表单值
Dim t '所有表单数量
ReDim A(Request.Form.Count) '表单名称数组
ReDim B(Request.Form.Count) '对应表单值数组
v=Request.Form
t=Request.Form.Count
For i=0 To t-1
a(i)=Split(Split(v,"&")(i),"=")(0)
b(i)=Split(Split(v,"&")(i),"=")(1)
Next
For i=0 To t-1
Response.Write a(i)&"="&b(i)&"<br>"
Next

---------------------------------------------------
用这相可以获取GET
Request.ServerVariables("QUERY_STRING")本回答被提问者采纳

ASP多条件查询

<!--#include file="conn.asp" -->
<%
if request.querystring("act")="cha" Then
exec="select * from juanban where 材质 like '"&request.form("caizhi")&"' or 规格 like '"&request.form("guige")&"' or 产地 like '"&request.form("chandi")&"' or 货源 like '"&request.form("huoyuan")&"'"
else
exec="select * from juanban where 1=1"
end if
set rs2=server.createobject("adodb.recordset")
rs2.open exec,conn,1,1
do while not rs2.eof %>
如图
要求某个条件为空时不影响其他的，可以单条件搜索，也可以多条件搜索，上面这段代码怎么改？

asp多条件符合查询，参考代码如下：
<%
dim qy
qy=0
if request.form("stu_name")<>"" then \'第一个条件表单传递的数据
str="stu_name=\'"&request.form("stu_name")&"\'"
qy=qy+1
end if

if request.form("stu_num")<>"" then \'第二个条件表单传递的数据
if qy=0 then
str=str&"stu_number=\'"&request.form("stu_num")&"\'"
else
str=str&"and stu_number=\'"&request.form("stu_num")&"\'"
end if
qy=qy+1
end if

if request.form("stu_xibie")<>"" then \'第三个条件表单传递的数据
if qy=0 then
str=str&"stu_xibie=\'"&request.form("stu_xibie")&"\'"
else
str=str&"and stu_xibie=\'"&request.form("stu_xibie")&"\'"
end if
qy=qy+1
end if

if request.form("stu_class")<>"" then
if qy=0 then
str=str&"stu_class=\'"&request.form("stu_class")&"\'"
else
str=str&"and stu_class=\'"&request.form("stu_class")&"\'"
end if
qy=qy+1
end if

if request.form("stu_year")<>"" then
if qy=0 then
str=str&"stu_year=\'"&request.form("stu_year")&"\'"
else
str=str&"and stu_year=\'"&request.form("stu_year")&"\'"
end if
qy=qy+1
end if
sql="select * from [students] where "&str
Set rs=Conn.Execute(sql) \'执行sql语句
%> 参考技术A 代码我就不写啦，给你思路，自己想出来的会一直记得，别人代码看一遍过几天就会忘记。

首先接收request传递参数，分开接收，在判断接收的后赋值的变量是否为空，

例如：

接收a=request.form（“a”）
b=request.form（“b”）
判断if a=“”and b<>"" then
执行条件查询（这里只需要查询a）
以此类推 参考技术B <%
if request.querystring("act")="cha" Then
caizhi=request("caizhi")
guige=request("guige")
chandi=request("chandi")
huoyuan=request("huoyuan")
if caizhi="" and guige="" and chandi="" and huoyuan="" then
exec="select * from juanban where 1=1"
else
exec="select * from juanban where 材质 like '"&caizhi&"' or 规格 like '"&guige&"' or 产地 like '"&chandi&"' or 货源 like '"&huoyuan&"'"
end if
end if
set rs2=server.createobject("adodb.recordset")
rs2.open exec,conn,1,1
do while not rs2.eof %>本回答被提问者采纳