Question

asp如何从数据库读取单选框

下面是不调用数据库的代码
Dim arr_class_tj_Txt, arr_class_tj_Value, i_class_tj, isSel_class_tj
arr_class_tj_Txt = Split("是, 否 ", ", ")
arr_class_tj_Value = Split("1, 0", ", ")

For i_class_tj = 0 To UBound(arr_class_tj_Txt)
isSel_class_tj = ""
If Request.Form("class_tj") = i_class_tj Then isSel_class_tj = " checked"

Response.Write ("<input type='radio' name='class_tj' id='class_tj' value='" & arr_class_tj_Value(i_class_tj) & "' " &

isSel_class_tj & " >" & arr_class_tj_Txt(i_class_tj) & vbcrlf)
Next
数据库单选框字段是class_tj，现在我想用上面的代码改成从数据库读取单选框

Answer 1

Dim arr_class_tj_Txt, arr_class_tj_Value, i_class_tj, isSel_class_tj
Dim Sql, Rs, ConnStr, tValue
tValue = 0
arr_class_tj_Txt = Split("是, 否 ", ", ")
arr_class_tj_Value = Split("1, 0", ", ")
ConnStr = "这里改成你的数据库连接字符串"
Rs.Open Sql, Conn, 1,1
If Not(Rs.Eof) Then
If IsNumeric(Rs("class_tj")) Then tValue = CLng(Rs("class_tj"))
End If
Rs.Close
Set Rs = Nothing
For i_class_tj = 0 To UBound(arr_class_tj_Txt)
isSel_class_tj = ""
If tValue = i_class_tj Then isSel_class_tj = " checked"
Response.Write ("<input type='radio' name='class_tj' id='class_tj' value='" & arr_class_tj_Value(i_class_tj) & "' " & isSel_class_tj & " >" & arr_class_tj_Txt(i_class_tj) & vbcrlf)
Next

Answer 2

不用那么麻烦啊~~直接读出来判断一下即可啊~~