我(烟酒)了旧了希望能在这里解决...
有知道的....握个手先..
[此贴子已经被作者于2007-7-12 20:26:50编辑过]
谢谢3楼的朋友.. 这个可以实现...
不过我希望得到的是不要..
<input type="submit" value="提交">这个发送..
选了下了采单后...就识别....选上的从数据库中掉用数据的ID...
让购物车识别....
是不是可以这样...
1.asp
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq="&_
Server.MapPath("数据库名"))
set rs=conn.Execute("select * from 表名")
%>
<%=request.form("select1")%>
<form action="1.asp" method="post">
<select size="1" name="select1">
<%
for i=0 to rs.fields.count-1
%>
<option value="<%=rs(i).name%>"><%=rs(i).name%></option>
<%
next
%>
<input type="submit" value="提交">
</form>
还望高手..指点... 学海无崖.. 苦坐舟....
那帮我看看这里那里出了问题...
<!--#include file="inc_CharonCart.asp" --> '连接购物车
<!--#include file="../Connections/ttconn.asp" --> ,连接数据库
<%
Dim Recordset1__MMColParam '变量
Recordset1__MMColParam = "3" '变量=3
If (Request("MM_EmptyValue") <> "") Then
Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ttconn_STRING
Recordset1.Source = "SELECT * FROM Product WHERE productid <= " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY productid DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%> '数据库查询...
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(){
form1.textfield.value=form1.menu1.value
}
//-->
</script>
........
<head>
.......
<%
if request.Form("submit")<>"" then
response.Write(request.Form("textfield"))
response.End()
end if
%> '取得下列列表的值给Input
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="183" height="153" valign="top"><div align="center">
<p> </p>
<p><img src="images/71722274_summ.jpg" width="123" height="123" /></p>
</div></td>
</tr>
<tr>
<td height="115" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="183" height="86" valign="top" class="STYLE9"><div align="center">
<form name="form1" id="productid" method="post" action="" >
<p>
<select name="menu1" onChange="MM_jumpMenu()">
<%
While (NOT Recordset1.EOF)
%><option value="<%=(Recordset1.Fields.Item("productprice").Value)%>"><%=(Recordset1.Fields.Item("productname").Value)%></option>
<%request.form("menu")%><%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</p>
<p>售价
<input type="text" name="textfield" size="4" value="65" readonly >
元</p>
</form>
</div></td>
</tr>
<tr>
<td height="29" align="center" valign="top"><a href="gowushe.asp?productid=<%=(Recordset1.Fields.Item("productid").Value)%>"><img src="images/shoppingcar.gif" width="38" height="29" border="0" /></a></td> '购物车的连接..
</tr>
</table>
</td>
</tr>
</table>
我现在问题是..我选了下了列表中是产品.. 按购物车后来是默认ID=3的东西..
我应该怎么修改呢?
急..有知道的握握手..
要被老师打屁股了...