[求助]下拉列表框自动填写功能! - ASP

平淡♀芳

电梯直达

1^#

发表于 2010-1-8 02:22:53 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

数据库表：shpm

商品编码商品名称产地单价
sp01 58寸真丝梭织布韩国 10
sp02 44化纤染色梭织布台湾 20
..... ................ ... ..

我在ASP插入一个表单，商品编码是用一个下拉列表框，商品名称、产地和单价都是文本框，

现在想实现功能是：我在下拉列表框选择了商品编码之后在商品名称的文本框内自动填上,数据库上相同编码的商品名称.
如何写代码呢?请各位多多指教!

收藏0

使用道具举报

毅歌

2^#

发表于 2010-1-8 02:22:56 | 只看该作者

传统办法就是onChange选择后刷新网页读取其它数据，或者说用Ajax读取其它数据。

回复支持反对

使用道具举报

缘分天空

3^#

发表于 2010-1-8 02:22:59 | 只看该作者

文件一
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草

4^#

发表于 2010-1-8 02:23:01 | 只看该作者

用change 当下拉框的值改变的时候进行表单提交然后显示给文本框就可以了

回复支持反对

使用道具举报

秋风扫落叶

5^#

发表于 2010-1-8 02:23:04 | 只看该作者

各位能说细点吗?

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册