asp关联表单(文本框)的问题,麻烦指教
在一个表单输入内容,下一个表单查询数据库自动显示相关的值。例如：数据库中有学号ID；姓名NAME；留言content三个字段，我做了一个表单要向数据中添加留言，当输入ID...
在一个表单输入内容,下一个表单查询数据库自动显示相关的值。例如：数据库中有学号ID；姓名NAME；留言content三个字段，我做了一个表单要向数据中添加留言，当输入ID时，如何在第二个文本框显示出所对应的姓名，请高手指点，不要AJAX的，最好是VBSCRIPT做的。（可能有的朋友说登录时记录到SESSION中，上面我只是举个例子，我一定要用查询数据库的方法)
另外有一个问题：如果将两个字段的值合在一起显示在文本框里，例如一个rs("year")和rs("month")如何在一个文本框里显示出2008/4
JAVASCRIPT呢，有没有AJAX类似的，比较全面一点的介绍
算了,我已经搞定,多增加一级表单,先提交查询数据库 展开
另外有一个问题：如果将两个字段的值合在一起显示在文本框里，例如一个rs("year")和rs("month")如何在一个文本框里显示出2008/4
JAVASCRIPT呢，有没有AJAX类似的，比较全面一点的介绍
算了,我已经搞定,多增加一级表单,先提交查询数据库 展开
1个回答
展开全部
没有AJAX是不行的。因为VBSCRIPT的客户端脚本不能提取cookies的内容。应该可以这样写吧。不知道，是不是符合你的要求：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim con,rs,counts,i
i=0
set con=server.createobject("adodb.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select ID,name from student",con,1,1
rs.pagesize=1
counts=rs.pagecount
response.write "<script language='vbscript'>" & chr(13)
response.write "<!--" & chr(13)
response.write "dim ID(" & counts & "),name(" & counts & "),i" & chr(13)
response.write "sub showtext()" & chr(13)
do while not rs.eof
response.write "ID(" & i & ")=""" & rs("ID") & """" & chr(13)
response.write "name(" & i & ")=""" & rs("name") & """" & chr(13)
i=i+1
rs.movenext
loop
set rs=nothing
con.close
set con=nothing
response.write "for i=0 to " & counts & chr(13)
response.write "if window.document.form1.text1.value=ID(i) then" & chr(13)
response.write "window.document.form1.text2.value=name(i)" & chr(13)
response.write "end if" & chr(13)
response.write "next" & chr(13)
response.write "end sub" & chr(13)
response.write "-->" & chr(13)
response.write "</script>" & chr(13)
%>
<title>无标题文档</title>
</head>
<body onload="tab()">
<form name="form1" method="post" action="">
<p>学号：
<input name="text1" type="text" id="text1" onChange="showtext()">
</p>
<p>姓名：
<input name="text2" type="text" id="text2">
</p>
</form>
</body>
</html>
还有可以cookie来作出效果，但是容易出错。上述代码我的机上通过验证的
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim con,rs,counts,i
i=0
set con=server.createobject("adodb.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select ID,name from student",con,1,1
rs.pagesize=1
counts=rs.pagecount
response.write "<script language='vbscript'>" & chr(13)
response.write "<!--" & chr(13)
response.write "dim ID(" & counts & "),name(" & counts & "),i" & chr(13)
response.write "sub showtext()" & chr(13)
do while not rs.eof
response.write "ID(" & i & ")=""" & rs("ID") & """" & chr(13)
response.write "name(" & i & ")=""" & rs("name") & """" & chr(13)
i=i+1
rs.movenext
loop
set rs=nothing
con.close
set con=nothing
response.write "for i=0 to " & counts & chr(13)
response.write "if window.document.form1.text1.value=ID(i) then" & chr(13)
response.write "window.document.form1.text2.value=name(i)" & chr(13)
response.write "end if" & chr(13)
response.write "next" & chr(13)
response.write "end sub" & chr(13)
response.write "-->" & chr(13)
response.write "</script>" & chr(13)
%>
<title>无标题文档</title>
</head>
<body onload="tab()">
<form name="form1" method="post" action="">
<p>学号：
<input name="text1" type="text" id="text1" onChange="showtext()">
</p>
<p>姓名：
<input name="text2" type="text" id="text2">
</p>
</form>
</body>
</html>
还有可以cookie来作出效果，但是容易出错。上述代码我的机上通过验证的
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
