requestion.asp

来自「网络教学管理系统」· ASP 代码 · 共 43 行

<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strTeachingSujectID , strTeacherID , strSujectID ,strID
	strTeachingSujectID = Request.QueryString("TeachingSujectID")
	strTeacherID = Request.QueryString("TeacherID")
	strSujectID = Request.QueryString("SujectID")
	strID = Request.QueryString("ID")
	If strTeachingSujectID = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	If strTeacherID = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	If strSujectID = "" Then 
		Response.Write("参数错误!")
		Response.End
	End If
	
	strUrl = "Index_Question.asp?ID=" & strID & "&TeachingSujectID="& strTeachingSujectID & "&SujectID="& strSujectID & "&TeacherID="& strTeacherID
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If
	
	Dim strAnswer ,strAnswerTime 
	strAnswer = Request.Form("Answer")
	strAnswerTime = Now()
	If strAnswer = "" Then
		Response.Write("请填写回复内容！")
		Response.End
	End If
	Dim rs ,strSql 
	Set rs = Server.CreateObject("ADODB.RecordSet")
	strSql = "UPDATE Question SET Answer = '"& strAnswer &"' ,AnswerTime = '"& strAnswerTime &"' WHERE ID =  " & strID
	rs.Open strSql,conn,3,1
	Response.Redirect(strUrl)
	
		
%>