拜托各位高手，救救急呀！！！

www525 2001-08-24 04:01:01

<%
set conn=Server.CreateObject("ADODB.connection")
conn.cursorlocation=3
conn_string="Driver={sql server};Server=10.49.1.15;Database=xuejiguanli;UID=xuejiguanli_insert;PWD=123456"
conn.open conn_string
FI_class_type=request("student_class_type")
FS_class_code=request("student_code_hidden")
FS_class_name=request("sql_name")
'处理字段信息
insert=request.form("insert")
if insert<>"" then
FS_class_code=request.form("FS_class_code")
FS_class_code=replace(FS_class_code,"'","''")
FS_class_code=replace(FS_class_code,"<","＜")
FS_class_code=replace(FS_class_code,">","＞")
FI_flow_id=request.form("FI_flow_id")
FI_flow_id=trim(request.form("FI_flow_id"))
FI_flow_id=replace(FI_flow_id,"'","''")
FI_flow_id=replace(FI_flow_id,"<","＜")
FI_flow_id=replace(FI_flow_id,">","＞")
FS_content=request.form("FS_content")
FS_content=trim(request.form("FS_content"))
FS_content=replace(FS_content,"'","''")
FS_content=replace(FS_content,"<","＞")
FS_content=replace(FS_content,">","＞")
FI_level=request.form("FI_level")
FI_level=trim(request.form("FI_level"))
FI_level=replace(FI_level,"'","''")
FI_level=replace(FI_level,"<","＜")
FI_level=replace(FI_level,">","＞")
FI_type=request.form("FI_type")
FI_type=trim(request.form("FI_type"))
FI_type=replace(FI_type,"'","''")
FI_type=replace(FI_type,"<","＜")
FI_type=replace(FI_type,">","＞")
FI_name=request.form("FI_name")
FI_name=trim(request.form("FI_name"))
FI_name=replace(FI_name,"'","''")
FI_name=replace(FI_name,"<","＜")
FI_name=replace(FI_name,">","＞")
FD_day_year=trim(request.form("year"))
FD_day_month=trim(request.form("month"))
FD_day_day=trim(request.form("day"))'
FD_date=FD_day_year&"-"&FD_day_month&"-"&FD_day_day
'更改数据
sql_update="update T_class_content set FS_content='"&FS_content&"',FI_level="&FI_level&",FI_type="&FI_type&",FI_name="&FI_name&",FD_date='"&FD_date&"'"
conn.execute(sql_update)
end if
%>
<%
'查询详细信息
sql_select="select * from T_class_content"
set rs=conn.execute(sql_select)
for i=1 to rs.recordcount
if trim(rs("fs_class_code"))=FS_class_code then
current_position=rs.absoluteposition
exit for
end if
rs.MoveNext
next
%>
<HTML>
<HEAD>
<TITLE> 班级奖惩情况 </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../images/style.css">
</HEAD>
<body bgcolor="#FFFFFF" topmargin="0">
<form name=inputinfo method=POST action="2.asp" >
<input type=hidden name=insert value=1>
<input type="hidden" name="FS_class_code" size=20 value=<%=rs("FS_class_code")%>>
<input type="hidden" name="FI_flow_id" size=20 value=<%=rs("FI_flow_id")%>>
<table width="46%" border="0" align="center">
<tr>
<td width="74" align="right">原由：</td>
<td colspan="2">
<textarea name="FS_content" rows="5" cols="30" ><%=rs("FS_content")%></textarea>
</td>
</tr>
<tr>
<td width="74" align="right">奖惩级别：</td>
<td colspan="2">
<%
sql="select * from t_refe where fi_code_big=14"
set Trs=conn.execute(sql)
response.write "<select name=FI_level>"
while not Trs.Eof
response.write "<option value="&Trs("fi_key_code")
if rs("FI_level")=Trs("fi_key_code")then
response.write " selected"
end if
response.write ">"&Trs("fs_name_mall")
Trs.MoveNext
wend
Trs.close
response.write "</select>"
%>
</td>
</tr>
<tr>
<td width="74" align="right">奖惩类别：</td>
<td colspan="2">
<%
sql="select * from t_refe where fi_code_big=13"
set Trs=conn.execute(sql)
response.write "<select name=FI_type>"
while not Trs.Eof
response.write "<option value="&Trs("fi_key_code")
if rs("FI_type")=Trs("fi_key_code")then
response.write " selected"
end if
response.write ">"&Trs("fs_name_mall")
Trs.MoveNext
wend
Trs.close
response.write "</select>"
%>
</td>
</tr>
<tr>
<td width="74" align="right">奖惩名称：</td>
<td colspan="2">
<%
sql="select * from t_refe where fi_code_big=27"
set Trs=conn.execute(sql)
response.write "<select name=FI_name>"
while not Trs.Eof
response.write "<option value="&Trs("fi_key_code")
if rs("FI_name")=Trs("fi_key_code")then
response.write " selected"
end if
response.write ">"&Trs("fs_name_mall")
Trs.MoveNext
wend
Trs.close
response.write "</select>"
%>
</td>
</tr>
<tr>
<td width="74" align="right">奖惩日期：</td>
<td colspan="2">
<input type="text" name="year" size=4 value=<%=year(rs("FD_date"))%>>
年
<input type="text" name="month" size=2 value=<%=month(rs("FD_date"))%>>
月
<input type="text" name="day" size=2 value=<%=day(rs("FD_date"))%>>
日 </td>
</tr>
<tr>
<td colspan="3" align="center">
<input type="submit" value="确定" name="s" class="bg1">
<input type="reset" value="取消" class="bg1">
</td>
</tr>
</table>
</form>
</body>
</HTML>
<%
rs.close
set conn=nothing
%>

错误类型：
ADODB.Field (0x80020009)

不知道各位大虾可否帮帮忙？？？

...全文