28,406
社区成员
发帖
与我相关
我的任务
分享急！急!急!一个简单的问题，35分相送
想做一个查询数据库，在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>
公司的任务，谢谢各位多帮忙
<%@ 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>
...全文
请发表友善的回复…
发表回复
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>
<%@ 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 错误：缺少语句”
但我怎么做，点击按钮就执行数据库查询呢，能给个具体的方案吗？
错误提示！“行：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>
<%@ 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
- 打赏
- 举报
先要弄清server端和client端.
luojx 2001-12-19
- 打赏
- 举报
客户端脚本不能执行服务器段程序的
你可以将
SQLstr = "select * from book "
<% sa1.Open SQLStr,adocon %>
放到开始执行，onclick事件，
查询的数据放入FormulaOne控件中显示
你可以将
SQLstr = "select * from book "
<% sa1.Open SQLStr,adocon %>
放到开始执行，onclick事件，
查询的数据放入FormulaOne控件中显示
lemontree197977 2001-12-19
- 打赏
- 举报
把出错提示贴出来让大家看一下！
TCat 2001-12-19
- 打赏
- 举报
不好意思，公司的网到中午才开
感谢雪狼，感谢百合，感谢大家
根据雪狼的代码，我的问题已经解决
感谢雪狼，感谢百合，感谢大家
根据雪狼的代码，我的问题已经解决
