28,406
社区成员
发帖
与我相关
我的任务
分享关于查找记录在先等
我的ASP代码如下
想实现在查找的几条记录每一条右面有一按钮,怎样实现所按的按钮提取当前行的记录字段值.谢谢!!!
<!--#include file="OpenDb.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject ("ADODB.RecordSet")
Conn.Open (SqlOpenDb)
Search_Date=CDate(Request.Form("Search_Date"))
%>
<br>
<br>
<br>
<br>
<p align="center"><b><font face="华文新魏" style="font-size: 30pt" color="#FF00FF">
您查询计划单的记录如下:</font></b></p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1" height="32">
<tr>
<td width="12%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">订单编码</font></span></b></td>
<td width="11%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">审核标志</font></span></b></td>
<td width="12%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">材料名称</font></span></b></td>
<td width="9%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">单位</font></span></b></td>
<td width="17%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">计划采购数量</font></span></b></td>
<td width="22%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">材料估计价格</font></span></b></td>
<td width="9%" height="18" align="center"><b><font size="4" face="隶书">审核</font></b></td>
<td width="8%" height="18" align="center"><b><font size="4" face="隶书">修改</font></b></td>
</tr>
<% Sql_Date="Select A.*,B.* ,C.MaterialName,C.Unit From OrderInfo A " & _
"Left Join ProductInfo B On A.OrderID=B.OrderID " & _
"Left Join MaterialInfo C On B.MaterialID=C.MaterialID " & _
"Where A.OrderDate='" & Search_Date & "' "
Rs.Open Sql_Date,Conn,3
For i=0 To Rs.RecordCount-1
'Response.Write Rs.Fields.Item("OrderID").Value
%>
<tr>
<td width="12%" height="13">
<form method="POST" action="--WEBBOT-SELF--">
</p>
</td>
<td width="11%" height="13">
<%=Rs.Fields.Item("OrderID").Value%>
</td>
<td width="12%" height="13"><%=Rs.Fields.Item("MaterialName").Value%>
</td>
<td width="9%" height="13"><%=Rs.Fields.Item("Unit").Value%></td>
<td width="17%" height="13"><%=Rs.Fields.Item("PlantCount").Value%>
</td>
<td width="22%" height="13"><%=Rs.Fields.Item("PlantPrice").Value%>
元
</td>
<td width="9%" height="13">
<p>
<input type="submit" value="审 核" name="Submits"
<% If Session("User") <> "c" Then %>
disabled
<% End If %>></td>
<td width="8%" height="13">
<input type="submit" value="修 改" name="Submits"
<% If Session("User") <> "a" And Rs.Fields.Item("CensorFlag").Value<>0 Then %>
disabled
<% End If %>>
</td>
</tr>
</p>
</form>
<%
Rs.MoveNext
Next
%>
<tr>
<td width="100%" height="13" colspan="8">
<p align="center"> 制单人:<%=Session("User")%></td>
</tr>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
</center>
</div>
</body>
</html>
想实现在查找的几条记录每一条右面有一按钮,怎样实现所按的按钮提取当前行的记录字段值.谢谢!!!
<!--#include file="OpenDb.inc"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject ("ADODB.RecordSet")
Conn.Open (SqlOpenDb)
Search_Date=CDate(Request.Form("Search_Date"))
%>
<br>
<br>
<br>
<br>
<p align="center"><b><font face="华文新魏" style="font-size: 30pt" color="#FF00FF">
您查询计划单的记录如下:</font></b></p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="80%" id="AutoNumber1" height="32">
<tr>
<td width="12%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">订单编码</font></span></b></td>
<td width="11%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">审核标志</font></span></b></td>
<td width="12%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">材料名称</font></span></b></td>
<td width="9%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">单位</font></span></b></td>
<td width="17%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">计划采购数量</font></span></b></td>
<td width="22%" height="18" align="center"><b>
<span style="font-family: 隶书"><font size="4">材料估计价格</font></span></b></td>
<td width="9%" height="18" align="center"><b><font size="4" face="隶书">审核</font></b></td>
<td width="8%" height="18" align="center"><b><font size="4" face="隶书">修改</font></b></td>
</tr>
<% Sql_Date="Select A.*,B.* ,C.MaterialName,C.Unit From OrderInfo A " & _
"Left Join ProductInfo B On A.OrderID=B.OrderID " & _
"Left Join MaterialInfo C On B.MaterialID=C.MaterialID " & _
"Where A.OrderDate='" & Search_Date & "' "
Rs.Open Sql_Date,Conn,3
For i=0 To Rs.RecordCount-1
'Response.Write Rs.Fields.Item("OrderID").Value
%>
<tr>
<td width="12%" height="13">
<form method="POST" action="--WEBBOT-SELF--">
</p>
</td>
<td width="11%" height="13">
<%=Rs.Fields.Item("OrderID").Value%>
</td>
<td width="12%" height="13"><%=Rs.Fields.Item("MaterialName").Value%>
</td>
<td width="9%" height="13"><%=Rs.Fields.Item("Unit").Value%></td>
<td width="17%" height="13"><%=Rs.Fields.Item("PlantCount").Value%>
</td>
<td width="22%" height="13"><%=Rs.Fields.Item("PlantPrice").Value%>
元
</td>
<td width="9%" height="13">
<p>
<input type="submit" value="审 核" name="Submits"
<% If Session("User") <> "c" Then %>
disabled
<% End If %>></td>
<td width="8%" height="13">
<input type="submit" value="修 改" name="Submits"
<% If Session("User") <> "a" And Rs.Fields.Item("CensorFlag").Value<>0 Then %>
disabled
<% End If %>>
</td>
</tr>
</p>
</form>
<%
Rs.MoveNext
Next
%>
<tr>
<td width="100%" height="13" colspan="8">
<p align="center"> 制单人:<%=Session("User")%></td>
</tr>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</table>
</center>
</div>
</body>
</html>
...全文
请发表友善的回复…
发表回复
