asp 怎么实现点击文本框显示数据库里的数据
2个回答
展开全部
要用Ajax
一：准备工作
新建一个文件夹 Databases
在文件夹里建立一个数据库 #Database.mdb
在数据库里建一个表 product
在product表里建一个字段 ID
在product表里添加一条记录，ID字段添上内容。
二：把下面的内容保存成 index.asp 文件
－－－－－－－－－－－－－－－－－－－－－－－－－
<body>
<input type="text" id="test" />
</body>
<script type="text/javascript">
document.getElementById("test").onclick=function(){
//create XMLHttpRequest
var xmlhttp;
if (window.XMLHttpRequest)
{
xmlhttp=new XMLHttpRequest();
}
else
{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
//send request
xmlhttp.open("GET","db.asp",true);
xmlhttp.send();
//onreadystatechange
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("test").value=xmlhttp.responseText;
}
}
//function end
}
</script>
－－－－－－－－－－－－－－－－－－－－－－－－－
三：把下面的内容保存成 db.asp文件
－－－－－－－－－－－－－－－－－－－－－－－－－
<%
dim conn
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Databases/#Database.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs=Server.CreateObject("ADODB.recordset")
dim strsql
strsql="select * from product"
rs.open strsql,conn,1,1
if not rs.eof then
response.Write(rs("ID"))
else
response.Write("未找到相关数据！")
end if
rs.close
conn.close
%>
－－－－－－－－－－－－－－－－－－－－－－－－－
点击文本框就会从数据表product里取出第一条记录的ID 字段的内容，显示到文本框里。
一：准备工作
新建一个文件夹 Databases
在文件夹里建立一个数据库 #Database.mdb
在数据库里建一个表 product
在product表里建一个字段 ID
在product表里添加一条记录，ID字段添上内容。
二：把下面的内容保存成 index.asp 文件
－－－－－－－－－－－－－－－－－－－－－－－－－
<body>
<input type="text" id="test" />
</body>
<script type="text/javascript">
document.getElementById("test").onclick=function(){
//create XMLHttpRequest
var xmlhttp;
if (window.XMLHttpRequest)
{
xmlhttp=new XMLHttpRequest();
}
else
{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
//send request
xmlhttp.open("GET","db.asp",true);
xmlhttp.send();
//onreadystatechange
xmlhttp.onreadystatechange=function()
{
if (xmlhttp.readyState==4 && xmlhttp.status==200)
{
document.getElementById("test").value=xmlhttp.responseText;
}
}
//function end
}
</script>
－－－－－－－－－－－－－－－－－－－－－－－－－
三：把下面的内容保存成 db.asp文件
－－－－－－－－－－－－－－－－－－－－－－－－－
<%
dim conn
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Databases/#Database.mdb")
set conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr
set rs=Server.CreateObject("ADODB.recordset")
dim strsql
strsql="select * from product"
rs.open strsql,conn,1,1
if not rs.eof then
response.Write(rs("ID"))
else
response.Write("未找到相关数据！")
end if
rs.close
conn.close
%>
－－－－－－－－－－－－－－－－－－－－－－－－－
点击文本框就会从数据表product里取出第一条记录的ID 字段的内容，显示到文本框里。
追问
然后我想实现 选择某个选项的功能 比如有技术部 财务部 等等 我只想选择技术部
追答
我没有太明白你的意思，
点击 “所属部门” 的时候，向文本框里填 “技术部” ？
麻烦整体、详细的介绍一下，你想实现的功能。
要是选择的话，用 select 下拉列表框比较方便。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
