update2.asp

来自「与asp相关的技术 如数据库和网页设计 很有用的哦」· ASP 代码 · 共 123 行

<%
if session("user_type")<>"S" then
	response.redirect "../../../index.asp"
end if
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
	dim sql,sValues
	dim user_id
	user_id = session("user_id")
	
	db.Begintrans
	'先删除信息
	sql="delete from student where user_id= '" & user_id & "'"
	DB.Execute(sql)

	'再把信息添加进去
	sql = "Insert into student(user_name"
	sValues = "values('" & Request("user_name") & "'"
	If Request("child_name") <> "" Then
		sql = sql & ",child_name"
		sValues = sValues & "," & "'" & Request("child_name") & "'"
	End If
	If Request("password") <> "" Then
		sql = sql & ",password"
		sValues = sValues & "," & "'" & Request("password") & "'"
	End If
	If Request("sex") <> "" Then
		sql = sql & ",sex"
		sValues = sValues & "," & "'" & Request("sex") & "'"
	End If
	If Request("forget_timu") <> "" Then
		sql = sql & ",forget_timu"
		sValues = sValues & "," & "'" & Request("forget_timu") & "'"
	End If
	If Request("forget_answer") <> "" Then
		sql = sql & ",forget_answer"
		sValues = sValues & "," & "'" & Request("forget_answer") & "'"
	End If
	If Request("department") <> "" Then
		sql = sql & ",department"
		sValues = sValues & "," & "'" & Request("department") & "'"
	End If
	If Request("special") <> "" Then
		sql = sql & ",special"
		sValues = sValues & "," & "'" & Request("special") & "'"
	End If
	If Request("tel") <> "" Then
		sql = sql & ",tel"
		sValues = sValues & "," & "'" & Request("tel") & "'"
	End If
	If Request("BP") <> "" Then
		sql = sql & ",BP"
		sValues = sValues & "," & "'" & Request("BP") & "'"
	End If
	If Request("mobileTel") <> "" Then
		sql = sql & ",mobileTel"
		sValues = sValues & "," & "'" & Request("mobileTel") & "'"
	End If
	If Request("address") <> "" Then
		sql = sql & ",address"
		sValues = sValues & "," & "'" & Request("address") & "'"
	End If
	If Request("email") <> "" Then
		sql = sql & ",email"
		sValues = sValues & "," & "'" & Request("email") & "'"
	End If
	If Request("intro") <> "" Then
		sql = sql & ",intro"
		sValues = sValues & "," & "'" & Request("intro") & "'"
	End If
	If Request("web") <> "" Then
		sql = sql & ",web"
		sValues = sValues & "," & "'" & Request("web") & "'"
	End If
	If Request("upload_file_name") <> "" Then
		sql = sql & ",upload_file_name"
		sValues = sValues & "," & "'" & Request("upload_file_name") & "'"
	End If
	'允许
		sql = sql & ",permit"
		sValues = sValues & "," & request("permit") 
	'添加注册ID
		sql = sql & ",user_id"
		sValues = sValues & "," & "'" & session("user_id") & "'"

	sql = sql & ") " & sValues & ")"
	DB.Execute(sql)
	db.CommitTrans
	
	'处理照片
	if request.form("append")="Y" then
		'不管原来有没有，先将原来的照片删除
		upload_file_name=trim(server.mappath("../../../../uploadfile/users/" & request("upload_file_name")))
		
		set myfileobject=server.createobject("scripting.filesystemobject")
		if myfileobject.FileExists(upload_file_name) then
			myfileobject.deletefile upload_file_name
		END IF
		set myfileobject=nothing
		'再继续添加
		response.redirect "add_file.asp"
	Elseif request.form("append")="N" then
		'不管原来有没有，先将原来的照片删除
		upload_file_name=trim(server.mappath("../../../../uploadfile/users/" & request("upload_file_name")))
		
		set myfileobject=server.createobject("scripting.filesystemobject")
		if myfileobject.FileExists(upload_file_name) then
			myfileobject.deletefile upload_file_name
		END IF
		set myfileobject=nothing
		'再将数据库里清空
		sql="update student set upload_file_name=NUll where user_id='" & session("user_id") & "'"
		db.execute(sql)

		response.redirect "index.asp"
	else
		response.redirect "index.asp"

	end if
	
%>