这里:http://topic.youkuaiyun.com/u/20080620/22/374fc067-2253-421e-8811-0246b223a16e.html?1387879136
<%
Dim name1,name2
idValue=Trim(Request.From("id")) '接受select传过来的字段值
If idValue<>"" then
sql="select * from [Table表] where id="&idValue
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,conn,1,1 'conn为连接数据库
name1=rs("name1")
name2=rs("name2")
rs.Close
Set rs=Nothing
End if
%>
<table align='center'>
<form name='showpages' method='Post' action='a.asp'>
<tr>
<td colspan='2'>
<select name='id' size='1' οnchange='javascript:submit()'>
<option value='id1'>id1</option>
<option value='id2'>id2</option>
<option value='id3'>id3</option>
</select>
</td>
</tr>
<tr>
<td><input name="name1" value="<%=name1%>"></td>
<td><input name="name2" value="<%=name2%>"></td>
</tr>
</form>
</table>