<% hw_name=trim(request("hw_Name"))'接收上一页传递的hw_Name参数的值 并赋值给hw_Name变量 并去掉两边的空格 trim(变量)去掉变量值两边的空格
hw_id=trim(request("hw_ID"))
select case request("action") '判断上一页传递的action参数的值这里是一个选择语句
case "savereinfo" '输入action的值为savereinfo则执行
call savereinfo() '调用函数savereinfo()
end select
sub SaveReInfo() '定于sub函数名称为SaveReInfo()
sql="select * from talk where (ID is null)" 'SQL语句
rs.open sql,conn,1,3 '执行sql语句1,3属性更新数据库表
rs.addnew '在表的记录末尾增加一行
rs("hw_ID")=trim(request("hw_ID")) ' hw_ID字段的值为上一页传递过来的hw_ID参数的值并去掉两边的空格
rs("UserName")=trim(request.form("UserName")) ' 同上
rs("Email")=trim(request.form("Email")) ' 同上
rs("Grade")=trim(request.form("Grade")) ' 同上
rs("content")=request.form("content") ' 同上
rs.update ’更新数据
rs.close ' 关闭rs数据库操作指令
sql="select count(ID) as reNum,AVG(Grade) as avgGrade from talk where hw_ID="&request("hw_ID")&"" ‘count(id)计算id在talk中的记录总数并值赋给临时字段reNum 计算Grade字段的平均数 并把值赋给临时字段avgGrade
rs.open sql,conn,1,1 '执行sql语句 这里是1,1制度属性
reNum=rs("reNum") '把临时字段reNum的值赋给变量reNum
avgGrade=rs("avgGrade") '同上
rs.close 关闭数据库造作指令
conn.execute("update hw set avgGrade="&avgGrade&",EssayNum="&reNum&" where hw_ID="&request("hw_ID")&" ")'执行更新语句 更新表hw 中的字段avgGrade和字段EssayNum 他们的值分别是 aveGrade变量和 reNum变量
response.write "您已经成功发表评论" '显示语句
response.redirect "views.asp?hw_id="&hw_id&"" '跳转语句 页面跳转到views.asp并传递一个参数hw_id 他的值为变量hw_id的值
end sub '结束 sub （自定义函数结束）
%>
这段是判断文本框是否有内容
<% hw_name=trim(request("hw_Name"))'接收上一页传递的hw_Name参数的值 并赋值给hw_Name变量 并去掉两边的空格 trim(变量)去掉变量值两边的空格
hw_id=trim(request("hw_ID"))
select case request("action") '判断上一页传递的action参数的值这里是一个选择语句
case "savereinfo" '输入action的值为savereinfo则执行
call savereinfo() '调用函数savereinfo()
end select
sub SaveReInfo() '定于sub函数名称为SaveReInfo()
sql="select * from talk where (ID is null)" 'SQL语句
rs.open sql,conn,1,3 '执行sql语句1,3属性更新数据库表
rs.addnew '在表的记录末尾增加一行
rs("hw_ID")=trim(request("hw_ID")) ' hw_ID字段的值为上一页传递过来的hw_ID参数的值并去掉两边的空格
rs("UserName")=trim(request.form("UserName")) ' 同上
rs("Email")=trim(request.form("Email")) ' 同上
rs("Grade")=trim(request.form("Grade")) ' 同上
rs("content")=request.form("content") ' 同上
rs.update ’更新数据
rs.close ' 关闭rs数据库操作指令
sql="select count(ID) as reNum,AVG(Grade) as avgGrade from talk where hw_ID="&request("hw_ID")&"" ‘count(id)计算id在talk中的记录总数并值赋给临时字段reNum 计算Grade字段的平均数 并把值赋给临时字段avgGrade
rs.open sql,conn,1,1 '执行sql语句 这里是1,1制度属性
reNum=rs("reNum") '把临时字段reNum的值赋给变量reNum
avgGrade=rs("avgGrade") '同上
rs.close 关闭数据库造作指令
conn.execute("update hw set avgGrade="&avgGrade&",EssayNum="&reNum&" where hw_ID="&request("hw_ID")&" ")'执行更新语句 更新表hw 中的字段avgGrade和字段EssayNum 他们的值分别是 aveGrade变量和 reNum变量
response.write "您已经成功发表评论" '显示语句
response.redirect "views.asp?hw_id="&hw_id&"" '跳转语句 页面跳转到views.asp并传递一个参数hw_id 他的值为变量hw_id的值
end sub '结束 sub （自定义函数结束）
%>