adddeal.asp

来自「ASP和ACCESS编写的工程管理系统.rar」· ASP 代码 · 共 34 行

<%
value=request.QueryString("value")
xm_name=request.QueryString("xm_name")
cz=request.QueryString("cz")
sr=request.QueryString("sr")
zf=request.QueryString("zf")
lr=request.QueryString("lr")
xtime=request.QueryString("time")
dim strConn
	dim conn
	set conn = Server.CreateObject("ADODB.Connection")
	conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Server.mappath("db.mdb")+";Persist Security Info=False"
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from "&value&" where 项目名称='"&xm_name&"'",conn,1,3
	if rs.eof then
	rs.addnew
  	rs("项目名称")=xm_name
 	rs("产值")=cz
  	rs("实际收入")=sr
 	rs("实际支付")=zf
  	rs("利润")=lr
	rs("项目时间")=xtime
 	rs.update
  	rs.close
  	conn.close
 	set rs=nothing
 	set conn=nothing
	jump_url="<script>alert('添加成功');window.location.href='分项目.asp?value="+value+"';</script>"
	response.write(jump_url)
	else
	url="<script>alert('项目名称不能相同');window.location.href='add.asp?value="+value+"';</script>"
	response.write(url)
	end if
	%>