<%
dim action,db,rs
action=request.QueryString("action")
stuno=request.Form("stu_no")
stuname=request.Form("stu_name")
studepart=request.Form("institute_dep")
stumajor=request.Form("department_pro")
stuenter=request.Form("stu_enter")
password=request.Form("stu_Pswd")
if action="add" then
   Set db=Server.Createobject("ADODB.Connection")
   db.open"Dsn=connTAB"
   sql="select * from student where stu_no='" &amp; stuno &amp; "'"
   Set rs=db.Execute(sql) 
   if rs.bof and rs.eof then
        sql="insert into student(stu_no,stu_name,institute_dep,department_pro,stu_enter,stu_Pswd) values('" &amp; stuno &amp; "','" &amp; stuname &amp; "','" &amp; studepart &amp; "','" &amp; stumajor &amp; "','" &amp; stuenter &amp; "','" &amp; password &amp; "')"
        
        db.execute(sql)
        response.Write("添加成功")
    else
        response.Write("学号已经被注册！")
    end if
End if
%>
<form id="form1" name="form1" method="post" action="adminaddstd.asp?action=add">
  <table width="100%" border="0">
    <tr>
      <td colspan="2">添加学生详细信息</td>
    </tr>
    <tr>
      <td>学号</td>
      <td><input name="stu_no" type="text" value="<%=rs("stuno")%>"/></td>
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配 第 41 行
<input name="stu_no" type="text" value="<%=rs("stuno")%>"/>
到底错在哪里，哪位强人帮帮忙啊