<!--#include file="connect.asp"-->
<%
	on error resume next
	dim StrGetFormName,StrGetFormvalue,StrsqlInsert,InsertTable,RedirectUrl,StrInsertName,StrInsertValue,StrInsert
	InsertTable=Request.QueryString("InsertTable") '要修改的表名
	RedirectUrl=Request.QueryString("RedirectUrl") '要返回到的頁面路徑
	ModifyID=Request.QueryString("ModifyID")	'要修改的記錄的ID值
	ModifyIDName=Request.QueryString("ModifyIDName")'要修改的記錄的ID名稱
	if ModifyID<>"" and ModifyIDName<>"" then
		if InsertTable<>"" then
			if CheckIt<>"" then
				strsqlcheck="select * from "&InsertTable&" where "&CheckIt&"='"&request(CheckIt)&"'" 
				Set objRscheck = Server.CreateObject("adodb.recordset")
		    		objRscheck.Open strsqlcheck,objConn,1,1
		    		'response.write strsqlcheck
		    		'response.end
		    		if not objRscheck.eof then
		    			if objRscheck.fields(ModifyIDName)<>ModifyID then
			    			response.write "<script language='javascript'>alert('此項目已經存在！');</script>"
			    			response.write "<p align='center'>請<a href='javascript:history.back();'>返回</a></p>"
			    			response.end
		    			end if
		    		end if
		    		objRscheck.close
		    		set objRscheck=nothing
			end if
			StrsqlInsert="update "&InsertTable&" set "
			for i=1 to Request.Form.Count
				StrGetFormName=Request.Form.Key(i)
				StrGetFormvalue=Request.Form(i)
				StrInsert=StrInsert&StrGetFormName&"='"&StrGetFormvalue&"',"
			next
				StrInsert=left(StrInsert,len(StrInsert)-1)
			StrsqlInsert=StrsqlInsert&StrInsert&" where "&ModifyIDName&"="&ModifyID
			'response.write StrsqlInsert
			'response.end
			objConn.execute StrsqlInsert
			
			if RedirectUrl<>"" and RedirectUrl<>"close" then
				Response.Redirect RedirectUrl
			elseif RedirectUrl="close" then
				response.write "<script language='javascript'>window.opener.location.reload();window.close();</script>"
				'Response.Write "<p align=center>數據插入成功，請<a href='#' onclick='window.opener.location.reload();window.close()'>返回</a></p>"
				response.end
			else
				Response.Write "<p align=center>數據插入成功，請<a href='#' onclick='history.go(-1)'>返回</a></p>"
				Response.End
			end if
		else
			Response.Write "<p align=center>請傳入數據庫名稱！方式：QueryString</p>"
			Response.End
		end if
	else
		Response.Write "<p align=center>請傳入要修改記錄的參數！方式：QueryString</p>"
		Response.End
	end if
	if err then
		Response.Write "<p align=center>數據修改失敗，請重試或者檢查你的submit按鈕的名稱是否為空！</p>"
		Response.End
	end if
	
%>