savelianxiren.asp

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

<!--#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"))
HtlianxirenID=	LXren
lianxirenName=	Trim(Request("lianxirenName"))
Tel=	Trim(Request("tel"))
Dizhi=	Trim(Request("dizhi"))
Zhiwu=	Trim(Request("Zhiwu"))
Qita=	Trim(Request("qita"))

'response.write bianma&"<BR>"&name&"<BR>"&beizhu&"<BR>"&id
set rst=server.CreateObject("adodb.recordset")  
sql="EXEC  HT_savelianxiren '"&HtdanweiID&"','"&HtlianxirenID&"','"&lianxirenName&"','"& Tel&"','"& Dizhi&"','"& Zhiwu&"','"&Qita &"'"
rst.Open sql,Conn
set rst=nothing
call endconn ()

response.write "<script language=javascript>"	'Javascript 开始
				response.write"window.history.go(-1);"	'警告
				response.write "</script>"	

%>