delsf.asp

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

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->


<%
id=Request("id")
if id <> "" then


   set rst=server.CreateObject("adodb.recordset")
   sql="EXEC  HT_Delsf'"& id & "'" 
       
                     
   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>"


else 
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>"
end if


%>