28,390
社区成员
发帖
与我相关
我的任务
分享这个查询错在那?帮我看看!
<script language="javascript">
function putobject(obj_name,parentid)
{
eval("window.opener.document.vehicle." + parentid + ".value='" + obj_name + "'");
return window.close();
}
function putobject(obj_name1,city)
{
eval("window.opener.document.vehicle." + city + ".value='" + obj_name1 + "'");
return window.close();
}
</script>
<html>
<BODY>
<BR>
<form action="" method=post name=queryform>
<table width="95%" border="0" cellspacing=0 cellpadding=0 bordercolor=#cccccc align=center>
<tr>
<td align=center>
<font size="2">城市编号</font> <input type=text size=10 name=cityNo
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
</td>
<td>
<font size="2">城市名称</font> <input type=text size=10 name=startcity
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
<a href="#" onclick=javascript:queryform.submit();>查询</a>
</td>
</tr>
</table>
</form>
<%
dim conn
set conn = server.CreateObject("adodb.connection")
conn.Open Application("connstr")
set rst = Server.CreateObject("adodb.recordset")
strsql= "select id,cs from where id='"& cityno &"' and cs='" & startcity &"'"
rst.Open strsql,conn,1,3
do while not rst.EOF
%><center>
<table width=95% cellpadding=0 cellspacing=0>
<tr bgcolor=Black>
<td align=center>
<table border=1 bordercolor=white cellspacing=0 cellpadding=0 width=600>
<tr bordercolor=black bgcolor=LightSteelBlue>
<tr bgcolor=LightSteelBlue>
<td align=center width=12.5% >
<font size="2"> 城市编号</font></td>
<td align=center width=12.5%>
<font size="2">城市名称</td></font>
</tr>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2"><a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("id"))%>
</font></td>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2">
<a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("cs"))%>
</font></a></td>
</tr>
<%
rst.MoveNext
loop
rst.Close:conn.close
set rst=nothing:set conn=nothing
%>
</table>
</table>
</body>
</html>
这个查询错在那?帮我看看!
function putobject(obj_name,parentid)
{
eval("window.opener.document.vehicle." + parentid + ".value='" + obj_name + "'");
return window.close();
}
function putobject(obj_name1,city)
{
eval("window.opener.document.vehicle." + city + ".value='" + obj_name1 + "'");
return window.close();
}
</script>
<html>
<BODY>
<BR>
<form action="" method=post name=queryform>
<table width="95%" border="0" cellspacing=0 cellpadding=0 bordercolor=#cccccc align=center>
<tr>
<td align=center>
<font size="2">城市编号</font> <input type=text size=10 name=cityNo
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
</td>
<td>
<font size="2">城市名称</font> <input type=text size=10 name=startcity
class=input1 style="WIDTH: 61px; HEIGHT: 19px" >
<a href="#" onclick=javascript:queryform.submit();>查询</a>
</td>
</tr>
</table>
</form>
<%
dim conn
set conn = server.CreateObject("adodb.connection")
conn.Open Application("connstr")
set rst = Server.CreateObject("adodb.recordset")
strsql= "select id,cs from where id='"& cityno &"' and cs='" & startcity &"'"
rst.Open strsql,conn,1,3
do while not rst.EOF
%><center>
<table width=95% cellpadding=0 cellspacing=0>
<tr bgcolor=Black>
<td align=center>
<table border=1 bordercolor=white cellspacing=0 cellpadding=0 width=600>
<tr bordercolor=black bgcolor=LightSteelBlue>
<tr bgcolor=LightSteelBlue>
<td align=center width=12.5% >
<font size="2"> 城市编号</font></td>
<td align=center width=12.5%>
<font size="2">城市名称</td></font>
</tr>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2"><a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("id"))%>
</font></td>
<td align=center width=150 bgColor=#ddffdd class=row>
<font size="2">
<a href="#"
onclick="javascript:putobject('<%=trim(rst("cs"))%>','<%=Request.querystring("objectname")%>');"><%=trim(rst("cs"))%>
</font></a></td>
</tr>
<%
rst.MoveNext
loop
rst.Close:conn.close
set rst=nothing:set conn=nothing
%>
</table>
</table>
</body>
</html>
这个查询错在那?帮我看看!
...全文
请发表友善的回复…
发表回复
avonqin 2003-10-15
- 打赏
- 举报
?????
点解你用那么多javascript函数？十分简单的东西被你搞得乱七八糟哦
点解你用那么多javascript函数？十分简单的东西被你搞得乱七八糟哦
xiaobird1 2003-10-15
- 打赏
- 举报
strsql= "select id,cs from where id='"& cityno &"' and cs='" & startcity &"'"
没有写表名
没有写表名
laibagefei 2003-10-15
- 打赏
- 举报
strsql= "select id,cs from 表 where id="&cityno & "and cs='"&startcity&"'"
rst.Open strsql,conn,1,3
这样应该没问题了，试一下吧
rst.Open strsql,conn,1,3
这样应该没问题了，试一下吧
lqin97 2003-10-15
- 打赏
- 举报
没用rst.Open strsql,conn,1,3
有错
有错
