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

两个asp页面之间传值为什么固定值可以传,变量就不成功?

来源:学生作业帮助网 编辑:整容说文库 时间:2020/12/04 15:34:25 程序代码
两个asp页面之间传值为什么固定值可以传,变量就不成功?程序代码
a页面传值
<FORM ACTION=/querydata.asp?ZiDuan=<%=ZiDuanOrder%> methot=post>

b页面接受值
ZiDuanOrder = Request("ZiDuan")
set Rsdata = conn.Execute(" select * from icissue  order by "& ZiDuanOrder & "" )

但总是不能按照正确的字段排序,而且地址栏上type=后面是空的
我用
<% response.Write Request("ZiDuanOrder ") %>也不能显示

但是如果我在a页面写ziduan=empl_no,那么b页面就能正常排序了,地址栏里type=empl_no,response.Write 也能显示正确的字段了
那就是a页面里ZiDuanOrder没值
你在a里面<% response.Write Request("ZiDuanOrder ") %>试试
可能实际上字段值已经传过来了,我用Post传值,干脆在地址栏里找,能找到a页面传过来的列表框里面的值empl_no,变量名为order.但是我用
set Rsdata = conn.Execute(" select * from icissue  order by '""& Order & ""'" )
还是不能正常排序
set Rsdata = conn.Execute(" select * from icissue  order by "& Order & "" )
那就是a页面里ZiDuanOrder没值
你在a里面<% response.Write Request("ZiDuanOrder ") %>试试
-----------------------------------------------------------------
无法显示字段
set Rsdata = conn.Execute(" select * from icissue  order by "& Order & "" )
--------------------------------------------------------------------------------
提示by附近有语法错误
很奇怪的现象吧,我在另一个项目中是可以传递数据的(那次传的是数据,这次是字符,没有影响吧?)还有一个区别是上次两个页面用的一个模板,这次b页面没用模板,我反复看了好多遍都找不到问题在哪!
错了
是a页面<% response.Write ZiDuanOrder %>试试
试过了,没有显示字段,难道是我没传过去?

那就说明a页面就没有这个变量或者这个变量为空
这是a页面的代码,你能帮我看看吗?
<%
dim  ZiDuanOrder
IP= Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP= "" Then IP= Request.ServerVariables("REMOTE_ADDR")

'判断用户是否登录
if isempty(Session("Name")) then
   Response.Redirect "../index.asp"
end if

'判断用户是否提交了表单
if not IsEmpty(Request.Form("Send")) then
'如果用户希望查询全部信息
   
   if Request.Form("SendTo") = "All" then

     ZiDuanOrder=request.Form("Order1")
     S_Order=1
     TheMessage1 =  "排序结果" 
             
'如果用户希望查询某个条件信息
   elseif Request.Form("SendTo") = "SelectBy" then
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")

       S_Order=2
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")
 TheMessage = "信息如下"

TheMessage1 =  request.Form("SendTo") 
'如果用户是第一次进入页面
     else
         TheMessage = "请在上面选择人员信息管理选项"
     end if
end if  

%>


  <FORM ACTION=querydata.asp?ZiDuan=<%=ZiDuanOrder%>&S_id=<%=S_id%> method =post>
                 
                    <table width="100%" border="1">
                      <tr> 
                        <td width="18%" height="32"><font size="2"> 
                          <input name="SendTo" type="radio" value="All" checked>
                          全部信息</font></td>
                        <td colspan="3"><font size="2"> 排序方式 
                          <select name="Order1" id="Order1">
        <option value=card_no>卡号</option>
                          <option value=empl_no>员工编号</option>
                          <option value=IC_State>IC卡状态</option>
                          <option value=EmitOperNo>操作员</option>
        <option value=P_Type>车场卡类</option>
                          <option value=P_CarNo>车牌号码</option>
<option value=P_CarColor>车颜色</option>
                          <option value=P_CarCircs>车况</option>
<option value=P_EngNo>车场有效机号</option>
                          <option value=P_BoroNo>车场有效区号</option>

                          </select>
                          </font></td>
                      </tr>
                      <tr> 
                          <td><font size="2"> 
                            <input type="radio" name="SendTo" value="SelectBy">
                          条件查询</font></td>
                          <td width="28%"> <font size="2">字段名 
                            <select name="Field" id="Field">
<option value=card_no>卡号</option>
                          <option value=empl_no>员工编号</option>
                          <option value=IC_State>IC卡状态</option>
                          <option value=EmitOperNo>操作员</option>
<option value=P_Type>车场卡类</option>
                          <option value=P_CarNo>车牌号码</option>
<option value=P_CarColor>车颜色</option>
                          <option value=P_CarCircs>车况</option>
 <option value=P_EngNo>车场有效机号</option>
                          <option value=P_BoroNo>车场有效区号</option>
                            </select>
                              </font></td>
                        <td width="10%"><font size="2">字段值</font></td>
                        <td width="44%"><table width="100%" border="1">
                            <tr> 
                              <td><font size="2"> 
                                <input type="radio" name="ShuZhi" value="FromList">
                                从列表中选</font></td>
                              <td> <div align="left"> <font size="2"> 
                     <select name="ZiDuanFromList" id="ZiDuanFromList" onchange="return select_onchange()">
                                  </select>
                                  </font></div></td>
                            </tr>
                            <tr> 
                              <td><font size="2"> 
                                <input type="radio" name="ShuZhi" value="ShuRu">
                                根据输入值</font></td>
                              <td> <div align="left"> <font size="2"> 
                              <input name="ZiDuanFromShuRu" type="text" id="ZiDuanFromShuRu" size="15" maxlength="15">
                                  </font></div></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td colspan="4"><div align="center"> <font size="2"> 
                            <input name="Send" type="submit" id="Send" value="查询" >
<%response.Write ZiDuanOrder %>
                        </font></div></td>
                      </tr>
                       </table>
  </form>
b页面
<%

'连接系统数据库

ZD = Request("ZiDuan")
set Rsdata = conn.Execute(" select * from icissue  order by '""& ZD & ""'" )

%>

始终取不到ZD的值
ZiDuanOrder=request.Form("Order1")
你看上一页有传Order1这个参数过来么
有的
a页面这么写不对的
a页面

<%
dim  ZiDuanOrder
IP= Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP= "" Then IP= Request.ServerVariables("REMOTE_ADDR")

'判断用户是否登录
if isempty(Session("Name")) then
   Response.Redirect "../index.asp"
end if%>
<FORM ACTION=querydata.asp&S_id=<%=S_id%> method =post>
                 
                    <table width="100%" border="1">
                      <tr> 
                        <td width="18%" height="32"><font size="2"> 
                          <input name="SendTo" type="radio" value="All" checked>
                          全部信息</font></td>
                        <td colspan="3"><font size="2"> 排序方式 
                          <select name="Order1" id="Order1">
        <option value=card_no>卡号</option>
                          <option value=empl_no>员工编号</option>
                          <option value=IC_State>IC卡状态</option>
                          <option value=EmitOperNo>操作员</option>
        <option value=P_Type>车场卡类</option>
                          <option value=P_CarNo>车牌号码</option>
<option value=P_CarColor>车颜色</option>
                          <option value=P_CarCircs>车况</option>
<option value=P_EngNo>车场有效机号</option>
                          <option value=P_BoroNo>车场有效区号</option>

                          </select>
                          </font></td>
                      </tr>
                      <tr> 
                          <td><font size="2"> 
                            <input type="radio" name="SendTo" value="SelectBy">
                          条件查询</font></td>
                          <td width="28%"> <font size="2">字段名 
                            <select name="Field" id="Field">
<option value=card_no>卡号</option>
                          <option value=empl_no>员工编号</option>
                          <option value=IC_State>IC卡状态</option>
                          <option value=EmitOperNo>操作员</option>
<option value=P_Type>车场卡类</option>
                          <option value=P_CarNo>车牌号码</option>
<option value=P_CarColor>车颜色</option>
                          <option value=P_CarCircs>车况</option>
 <option value=P_EngNo>车场有效机号</option>
                          <option value=P_BoroNo>车场有效区号</option>
                            </select>
                              </font></td>
                        <td width="10%"><font size="2">字段值</font></td>
                        <td width="44%"><table width="100%" border="1">
                            <tr> 
                              <td><font size="2"> 
                                <input type="radio" name="ShuZhi" value="FromList">
                                从列表中选</font></td>
                              <td> <div align="left"> <font size="2"> 
                     <select name="ZiDuanFromList" id="ZiDuanFromList" onchange="return select_onchange()">
                                  </select>
                                  </font></div></td>
                            </tr>
                            <tr> 
                              <td><font size="2"> 
                                <input type="radio" name="ShuZhi" value="ShuRu">
                                根据输入值</font></td>
                              <td> <div align="left"> <font size="2"> 
                              <input name="ZiDuanFromShuRu" type="text" id="ZiDuanFromShuRu" size="15" maxlength="15">
                                  </font></div></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td colspan="4"><div align="center"> <font size="2"> 
                            <input name="Send" type="submit" id="Send" value="查询" >
                        </font></div></td>
                      </tr>
                       </table>
  </form>

b页面

<%
dim  ZiDuanOrder
IP= Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP= "" Then IP= Request.ServerVariables("REMOTE_ADDR")

'判断用户是否登录
if isempty(Session("Name")) then
   Response.Redirect "../index.asp"
end if

'判断用户是否提交了表单
if not IsEmpty(Request.Form("Send")) then
'如果用户希望查询全部信息
   
   if Request.Form("SendTo") = "All" then

     ZiDuanOrder=request.Form("Order1")
     S_Order=1
     TheMessage1 =  "排序结果" 
             
'如果用户希望查询某个条件信息
   elseif Request.Form("SendTo") = "SelectBy" then
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")

       S_Order=2
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")
 TheMessage = "信息如下"

TheMessage1 =  request.Form("SendTo") 
'如果用户是第一次进入页面
     else
         TheMessage = "请在上面选择人员信息管理选项"
     end if
end if  
set Rsdata = conn.Execute(" select * from icissue  order by '""& ZiDuanOrder & ""'" )
%>

你这个逻辑都弄乱了
等一下,我没太弄懂你的意思,你是指在b页面显示order1这个参数吗?我试了一下,显示不出来
b页面是不是querydata.asp
是的话
<%=request.Form("Order1")%>看看
'判断用户是否提交了表单
if not IsEmpty(Request.Form("Send")) then
'如果用户希望查询全部信息
   
   if Request.Form("SendTo") = "All" then

     ZiDuanOrder=request.Form("Order1")
     S_Order=1
     TheMessage1 =  "排序结果" 
             
'如果用户希望查询某个条件信息
   elseif Request.Form("SendTo") = "SelectBy" then
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")

       S_Order=2
       ZiDuanMing=request.Form("Field")
       ZiDuanZhi=request.Form("ZiDuanFromShuRu")
 TheMessage = "信息如下"

TheMessage1 =  request.Form("SendTo") 
'如果用户是第一次进入页面
     else
         TheMessage = "请在上面选择人员信息管理选项"
     end if
end if
------------------------------------------------------------
你是说在b页面再判断a页面里列表框中的值?
b页面是不是querydata.asp
是的话
<%=request.Form("Order1")%>看看
----------------------------------
显示了正常的字段
但是
set Rsdata = conn.Execute(" select * from icissue  order by '"& order1 & "'" )
依然不能正确排序

--------------------------------------
贴子我已经加到100分了,很感激你的帮忙,希望能帮我解决它,谢谢!
对啊,a提交的值要到b里面去得到啊
也就是在b里面resquest a中的那些值

set Rsdata = conn.Execute(" select * from icissue  order by '"& request.Form("Order1") & "'" )
这样肯定就可以了吧
好了,自己解决了
set Rsdata = conn.Execute(" select * from icissue  order by "& request.Form("Order1")  )
非常谢谢你,可是我以前做过传值,是可以传过来的阿,真是弄得我头大了。谢谢!
程序代码