这样的代码能不能简化点拉！ - 编程论坛

#2

hams2010-12-28 17:07

dim mixer
  mixer(0)="随机效果"
  mixer(1)="柱形效果"
  mixer(2)="波形效果"
  mixer(3)="烈焰效果"
  mixer(4)="海浪效果"
  mixer(5)="声带效果"
  mixer(6)="射线效果"
  mixer(7)="弹球效果"
  mixer(8)="星云效果"
  mixer(9)="水波效果"
  mixer(10)="雨点效果"
mixer_id=mixer(rs("mixer_id")+1)

#3

ningzhonghui2010-12-28 17:18

回复 2楼 hams

版主用原来我的

只有本站会员才能查看附件，请登录

用了你的

只有本站会员才能查看附件，请登录

我要的是数据库的值是数字显示当前的是文字啊

[ 本帖最后由 ningzhonghui 于 2010-12-28 17:19 编辑 ]

#4

wangjy5002010-12-28 17:54

Select Case rs("mixer_id")
       Case "-1" : mixer_id="随机效果"
       Case "0" : mixer_id="柱形效果"
       Case "1" : mixer_id="波形效果"
       ....
End Select

#5

ningzhonghui2010-12-28 18:58

回复 4楼 wangjy500

wangjy500兄正是我想要的效果！呵呵谢谢！

#6

lele20072010-12-28 21:19

<%

lele = Array("柱形效果","波形效果","烈焰效果","海浪效果","声带效果","射线效果","弹球效果","星云效果","水波效果","雨点效果")

if rs("mixer_id") = -1 then:mixer_id = "随机效果":else:mixer_id = lele(rs("mixer_id")):end if
%>

#7

ningzhonghui2010-12-28 21:36

回复 6楼 lele2007

想不到这样的代码还是多样的写法，向各位学习拉！楼主方法也测试成功！

#8

hams2010-12-28 22:23

出现那样的问题就有可能是数据不对

#9

ningzhonghui2010-12-29 09:37

回复 8楼 hams

我再试试看！也许是哪方面漏掉拉

#10

hams2010-12-29 09:49

确定你的数据库数据就是-1到9，一共11个，而你输出的是12个记录，你不觉得有问题么？

#11

ningzhonghui2010-12-29 09:59

回复 10楼 hams

数据确是-1 到9 不能多一个啊，上面多一条<option value="<%=mixer_id%>" selected><%=mixer_id%></option>
只是是为显示当前数据中的值
他人的代码

<%
Select Case rs("mixer_id")
       Case "-1" : mixer_id="随机id序号"
       Case "0" : mixer_id="皮肤id序号0"
       Case "1" : mixer_id="皮肤id序号1"
       Case "2" : mixer_id="皮肤id序号2"
       Case "3" : mixer_id="皮肤id序号3"
       Case "4" : mixer_id="皮肤id序号4"
       Case "5" : mixer_id="皮肤id序号5"
       Case "6" : mixer_id="皮肤id序号6"
       Case "7" : mixer_id="皮肤id序号7"
       Case "8" : mixer_id="皮肤id序号8"
       Case "9" : mixer_id="皮肤id序号9"
End Select%>
<select name="mixer_id" id="select">
<option value="<%=mixer_id%>" selected><%=mixer_id%></option>
<option value="-1" >随机效果</option>
<option value="0" >柱形效果</option>
<option value="1" >波形效果</option>
<option value="2" >烈焰效果</option>
<option value="3" >海浪效果</option>
<option value="4" >声带效果</option>
<option value="5" >射线效果</option>
<option value="6" >弹球效果</option>
<option value="7" >星云效果</option>
<option value="8" >水波效果</option>
<option value="9" >雨点效果</option>
</select>

[ 本帖最后由 ningzhonghui 于 2010-12-29 11:49 编辑 ]

#12

aspic2010-12-29 11:12

<option value="<%=mixer_id%>" selected><%=mixer_id%></option>
这个你不是故意要显示数字吗。。。

#13

ningzhonghui2010-12-29 11:47

回复 12楼 aspic

Select Case rs("mixer_id")
       Case "-1" : mixer_id="随机id序号"
       Case "0" : mixer_id="皮肤id序号0"
       Case "1" : mixer_id="皮肤id序号1"
       Case "2" : mixer_id="皮肤id序号2"
       Case "3" : mixer_id="皮肤id序号3"
       Case "4" : mixer_id="皮肤id序号4"
       Case "5" : mixer_id="皮肤id序号5"
       Case "6" : mixer_id="皮肤id序号6"
       Case "7" : mixer_id="皮肤id序号7"
       Case "8" : mixer_id="皮肤id序号8"
       Case "9" : mixer_id="皮肤id序号9"
End Select要是没加这些那显示的肯定是数字拉  我的目的是数据库里是数字，界面看来的是汉字说明拉

[ 本帖最后由 ningzhonghui 于 2010-12-29 11:49 编辑 ]

#14

tianhao_sjz2010-12-29 22:06

新手上路，多多学习！

#15

aspic2010-12-30 09:58

程序代码：

<%
function GetValue(id)
    Select Case id
       Case "-1" : GetValue="随机id序号"
       Case "0" : GetValue="皮肤id序号0"
       Case "1" : GetValue="皮肤id序号1"
       Case "2" : GetValue="皮肤id序号2"
       Case "3" : GetValue="皮肤id序号3"
       Case "4" : GetValue="皮肤id序号4"
       Case "5" : GetValue="皮肤id序号5"
       Case "6" : GetValue="皮肤id序号6"
       Case "7" : GetValue="皮肤id序号7"
       Case "8" : GetValue="皮肤id序号8"
       Case "9" : GetValue="皮肤id序号9"
    End Select
End function
%>

然后一个循环。。调用GetValue函数值是数据库读取的数字，显示的就是文字了