1.简单写了一下~~~<% Dim rs,conn,sql sql="select field1 ... rs.open,sql, ... if not rs.eof then response.write "<table border=1><tr>" do until rs.eof response.write "<td onclick='t1.value=this.innerText;'>rs("field1")</td>" loop response.write "</tr></table>" else d1.innerText="没找到符合条件的数据!" end if ... %>
<table border=1>
<tr>
<td onclick="t1.value=this.innerText;">感冒</td>
<td onclick="t1.value=this.innerText;">发烧</td>
<td onclick="t1.value=this.innerText;">皮肤炎</td>
<td onclick="t1.value=this.innerText;">外伤</td>
<td onclick="t1.value=this.innerText;">内伤</td>
</tr>
</table>
</div>
<p><textarea name=t1></textarea></p>
Dim rs,conn,sql
sql="select field1 ...
rs.open,sql, ...
if not rs.eof then
response.write "<table border=1><tr>"
do until rs.eof
response.write "<td onclick='t1.value=this.innerText;'>rs("field1")</td>"
loop
response.write "</tr></table>"
else
d1.innerText="没找到符合条件的数据!"
end if
...
%>