savegonghuoshang.asp

来自「基础进销存BS系统 ASP+Sql 功能不断完善中」· ASP 代码 · 共 54 行

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

<%
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 rs=conn.execute("select * from [pro_kehuziliao] where kehubianhao='"&kehubianhao&"'")
  if not (rs.bof or rs.eof) then 
              
                response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('该客户编号已经存在！');"	'警告
				response.write"location.href='addgonghuoshang.asp';"	'跳转到页面
				response.write "</script>"	
				
                                rs.close
				set rs=nothing
                call endconn()
			
				                  
  else

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

    




%>