updategonghuoshang.asp

来自「现代化的企业越来越重视科学技术」· ASP 代码 · 共 41 行

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">

<%
kehubianhao=Trim(Request.Form("kehubianhao"))
kehuname=Trim(Request.Form("kehuname")) 
kehudizhi=Request.Form("kehudizhi") 
lianxiren=Request.Form("lianxiren") 
youbian=Request.Form("youbian") 
chuanzhen=Request.Form("chuanzhen") 
dianhua=Request.Form("dianhua") 
kehuweb=Request.Form("kehuweb") 
kehumail=Request.Form("kehumail") 
kehuselect=Request.Form("select1") 
kehubeizhu=Request.Form("kehubeizhu") 

 


   set rst=server.CreateObject("adodb.recordset")
   sql="EXEC jxc_updatekehuziliao '"& kehubianhao & "','" & kehuname &"','" & kehudizhi &"','" & lianxiren &"','" &youbian &"','" & chuanzhen &"','" &dianhua &"','"& kehuweb &"','"& kehumail&"','"& kehuselect&"','"& kehubeizhu &"'"                                     
                               
                rst.Open sql,Conn 
                response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('修改　完毕');"	'警告
				response.write"location.href='kehuziliao.asp';"	'跳转到页面
				response.write "</script>"	
                 call endconn()
                


    




%>