有关函数传递的问题

di78da 2003-01-22 02:18:02
当我点击下拉菜单中的项后,会出现提示为类型不匹配:‘new_StationName’原因何在?
小弟在线等待!千恩万谢了!请大侠帮我。付原码:
<script language=VbScript>
<%
sub new_StationName()
set conn=server.CreateObject("adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\administrator\My Documents\Visual Studio Projects\Project2\Project2_Local\login.mdb"
Sql="select * form DeviceBug where StationName='"&left(Request.Form("class1"),2)&"'"
set rs=conn.Execute(sql)
%>
设备类型:
<%while not rs1.EOF %>
<%=rs("DeviceType")%>
<% rs.MoveNext
wend
rs.Close
set Sqlstr1=nothing%>

<%end sub%>
</script>
<% set rs = server.CreateObject ("ADODB.Recordset")
SQLstr="select DISTINCT StationName from DeviceBug where StationName ='东郊变电站'or'西郊变电站'"
rs.Open SQLstr,conn,1,1%>
<tr>
<td class="chinese" width="871" bgcolor="#FFFFCC" align="left" height="1">
<form action="asp page1.asp" id=form1 method=post name="form1>
变电站名称:<select name="class1" onchange="new_StationName()">
<% while not rs.EOF %>
<option value=<%=rs("StationName")%>><%=rs("StationName")%></option>
<% rs.MoveNext
wend
rs.Close
set Sqlstr=nothing%>
</select>
</tr>
...全文
12 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2003-01-22 02:18
社区公告
暂无公告