新手，高分求教

2010-07-21 02:36:40 286 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

编写程序，输入十名学生的成绩，显示其中最高分，最低分以及平均分#数组#C语言编写程序，输入十名学生的成绩，显示其中最高分，最低分以及平均分#数组#C语言 #include"stdio.h" int main() { int i,n,a[10],t,num=0; float aver; for(i=0;i<10;i++) {scanf("%d",&a[i]);} for(i=0;i<9;i++) { for(n=0;n<9-i;n++) { if(a[n]>a[n+1]) { t=a[n]; a[n]= 阅读详情

Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
oConn.Open StrSQL,StrConn,1,1
x=1
Response.Write %>"<%Response.Write"Changdu"%>":"<%=objRS.recordcount%>"
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"

Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'Write'
/station.asp, 第 18 行

...全文

告别臃肿VS！仅用Visual Studio 2022 Build Tools为Qt 5.12.12配置MSVC2017开发环境本文详细介绍了如何仅使用Visual Studio 2022 Build Tools为Qt 5.12.12配置MSVC2017开发环境，避免安装臃肿的完整VS。通过精准选择组件、配置Qt Creator编译器和优化Kit设置，实现高效、精简的Windows平台Qt开发环境搭建，特别适合追求性能和资源优化的开发者。阅读详情

lin45143777

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

lin45143777 2010-07-23

打赏
举报

结合了以后还是不行。我不太会VB代码。以前连接SQL2000是没问题的。但是连接2008就不行了。
不晓得是哪里的问题。请各位费心帮我看下。。加分到100

lin45143777 2010-07-23

打赏
举报

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"

dim Date_id
Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
set objRS=server.CreateObject ("adodb.Recordset")
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount & "<br>"
while (not objRS.Eof)
Response.Write "," & x & ":" & objRS("人数")
objRS.MoveNext
x=x+1
wend
objRS.close
oConn.Close
set objRS = nothing
set oConn = nothing %>

错误类型：
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Incorrect syntax near the keyword 'from'.
/station.asp, 第 15 行

lin45143777 2010-07-23

打赏
举报

[Quote=引用 18 楼 lin45143777 的回复:]
结合了以后还是不行。我不太会VB代码。以前连接SQL2000是没问题的。但是连接2008就不行了。
不晓得是哪里的问题。请各位费心帮我看下。。加分到100
[/Quote]
不是语句的问题。我在查询分析器测试过

sunrisehy2003 2010-07-23

打赏
举报

全才多啊，不是VB.net的问题，也有这么多人知道

erdong988 2010-07-23

打赏
举报

"from"附近语法不正确
在查询器中调试SQL语句

lin45143777 2010-07-22

打赏
举报

持续加分，请各位大侠帮忙看看

lin45143777 2010-07-22

打赏
举报

[Quote=引用 5 楼 lin45143777 的回复:]
全部代码在这。麻烦哪位大侠帮忙改一下！
[/Quote]
{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id
Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,StrConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/station.asp, 第 14 行

浅蓝马 2010-07-22

打赏
举报

楼上的代码，在objRS.Open StrSQL,oConn,1,1之前，
我想应该有objRS对象的创建，如下：
set objRS=server.CreateObject ("adodb.Recordset")

erdong988 2010-07-22

打赏
举报

综合了一下，自己再看看



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%Response.Expires=-10000

response.addHeader "pragma","no-cache"

response.addHeader "cache-control","private"

Response.CacheControl = "no-cache"

  

  dim Date_id

  Dim oConn,strSQL, objRS,add,StrConn

  set oconn=server.CreateObject ("adodb.connection")

  StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"

  oConn.cursorlocation=3   

  oConn.Open StrConn

  set objRS=server.CreateObject ("adodb.Recordset")

  strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"

  objRS.Open StrSQL,oConn,1,1

  x=1

  Response.Write "Changdu:" & objRS.recordcount & "<br>"

  while (not objRS.Eof)   

     Response.Write "," & x & ":" & objRS("人数")

     objRS.MoveNext   

     x=x+1

  wend

  objRS.close

  oConn.Close   

  set objRS = nothing   

  set oConn = nothing %>

fzx4936 2010-07-22

打赏
举报

 <%while (not objRS.Eof)   

 Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"

  <%objRS.MoveNext  

  x=x+1

  wend%>

问题好像应该出在这里吧？



 <%while (not objRS.Eof)   

 Response.Write x &":" &objRS("人数")

 objRS.MoveNext  

 x=x+1

 wend%>

改成这样试试

浅蓝马 2010-07-22

打赏
举报

我上面不是说过了，在objRS.Open StrSQL,oConn,1,1之前，
应该有objRS对象的创建：
set objRS=server.CreateObject ("adodb.Recordset")

yaling_ 2010-07-22

打赏
举报

想网站的错误最好是把整站拿出来调试，要不然看的人比较费劲，有时提示有错的地方，不一定有错。

jhone99 2010-07-22

打赏
举报

你的错误很多，需要把大家的综合，大家帮你修改的你基本无视

jhone99 2010-07-21

打赏
举报

#7楼得分：0回复于：2010-07-21 20:12:42{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id

Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
objRS.close
set objRS = nothing
set oConn = nothing %>
}

jhone99 2010-07-21

打赏
举报

{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id

Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
oConn.Open StrConn
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
objRS.Open StrSQL,oConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}

erdong988 2010-07-21

打赏
举报

在2楼的基础上，把
oConn.Open StrSQL,StrConn,1,1
改为
objRS.Open StrSQL,StrConn,1,1

lin45143777 2010-07-21

打赏
举报

全部代码在这。麻烦哪位大侠帮忙改一下！

lin45143777 2010-07-21

打赏
举报

{
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Expires=-10000
response.addHeader "pragma","no-cache"
response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<% dim Date_id

Dim oConn,strSQL, objRS,add,StrConn
set oconn=server.CreateObject ("adodb.connection")
StrConn= "Provider=SQLOLEDB;Data Source=192.168.0.11;User ID=sa;Password=;"
oConn.cursorlocation=3
strSQL = "select a.basepoint_id as 基站编号,isnull(b.pnum,0) as 人数 from basepoint a left join (select basepoint_id,count(basepoint_id) as PNum from bp_result group by basepoint_id) b on a.basepoint_id=b.basepoint_id order by a.basepoint_id"
oConn.Open StrSQL,StrConn,1,1
x=1
Response.Write "Changdu:" & objRS.recordcount %>
<%while (not objRS.Eof)
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
<%objRS.MoveNext
x=x+1
wend%>
<% oConn.Close
set objRS = nothing
set oConn = nothing %>
}

lin45143777 2010-07-21

打赏
举报

按您说的试了下

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/station.asp, 第 18 行

浅蓝马 2010-07-21

打赏
举报

Response.Write %>"<%Response.Write"Changdu"%>":"<%=objRS.recordcount%>"
感觉好像多了点东西，改成下面试试
Response.Write "Changdu:" %> <%=objRS.recordcount%>
或者
Response.Write "Changdu:" & objRS.recordcount %>

下面的
Response.Write %>,"<%Response.Write x%>":"<%=objRS("人数")%>"
也是同样。

加载更多回复（1）

新手，高分求教

相关推荐