UC知道asp select case 的问题
来源：百度知道 编辑：UC知道 时间：2024/07/01 04:53:47
<%
Function GetStar(hyBuyCount)
select case hyBuyCount
case 1
response.write"<img src=img/1.gif>"
case 3
response.write"<img src=img/2.gif>"
case 5
response.write"<img src=img/3.gif>"
case 10
response.write"<img src=img/4.gif>"
case 20
response.write"<img src=img/5.gif>"
case else
response.write"<img src=img/6.gif>"
end select
GetStar=text
end function
%>
下面是 调用
<% dim sql.hy1rs
set Hy1Rs=server.CreateObject("adodb.recordset")
sql = "select HyBuyCount from HyClub where HyNumber ='" & HyNumber & "' "
Hy1Rs.Open sql,conn ,1,1
%>
<%=GetStar(Hy1Rs("HyBuyCount"))%>
结果 不显示.. 这是那里的问题
Function GetStar(hyBuyCount)
select case hyBuyCount
case 1
response.write"<img src=img/1.gif>"
case 3
response.write"<img src=img/2.gif>"
case 5
response.write"<img src=img/3.gif>"
case 10
response.write"<img src=img/4.gif>"
case 20
response.write"<img src=img/5.gif>"
case else
response.write"<img src=img/6.gif>"
end select
GetStar=text
end function
%>
下面是 调用
<% dim sql.hy1rs
set Hy1Rs=server.CreateObject("adodb.recordset")
sql = "select HyBuyCount from HyClub where HyNumber ='" & HyNumber & "' "
Hy1Rs.Open sql,conn ,1,1
%>
<%=GetStar(Hy1Rs("HyBuyCount"))%>
结果 不显示.. 这是那里的问题
你的过程写错了
Function是函数，要有返回值
Sub是过程，直接操作就行了
<%
Function GetStar(hyBuyCount)
select case hyBuyCount
case 1
GetStar = "<img src=img/1.gif>"
case 3
GetStar = "<img src=img/2.gif>"
case 5
GetStar = "<img src=img/3.gif>"
case 10
GetStar = "<img src=img/4.gif>"
case 20
GetStar = "<img src=img/5.gif>"
case else
GetStar = "<img src=img/6.gif>"
end select
end function
%>
或者
<%
Sub GetStar(hyBuyCount)
select case hyBuyCount
case 1
response.write"<img src=img/1.gif>"
case 3
response.write"<img src=img/2.gif>"
case 5
response.write"<img src=img/3.gif>"
case 10
response.write"<img src=img/4.gif>"
case 20
response.write"&l