insertdatabase.asp

教学平台,教学学生登陆,课程发布,信息公告

<!-- #include file="../inc/conn.asp" -->
<!--#include file = "../CheckLogin.asp" -->
<!--#include file = "../inc/zhuru.asp" -->
<%
	Dim strSujectID ,strTeacherID ,strTeachingSujectID ,RS
	strSujectID = Session("SujectID")
	strTeacherID = Session("TeacherID")
	strTeachingSujectID = Session("TeachingSujectID")
	If strSujectID <> "" Then
		Session("SujectID") = strSujectID
	Else
		Response.Write("参数错误！")
		Response.End
	End If
	
	If strTeacherID <> "" Then
		Session("TeacherID") = strTeacherID
	End If
	
		
	If strTeachingSujectID <> "" Then
		Session("TeachingSujectID") = strTeachingSujectID
	End If
	
	strUserName = Session("UserName")
	strUserType = Session("UserType")
	Session("UserName") = strUserName
	Session("UserType") = strUserType
	Dim strFileName ,strFilePath
	strFileName = Request.QueryString("FileName")
	strFilePath = Request.QueryString("FilePath")
	If strFileName = "" And strFilePath = "" Then
		Response.Write("参数错误!")
		Response.End
	End If
%>
<%
	Server.ScriptTimeout = 900

	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.Open "StudyMaterial", conn, 1, 2
	RS.AddNew
	RS("Name") = strFileName
	RS("AddTime") = now()
	RS("AddMan") = Session("UserName")
	RS("Path") = strFilePath
	RS("TeachingSujectID") = strTeachingSujectID
	RS.Update
	RS.Close

	Response.Redirect("../Content.asp")
	Conn.Close
%>