UC知道我觉得代码没错，为什么会提示“至少一个参数没被指定值”
来源：百度知道 编辑：UC知道 时间：2024/06/05 11:40:27
代码如下：
Sub ShowBigClassList()
Msql = "Select * from SmallClass Where BigClass=1 or BigClass=2 or BigClass=3 And IsShow=True"
Set ShProRs=Conn.Execute(Msql)
If ShProRs.Eof Then
Response.Write("<span style='color:#ff0000;font-size:12px;'>暂无数据</span>")
End if
Do While Not ShProRs.Eof
Response.Write("<tr>")&vbCrlf
Response.Write(" <td height=""30""> </td>")
Response.Write(" <td width=""95%"" background=""Images/gt_2.gif""><div class=""pro-name"">"&ShProRs("SmallClassName")&"</div></td>")
Response.Write("</tr>")
Loop
End Sub
Sub ShowNewsList(n)
Set ShNewsRs=Server.CreateObject("Adodb.RecordSet")
Msql = "Sele
Sub ShowBigClassList()
Msql = "Select * from SmallClass Where BigClass=1 or BigClass=2 or BigClass=3 And IsShow=True"
Set ShProRs=Conn.Execute(Msql)
If ShProRs.Eof Then
Response.Write("<span style='color:#ff0000;font-size:12px;'>暂无数据</span>")
End if
Do While Not ShProRs.Eof
Response.Write("<tr>")&vbCrlf
Response.Write(" <td height=""30""> </td>")
Response.Write(" <td width=""95%"" background=""Images/gt_2.gif""><div class=""pro-name"">"&ShProRs("SmallClassName")&"</div></td>")
Response.Write("</tr>")
Loop
End Sub
Sub ShowNewsList(n)
Set ShNewsRs=Server.CreateObject("Adodb.RecordSet")
Msql = "Sele
Sub ShowBigClassList()
Msql = "Select * from SmallClass Where BigClass=1 or BigClass=2 or BigClass=3 And IsShow=True"
Set ShProRs=Conn.Execute(Msql)
If ShProRs.Eof and ShProRs.Bof Then
Response.Write "<span style='color:#ff0000;font-size:12px;'>暂无数据</span>"
End if
Do While Not ShProRs.Eof
Response.Write "<tr>"&vbCrlf
Response.Write " <td height=""30""> </td>"
Response.Write " <td width=""95%"" background=""Images/gt_2.gif""><div class=""pro-name"">"&ShProRs("SmallClassName")&"</div></td>"
Response.Write "</tr>"
ShProRs.movenext '在这里加一句
Loop
End Sub
下面这句会出错的，不知你要用它干什么？
Response.Write ShNewsRs
另外，response.write str 可以不用括号的