急！急!急!一个简单的问题，35分相送

TCat 2001-12-19 11:23:21

想做一个查询数据库，在Onclick事件这儿触发，刚开始到这儿，就出错了
公司的任务，谢谢各位多帮忙
<%@ Language=VBScript %>
<HTML>
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Aspbook"
set sa1=Server.CreateObject(adodb.RecordSet)
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language="vbscript">
sub Query()
SQLstr = "select * from book "
<% sa1.Open SQLStr,adocon %>
‘查询的数据放入FormulaOne控件中显示
end sub

</script>
</HEAD>
<BODY>

<input type="button" name=Query value="查询" OnClick="Query()" >

</BODY>
</HTML>

...全文

86 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

yihis 2001-12-19

打赏
举报

ok,你可以这样做：
<%@ Language=VBScript %>
<HTML>
<%
set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Aspbook"
set sa1=Server.CreateObject(adodb.RecordSet)
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script>
function aaa()
{
document.location="你的本页?asdf=1";
}
</script>
<%
asdf=request("asdf")
if asdf=1 then
SQLstr = "select * from book "
sa1.Open SQLStr,adocon
end if
%>
</HEAD>
<BODY>

<input type="button" name=Query value="查询" OnClick="aaa()">

</BODY>
</HTML>

lemontree197977 2001-12-19

打赏
举报

是： end if

TCat 2001-12-19

打赏
举报

谢谢大家，小弟是个新手，恳请大家继续帮忙
但我怎么做，点击按钮就执行数据库查询呢，能给个具体的方案吗？
错误提示！“行：12 错误：缺少语句”

yihis 2001-12-19

打赏
举报

这样当然不行，asp的执行是在服务器端，在你的button被onclick之前它就执行过了，除非你把这页信息提交到服务器端，否则它是不会再执行的。

cpplus 2001-12-19

打赏
举报

这样子不行的，脚本的优先级比ASP低的，建议还是提交之后查询吧，这样来弄：

<%@ Language=VBScript %>
<HTML>
<%
if not ( request("Query") = "") then

set adocon=Server.CreateObject("ADODB.Connection")
adocon.Open "Aspbook"
set sa1=Server.CreateObject(adodb.RecordSet)
SQLstr = "select * from book "
sa1.Open SQLStr,adocon
‘查询的数据放入FormulaOne控件中显示
end
%>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="form1">
<input type="button" name=Query value="查询" OnClick="document.form1.submit()" >
</form>

</BODY>
</HTML>

tripofdream 2001-12-19