作者：45度向上倾斜的世界取_872 | 来源：互联网 | 2023-05-17 09:31
請大家幫忙！我的目的是當用戶在輸入產品編號並按下回車後，系統自動從數據庫中取得對應的產品名稱並自動填到相應的TEXT里.我是新手，請各位高手教教我怎麽去實現這一功能?先
請大家幫忙！
我的目的是當用戶在輸入產品編號並按下回車後，系統自動從數據庫中取得對應的產品名稱並自動填到相應的"TEXT"里.
我是新手，請各位高手教教我怎麽去實現這一功能? 先謝謝了！！！！
我寫了兩個函數但是提示出錯，請大家幫忙看看問題在那里？怎麽改正？
9 个解决方案
路過，幫你頂
把出錯提示帖上來，是哪句出錯也指出來
你把客户端的东西和服务器端的东西混在一起了,这样的结果是页面找不到对象或方法.
請問yeetoo(一土)！
我需要的功能（當用戶在輸入產品編號並按下回車後，系統自動從數據庫中取得對應的產品名稱並自動填到相應的"TEXT"里.）該怎麽去做才能實現呢？
謝謝！！！
ASP中的解决方案：
在用户输入产品编号并回车后，用Javascript脚本修改表单提交地址（如改成goods.asp?cmd=search），并执行表单提交动作。
然后在本页的开头加上：
<%
If Trim(Request("txtProductID")<>"" Then
txtProductID=Trim(Request("txtProductID")
End If
If Trim(Request("cmd"))="search" Then
dim rs,adocon,sqltext,paracode
paracode=document.CutMaterialEditForm.txtProductID.value
sqltext="Select top 1 fldShortName2 From tblItem where fldItemTypeCode='"¶code&"' order by fldShortName2 desc"
set adocon=server.CreateObject("adodb.connection")
adocon.open application("conAims")
set rs=adocon.Execute(sqltext)
If not rs.eof then
txtMaterialName=rs("fldShortName2")
else
txtMaterialName=""
End If
End If
%>
然后页面表单项修改如下：
………………
" />
" />
………………
等用户填完整个表单后，再提交给另一道程序处理产品的相关操作就行了。也就是说通过两次提交来实现。你的方法在ASP中是行不通的。
paracode=document.CutMaterialEditForm.txtProductID.value
是直接复制你的，忘了改了，这句应该改为
paracode=Trim(Request("txtProductID")
我想得到的是當用戶輸入完產品編號後回車就可以顯示產品名稱不需要等填完整個表單才顯示產品名稱
使用后台页面就可以解决.几年前就这么做过,不过对于B/S系统来说,出于性能和资源考滤,并不实用. 拿到现在来说,就是一种ajax技术.
我举个简单例子给你.
我有一个产品表p
CREATE TABLE p (pid INT IDENTITY(1,1),pName VARCHAR(100))
INSERT p (pName)
SELECT 'aba'
UNION ALL SELECT 'bbb'
UNION ALL SELECT 'bbc'
UNION ALL SELECT 'bdd'
此时你表里有4条记录
1 aba
2 bbb
3 bbc
4 bdd
function LetYouSee(obj)
{
if(!isNaN(document.getElementById("pid"+obj).value.trim())) //如果你的编号为字符型,不需要此层检测
{
var v=pid=" + document.getElementById("pid"+obj).value.trim();
var x=new ActiveXObject("Msxml2.DOMDocument");
x.load("http://localhost/test.asp?pid=" + v);
var r=x.selectNodes("//root/product[@pid='" + v + "']");
if(r.length>0)
{
document.getElemetById("pNM"+obj).value=r.item(0).attributes.item(1).value;
}
else
{
alert("没找到记录"); //或者你换成其它人性化一点提示,经如显示个红色的DIV在相应的pNM旁边,提示没有记录.
}
r=null;
x=null;
}
else
{alert("编号格式不对,只能为数字");}
}
test.asp
<%
..
Dim pid:pid=Request("pid")
If pid="" OR Not IsNumeric(pid)
Response.Write("
") '//或者这里给出出错提示,并更改上面的JS代码,读取相应的错误提示,下面某些地方错误时也可以这样处理.
Rs.Close
Set Rs=Nothing
Response.End
End If
Set Rs=Conn.Execute("SELECT pName FROM p WHERE pid=" & pid)
If Rs.Eof Then
Response.Write("
") '//这里跟上面参数错误时相应也可以改.比如Response.Write("
. 上面那句可以将value值改为参数错误
Rs.Close
Set Rs=Nothing
Response.End
End If
Response.Write("")
Rs.CLose
Set Rs=Nothing
%>
上面的代码是我随手写的.手误应该是有的,楼主自己查查.
流程是:
当在pid1中按下数字1, 此时触发js,创建 xmldom对象,使用load方法加载 localhost/test.asp?pid=1 这个url,此时test.asp代码执行,查找表中pid=1的记录,找到pName值aba,输出xml文档,aba成为product节点第二个(索引号为1)属性value的值.些时在js中定义的xmldom对象x已加此文档,在此文档中取出这个value值显示在相应的pNM文本框内.
京公网安备 11010802041100号