现在想实现功能是：我在下拉列表框选择了商品编码之后在商品名称的文本框内自动填上,数据库上相同编码的商品名称.
如何写代码呢?请各位多多指教!作者: 毅歌 时间: 2010-1-8 02:22
传统办法就是onChange选择后刷新网页读取其它数据，或者说用Ajax读取其它数据。作者: 缘分天空 时间: 2010-1-8 02:22
文件一
Product.asp
<%
'商品类
Class Product
Private mID
Private mName
Private mOrigin
Private mPrice
Public Property Let Price(vData)
mPrice=vData
End Property
Public Property Get Price()
ID=mPrice
End Property
Public Property Let Origin(vData)
mOrigin=vData
End Property
Public Property Get Origin()
ID=mOrigin
End Property
Public Property Let ID(vData)
mID=vData
End Property
Public Property Get ID()
ID=mID
End Property
Public Property Let Name(vData)
mName=vData
End Property
Public Property Get Name()
ID=mName
End Property
'读取商品方法
Public Function ReadProduct(con)
Dim rsPro
Set rsPro=con.Execute("select * from 商品编码='"&mID&"'")
ReadRecordSet rsPro
rsPro.Close
Set rsPro=Nothing
End Function
'返回商品编号列表
Public Function GetProductIDList(con)
Dim rsPro
Set rsPro=con.Execute("select 商品编码 from shpm")
Do Until rsPro.EOF
GetProductIDList=GetProductIDList&"<option value="&rsPro(0)&" >"&rsPro(0)&"</option>"
rsPro.MoveNext
Loop
rsPro.Close
Set rsPro=Nothing
End Function
Private Sub ReadRecordSet(rsPro)
mID=rsPro(0)
mName=rsPro(1)
mOrigin=rsPro(2)
mPrice=rsPro(3)
End Function
Private Sub FillRecordSet(rsPro)
rsPro(0)=mID
rsPro(1)=mName
rsPro(2)=mOrigin
rsPro(3)=mPrice
End Function
End Product
%>
文件二:主文件
<html>
<head>
<#--include file="Product.asp"-->
<!--引用产品类文件-->
<!--引用你的数据库连接文件-->
<%
Dim con,ObjPro
Set con=[你的项目数据库连接对象]
Set ObjPro=New Product
IF Request("ProID")<>"" Then
ObjPro.ReadProduct con
End IF
%>
<title>下拉列表查询数据</title>
<script language="javascript">
function selPro_Change(ProID)
{
var SelfSrc=window.location.href;
self.location=SelfSrc+"?ProID="+ProID;
}
</script>
</head>
<body>
<select name="selPro" onChange="selPro_Change(this.options[this.selectedIndex].value);" >
<%
Response.Write ObjPro.GetProductIDList(con)
%>
</select>
商品编号:<%=ObjPro.ID%>
商品名称:<%=ObjPro.Name%>
产地:<%=ObjPro.Origin%>
单价:<%=ObjPro.Price%>
</body>
</html>作者: 冷冷DI草 时间: 2010-1-8 02:23
用change 当下拉框的值改变的时候进行表单提交 然后显示给文本框就可以了作者: 秋风扫落叶 时间: 2010-1-8 02:23
各位能说细点吗?