upaddfukuan.asp

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

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<%
Htid=	Trim(Request("HTid"))
Sfdate=	Trim(Request("SFdate"))
Sfhaoma=	Trim(Request("SFhaoma"))
Sfyingshoujine=	Trim(Request("SFyingshoujine"))
Sfyingshoudate=	Trim(Request("SFyingshoudate"))
Sfshishoujine=	Trim(Request("SFshishoujine"))
Sfshishoudate=	Trim(Request("SFshishoudate"))
Sfjine=	Trim(Request("SFjine"))
Sfbeizhu=	Trim(Request("SFbeizhu"))



set rst=server.CreateObject("adodb.recordset")  
sql="EXEC HT_Savesf '"&htid&"','"&SFDATE&"','"&Sfhaoma&"','"&Sfyingshoujine&"','"&Sfyingshoudate&"','"&Sfshishoujine&"','"&Sfshishoudate&"','"&Sfjine&"','"&Sfbeizhu&"'" 
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>"
%>