Question

跪求ASP下拉菜单的改进

我有个ASP客户关系系统，现在有个男和女的下拉选项，现在我想再增加一个普通，VIP，和优质的下拉选项，数据库我已经添加好了，首页调用也弄好了，就是写不进数据库里面，那位大哥肯帮小弟看看吗？
其中，我数据库里的字段是：L_ZhiLiang
------------------------------
这个是原来的 男女下拉菜单
<tr>
<td height="30" align="center">性别</td>
<td colspan="2">
<select name="LouHB_WaiGuaZL" type="text" size=1 class="button1">
<option value="1" <%If L_WaiGuaZL=1 Then response.write"selected" End If%>>男</option>
<option value="2" <%If L_WaiGuaZL=2 Then response.write"selected" End If%>>女</option>
</select>
</td>
</tr>
----------------------------------------
这个是原来的一些相关代码：
Set Lours=server.createobject("adodb.recordset")
Check="Select * From LHB_UserInfo where id="&ID
Lours.Open Check,LouConn,1,3
Lours("L_FuWuQi")=L_FuWuQi
Lours("L_WaiGuaZL")=L_WaiGuaZL
Lours("L_GouMaiRQ")=L_GouMaiRQ
Lours("L_YouXiZY")=L_YouXiZY
Lours("L_YouXiZH")=L_YouXiZH
Lours("L_BBSID")=L_BBSID
Lours("L_JueSheMC")=L_JueSheMC
Lours("L_QQ")=L_QQ
Lours("L_HuiFang")=L_HuiFang
Lours("L_ZhiLiang")=L_ZhiLiang
Lours.update
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy()
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，修改成功！');"&"window.location.href = 'index.asp'"&" </script>"
Response.End
End Select

Select Case TianJ_XiuG
Case 2
Set Lours=server.createobject("adodb.recordset")
CX="Select * From LHB_UserInfo where id="&ID
Lours.Open CX,Louconn,1,1
L_WaiGuaZL=Lours("L_WaiGuaZL")
L_FuWuQi=Lours("L_FuWuQi")
L_GouMaiRQ=Lours("L_GouMaiRQ")
L_YouXiZY=Lours("L_YouXiZY")
L_YouXiZH=Lours("L_YouXiZH")
L_BBSID=Lours("L_BBSID")
L_JueSheMC=Lours("L_JueSheMC")
L_QQ=Lours("L_QQ")
L_HuiFang=Lours("L_HuiFang")
L_ZhiLiang=Lours("L_ZhiLiang")
End Select
%>

<br>
<%
L_Reg=Request("LouHB_Reg")
L_FuWuQi=Request("LouHB_FuWuQi")
L_WaiGuaZL=Request("LouHB_WaiGuaZL")
L_GouMaiRQ=Request("LouHB_GouMaiRQ")
L_YouXiZH=Request("LouHB_YouXiZH")
L_YouXiZY=Request("LouHB_YouXiZY")
L_BBSID=Request("LouHB_BBSID")
L_JueSheMC=Request("LouHB_JueSheMC")
L_QQ=Request("LouHB_QQ")
L_HuiFang=Request("LouHB_HuiFang")
L_ZhiLiang=Request("LouHB_ZhiLiang")
ID=Request("LouHB_ID")
TianJ_XiuG=Request("LouHB_TianJ_XiuG")
Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub
那位大哥能帮我添加多一个普通，VIP，和优质的下拉选项，把代码发上来，小弟感激不尽。

Answer 1

没有必要弄这么麻烦吧
看了半天还不知道你写的啥东西
着急的话找我757606153