1111.asp

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

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>

<%
Htid=	Trim(Request("htid"))
Htname=	Trim(Request("HTname"))
HtclassID=	Trim(Request("HTclassID"))
HtywyID=	Trim(Request("HTywyID"))
Htmoney=	Trim(Request("HTmoney"))
Htqidingtime=	Trim(Request("HTqidingtime"))
Htstartime=	Trim(Request("HTstartime"))
Htovertime=	Trim(Request("HTovertime"))
Htneirong=	Trim(Request("HTneirong"))
Htmiaoshu=	Trim(Request("HTmiaoshu"))
HTdanweiID1=	Trim(Request("HTdanweiID1"))
Htjiafangren=	Trim(Request("HTjiafangren"))
HTdanweiID2=	Trim(Request("HTdanweiID2"))
Htyifangren=	Trim(Request("HTyifangren"))
Htfile=	Trim(Request("HTfile"))
HT=	Trim(Request("HT"))
Htflagid=	Trim(Request("HTflagid"))


set rst=server.CreateObject("adodb.recordset")  
sql="EXEC HT_upht '"&htid&"','"&HTname&"','"&HTclassID&"','"&HTywyID&"','"&HTmoney&"','"&HTqidingtime&"','"&HTstartime&"','"&HTovertime&"','"&HTneirong&"','"&HTmiaoshu&"','"&HTdanweiID1&"','"&HTjiafangren&"','"&HTdanweiID2&"','"&HTyifangren&"','"&HTfile&"','"&HT&"','"&HTflagid&"'"
rst.Open sql,Conn
set rst=nothing
call endconn ()





response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('添加完毕！');"	'警告
				response.write"window.history.go(-1);"	'跳转到页面

				response.write "</script>"




 %>