有关函数传递的问题

2003-01-22 02:18:02 93 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Anolis OS 23实战：5分钟搞定AI环境配置（含NVIDIA驱动一键安装）本文详细介绍了如何在Anolis OS 23上快速配置AI开发环境，包括NVIDIA驱动的一键安装和TensorFlow、PyTorch等AI框架的部署。通过智能硬件适配引擎和优化后的二进制包，用户可在5分钟内完成传统需要数小时的配置工作，显著提升AI项目开发效率。阅读详情

当我点击下拉菜单中的项后，会出现提示为类型不匹配：‘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>

...全文