|
|
主题: 急死人了，初学者碰到的问题。请高手指教
|
yuan0001
职务：普通成员
等级：1
金币：0.0
发贴：8
|
#12005/6/17 13:09:32
代码如下：其中yearmonth banci 都是字符字段 我在其他页面中有个form1表单，想通过提交2个参数实现一个动态查询，可是初学DW，总不能实现。请会的高手指教，
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim rs1__p1
rs1__p1 = "20050601"
If (request.form1("yearmonth") <> "") Then
rs1__p1 = request.form1("yearmonth")
End If
%>
<%
Dim rs1__p2
rs1__p2 = "甲班"
If (request.form1("banci") <> "") Then
rs1__p2 = request.form1("banci")
End If
%>
<%
Dim rs1
Dim rs1_numRows
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * FROM 电铲产量表采场 WHERE yearmonth= " + Replace(rs1__p1, "'", "''") + " and banci = " + Replace(rs1__p2, "'", "''") + ""
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 1
rs1.Open()
rs1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 15
Repeat1__index = 0
rs1_numRows = rs1_numRows + Repeat1__numRows
%>
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#22005/6/17 16:19:49
字符型字段需要引号
|
yuan0001
职务：普通成员
等级：1
金币：0.0
发贴：8
|
#32005/6/17 16:32:25
在双引号里面加上单引号吗？似乎还是不行的
|
yuan0001
职务：普通成员
等级：1
金币：0.0
发贴：8
|
#42005/6/17 16:33:52
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'request.form1'
/plan.asp, 第 6 行
是这个提示了！
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#52005/6/17 16:40:07
Request.Form
ASP内建对象的用法要注意
没有Request.Form1的方法,不是说表单名字是form就是Request.Form1,如果我把表单名字设定为QueryString呢?
|
yuan0001
职务：普通成员
等级：1
金币：0.0
发贴：8
|
#62005/6/17 16:40:22
这是DW自动生成的代码啊。怎么就不能通过呢？
请说详细点好吗/着急啊！◎
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#72005/6/17 16:43:40
DW自动生成的么?不可能吧..  难道你用假冒伪劣..
|
yuan0001
职务：普通成员
等级：1
金币：0.0
发贴：8
|
#82005/6/17 17:00:08
照猫画虎搬书上的。晕死了！
|
