saveupyuangong.asp

现代化的企业越来越重视科学技术

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<%@transaction=required%>
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../other/Check_Sql.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
 

<%
'response.buffer=true
bianhao=Trim(Request.Form("bianhao"))
name=Trim(Request.Form("name"))
bumen=Trim(Request.Form("bumen"))
sex=Trim(Request.Form("sex"))
shengri=Trim(Request.Form("shengri"))
minzu=Trim(Request.Form("minzu"))
shenfenzheng=Trim(Request.Form("shenfenzheng"))
hunyin=Trim(Request.Form("hunyin"))
youbian=Trim(Request.Form("youbian"))
dizhi=Trim(Request.Form("dizhi"))
mail=Trim(Request.Form("mail"))
xuexiao=Trim(Request.Form("xuexiao"))
xueli=Trim(Request.Form("xueli"))
jianli=Trim(Request.Form("jianli"))
beizhu=Trim(Request.Form("beizhu"))
radiobutton=Trim(Request.Form("radiobutton"))
loginname=Trim(Request.Form("loginname"))
pass="8888"
tel=Trim(Request.Form("tel"))
shouji=Trim(Request.Form("shouji"))
fenji=Trim(Request.Form("fenji"))
'保存记录
set rst=server.CreateObject("adodb.recordset")  
sql="EXEC jxc_upyuangong '"&bianhao&"','"&name&"','"&bumen&"','"&sex&"','"&shengri&"','"&minzu &"','"&shenfenzheng &"','"&hunyin &"','"&youbian &"','"&dizhi &"','"&mail&"','"&xuexiao&"','"&xueli&"','"&jianli&"','"&beizhu &"','"&radiobutton&"','"&loginname&"','"&pass &"','"&tel &"','"&shouji &"','"&fenji&"'"  
rst.Open sql,Conn
set rst=nothing
call endconn ()
%>

<% sub ontrANsactioncommit()
response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('完   毕！');"	'警告
				response.write"location.href='yuangong.asp';"	'跳转到页面
				response.write "</script>"	
end sub
%>
<%sub ontransactionabort()

response.write "对不起，添加记录出错！请联系提供商"
end sub
%>