sql="select * from ddoption"
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,3
If len(request.form("Content"))<1000 then
rscat.addnew
rscat("cat_id")=oid
rscat("dd_content")=trim(request.form("Content"))
rscat("py_kc")=kc_name
rscat("dd_time")=Now()
rscat.update
rscat.close
set rscat=nothing
else
errmsg = errmsg &+"<br>"+ "<li>内容不能超过1000字！</li><br>"
FoundErr=True
rscat.close
set rscat=nothing
end if
end if
if founderr then
call diserror()
response.End
end if
dim sum
sum=""
sum=oscore1+oscore2+oscore3+oscore4+oscore5+oscore6+oscore7+oscore8+oscore9+oscore10+oscore11
sql="select * from score where t_id="&oid&" and kc_name='"&kc_name&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof and rs.bof then
rs.addnew
rs("t_id")=oid
rs("kc_name")=kc_name
if Session("dd_flag")=1 then
rs("ydd_cs")=1
rs("yddscore1")=oscore1
rs("yddscore2")=oscore2
rs("yddscore3")=oscore3
rs("yddscore4")=oscore4
rs("yddscore5")=oscore5
rs("yddscore6")=oscore6
rs("yddscore7")=oscore7
rs("yddscore8")=oscore8
rs("yddscore9")=oscore9
rs("yddscore10")=oscore10
rs("yddscore11")=oscore11
rs("yddscore")=sum
elseif Session("dd_flag")=2 then
rs("sdd_cs")=1
rs("sddscore")=sum
rs("sddscore1")=oscore1
rs("sddscore2")=oscore2
rs("sddscore3")=oscore3
rs("sddscore4")=oscore4
rs("sddscore5")=oscore5
rs("sddscore6")=oscore6
rs("sddscore7")=oscore7
rs("sddscore8")=oscore8
rs("sddscore9")=oscore9
rs("sddscore10")=oscore10
rs("sddscore11")=oscore11
end if
else
dim a
if CommentedID="" then
session("CommentedID")=kc_name
else
session("CommentedID")=CommentedID & "|" & kc_name
end if
response.write"<script language=java script>{window.alert('测评已经提交!谢谢!');window.location.href='ddpy.asp';}</script>"
if founderr then
call diserror()
response.End
end if
end sub%></head>
