upsavedanwei.asp

来自「contract management system」· ASP 代码 · 共 38 行

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->

<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<%
HtdanweiID =	Trim(Request("HTdanweiID"))
HtdanweiName=	Trim(Request("HtdanweiName"))
Htdanweilianxiren=	Trim(Request("HTdanweilianxiren"))
HtdanweiDiZhi=	Trim(Request("HTdanweiDiZhi"))
HtdanweiClassID=	Trim(Request("HTdanweiClassID"))
Htdanweishouji=	Trim(Request("HTdanweishouji"))
Htdanweichuanzhen=	Trim(Request("HTdanweichuanzhen"))
Htdanweiyoubian=	Trim(Request("HTdanweiyoubian"))
Htdanweidianhua=	Trim(Request("HTdanweidianhua"))
Htdanweiyinhang=	Trim(Request("HTdanweiyinhang"))
Htdanweizhanghao=	Trim(Request("HTdanweizhanghao"))
Htdanweinashuihao=	Trim(Request("HTdanweinashuihao"))
Htdanweiweb=	Trim(Request("HTdanweiweb"))
Htdanweimail=	Trim(Request("HTdanweimail"))
Htdanweifaren=	Trim(Request("HTdanweifaren"))
Htdanweibeizhu=	Trim(Request("HTdanweibeizhu"))

set rst=server.CreateObject("adodb.recordset")  
sql="EXEC HT_upSavedanwei '"&HTdanweiID&"','"&HTdanweiName&"','"&HTdanweilianxiren&"','"&HTdanweiDiZhi&"','"&HTdanweiClassID&"','"&HTdanweishouji&"','"&HTdanweichuanzhen&"','"&HTdanweiyoubian&"','"&HTdanweidianhua&"','"&HTdanweiyinhang&"','"&HTdanweizhanghao&"','"&HTdanweinashuihao&"','"&HTdanweiweb&"','"&HTdanweimail&"','"&HTdanweifaren&"','"&HTdanweibeizhu&"'"
rst.Open sql,Conn
set rst=nothing
call endconn ()
response.Write("<script>opener.location.reload()</script>")    '刷新父窗口 
response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('添加完毕！');"	'警告

				response.write"window.history.go(-1);"	'跳转到页面

				response.write "</script>"	
%>