inserttodb.asp

来自「客户管理crm xitong ,希望能给你带来帮助」· ASP 代码 · 共 74 行

<!--#include file="connect.asp"-->
<!--#include file="function.asp"-->
<%
	'on error resume next
	dim StrGetFormName,StrGetFormvalue,StrsqlInsert,InsertTable,RedirectUrl,StrInsertName,StrInsertValue
	InsertTable=Request.QueryString("InsertTable")
	RedirectUrl=Request.QueryString("RedirectUrl")
	CheckIt=Request.QueryString("CheckIt")
	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
	    			response.write "<script language='javascript'>alert('此项目已经存在！');history.back();</script>"
	    			'response.write "<p align='center'>请<a href='javascript:history.back();'>返回</a></p>"
	    			response.end
	    		end if
	    		objRscheck.close
	    		set objRscheck=nothing
		end if
	   	StrsqlInsert="insert into "&InsertTable&"("
		for i=1 to Request.Form.Count
			StrGetFormName=Request.Form.Key(i)
			StrGetFormvalue=getstring(Request.Form(i))
			if i=1 then
				StrInsertName=StrGetFormName
				StrInsertValue=StrGetFormvalue
			else
				StrInsertName=StrInsertName&","&StrGetFormName
				StrInsertValue=StrInsertValue&"','"&StrGetFormvalue
			end if			
		next
		StrsqlInsert=StrsqlInsert&StrInsertName&") values('"&StrInsertValue&"')"
		'response.write StrsqlInsert
		'response.end
		objConn.execute StrsqlInsert
		strsql="select @@identity as id"
		Set objRs = Server.CreateObject("adodb.recordset")
	    		objRs.Open strsql,objConn,1,1
	    		if not objrs.eof then
	    			IID=objrs.fields("id")
	    		end if
		if RedirectUrl<>"" and RedirectUrl<>"close" then
			if instr(RedirectUrl,"?")>0 then
				Response.Redirect RedirectUrl & "&IID=" & IID
			else
				Response.Redirect RedirectUrl & "?IID=" & IID
			end if
		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
		elseif RedirectUrl="script" then
			response.write "<script language='javascript'>" & request("script") & "</script>"
			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
	
	if err then
		Response.Write "<p align=center>数据插入失败，请重试或者检查你的submit按钮的名称是否为空！</p>"
		Response.End
	end if
	
%>