savehtclass.asp

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

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

<%
bianma=Trim(Request.Form("bianma"))
name=Trim(Request.Form("name"))
beizhu=Trim(Request.Form("beizhu"))

set rst=server.CreateObject("adodb.recordset")  
sql="EXEC HT_SaveHTywy '"&bianma&"','"&name&"','"&beizhu&"'"
rst.Open sql,Conn
set rst=nothing
call endconn ()

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