add.asp

与asp相关的技术 如数据库和网页设计 很有用的哦

<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<!--#INCLUDE FILE="../../../system/function.asp"-->
<%
	dim writer_id,reader_id,back_flag,subject_id,file_name,author,abstract,keywords,magazine
	back_flag=request("thename2")
	writer_id=session("user_id")
	writer_type=session("user_type")
	reader_id=request.form("to_user_1")

	subject_id=int(request("subject_id"))
	file_name=request.form("file_name")
	author=request("author")
	abstract=request.form("abstract")
	keywords=request("keywords")
	magazine=request("magazine")
	URL=request("URL")

	Dim SQL,sValues
	SQL = "Insert into reference(writer_id"
	sValues = "values('" & writer_id & "'"
	SQL = SQL & ",submit_date"
	sValues = sValues & "," & "'" & date & "'"
	SQL = SQL & ",writer_type"
	sValues = sValues & ",'"  & writer_type & "'"
	SQL = SQL & ",reader_id"
	sValues = sValues & "," & "'" & reader_id & "'"

	'下面开始是有关该文档的项目
	SQL = SQL & ",subject_id"
	sValues = sValues & "," & subject_id 
	SQL = SQL & ",file_name"
	sValues = sValues & ",'" & file_name & "'"
	if author<>"" then
		SQL = SQL & ",author"
		sValues = sValues & ",'" & author & "'"
	end if
	if abstract<>"" then
		SQL = SQL & ",abstract"
		sValues = sValues & ",'" & myreplace(abstract) & "'"
	end if
	if keywords<>"" then
		SQL = SQL & ",keywords"
		sValues = sValues & ",'" & keywords & "'"
	end if
	if magazine<>"" then
		SQL = SQL & ",magazine"
		sValues = sValues & ",'" & magazine & "'"
	end if
	if URL<>"" and URL<> "http://" then
		SQL = SQL & ",URL"
		sValues = sValues & ",'" & URL & "'"
	end if
		SQL = SQL & ",lesson_id"
		sValues = sValues & ",'" & session("lesson_id") & "'"
	SQL = SQL & ") " & sValues & ")"
	'执行动作
	db.Execute(SQL)

	if request.form("append")="Y" then
		sql="select id from reference where writer_id='" & session("user_id") & "'"
		sql=sql & " order by id desc"
		response.write sql
		set rs=db.execute(sql)
		temp_url="add_file.asp?id=" & rs("id")  
		db.close
		set db=nothing
		response.redirect temp_url
	else
		response.redirect "list.asp"
	end if
%>