asp大问题???????
<form name="form1" method="post" action="bmquery.asp">
<table width="98%" border="0" height="52">
<tr>
<td width="20%" height="58">请输入您的ID号:</td>
<td height="58" colspan="2">
<div align="left">
<input type="text" name="id1" size="15">
</div>
</td>
</tr>
<tr>
<td colspan="3" height="42">
<div align="right">--------------------------------------------------------------------------------------------
</div>
<div align="center"> </div>
</td>
</tr>
<tr>
<td width="20%">
<div align="right">
<input type="button" value="查 询" onclick="querybm()" name="button1">
</div>
</td>
<td width="38%">
<div align="center">
<input type="reset" name="reset" value="重 查">
</div>
</td>
<td width="42%"> </td>
</tr>
</table>
</form>
<p> </p>
</TD>
</TR>
<TR vAlign=top>
<TD height=66><font size="4" color="#990066">
<%
function querybm()
dim conn
dim msg
document.form1.submit()
set conn=server.createobject("adodb.connction")
conn.open "dsn=comprg_mzbm;uid=9linux8mzbm;pwd=;"
set rs=server.createobject("adodb.recordset")
num=trim(request("id1"))
comtxt="select xm,sex,chushengriqi,parent_name,phone_h,mobile,city,dz from stu_info where id="&num&""
rs.open comtxt,conn
if rs.bof or rs.eof then
msg="你的ID号为空或有误,请检查!"
end if
if msg="" then
response.write "你的个人信息如下:"
response.write "<br>"
do while not rs.eof
for i=0 to rs.count-1
response.write rs(i).value
response.write "<br>"
next
rs.movenext
loop
response.write "欢迎您!!!"
else
response.write msg
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end function
%>
</font></TD>
</TR>
始终有问题,请各位给予解答.