<select name="select">
</select>
这个只能单项选择 但是我同时也要实现 手动能写 如何实现请高手指教

还有如果在一个<td><%=rs("xy")%></td> 在读取数据库的时候我要实现满足20个字就换行如何实现
请高手指教

第一个问题 没有明白楼主的意思。。。。

第二个问题 可以做循环并判断一下 每输出20个字的时候就 加上一个<br>标签

第一个问题可以简单的说 如用选择性别来说 下面的只有 男 女 选择
但是如果想写其他的 假如人妖 用手动的写
然后实现这个功能

<%=rs("xy")%> 如果输出XY 有100个字但是我要20个字就换行
怎么判断 好象说起来好实现但是 如何写呢
if 这里写什么呢>20 then response.write "br"

这是一种方法

Dim a,i
a = "123456789012345678901234567890123456789012345678901234567890"
For i = 0 To Len(a)-1
If i mod 10 = 0 and i <> 0 Then Response.Write("<br>")
Response.Write(mid(a,i+1,1))
Next

[此贴子已经被作者于2007-2-7 8:34:47编辑过]

当然写成过程也可以的

<%
Dim a
a = "123456789012345678901234567890123456789012345678901234567890"
Response.Write(SetString(a,10))

Rem str为字符串，n为长度

Function SetString(str,n)
Dim i
For i = 0 To Len(str)-1 step n
If i mod n = 0 and i <> 0 Then Response.Write("<br>")
Response.Write(mid(str,i+1,n))
Next
End Function
%>

[此贴子已经被作者于2007-2-7 8:35:31编辑过]

第一个问题还是不懂

那只能在select控件后加一个文本框，一般html的select控件只能单向选择，既能选择又能写入在网页上只能再添加一个文本框输入。不过JavaScript也可以实现这样的功能，有点不太好写。

<%
Dim a
a = "123456789012345678901234567890123456789012345678901234567890"
Response.Write(SetString(a,10))

Rem str为字符串，n为长度

Function SetString(str,n)
Dim i
For i = 0 To Len(str)-1 step n
If i mod n = 0 and i <> 0 Then Response.Write("<br>")
Response.Write(mid(str,i+1,n))
Next
End Function
%>

这个是可以实现 我想问一下 我把它变为a=rs("a") a为空就要出错
我这样才能解决这个问题

曾经上学的时候听老师说过这样的一个功能，就是在列表选择项里也可以写入.
好象直接用的就是html里面的某一个属性,你可以查一下.