edit_corpinfosave.asp

一个企业客户信息收集管理系统.软件下载 源码下载 站长教程 建站资讯 素材下载┆ ┆站长论坛 免费服务 虚拟主机 域名注册 免费代码┆ ┆网站评测 人才交流 酷站赏析 业界新闻 程序发布

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="cs_conn.inc.asp"-->

 <%
if not session("userClass")>=1 then
	response.redirect "login.asp"
end if
%>

 <%
if session("flag")>=1 then
	response.redirect "editerr.asp"
end if
%>
<%
dim sql
       Set cmdTemp = Server.CreateObject("ADODB.Command")
       Set InsertCursor = Server.CreateObject("ADODB.Recordset")
       cmdTemp.CommandText = "SELECT top 1 * FROM corp_info where id="&Request("id")
       cmdTemp.CommandType = 1
       Set cmdTemp.ActiveConnection = conn
       InsertCursor.Open cmdTemp, , 1, 3
       InsertCursor("corpname") =Request("corpname")
       InsertCursor("corp_province") =Request("corp_province")
	   InsertCursor("corp_city") =Request("corp_city")
	   InsertCursor("corp_calling") =Request("corp_calling")
		 InsertCursor("corp_address") =Request("corp_address")
		 InsertCursor("corp_telcom") =Request("corp_telcom")
	     InsertCursor("corp_linkman") =Request("corp_linkman")
		 InsertCursor("corp_fax") =Request("corp_fax")
		 InsertCursor("linkman_mobile") =Request("linkman_mobile")
		 InsertCursor("post_code") =Request("post_code")
		 InsertCursor("website_add") =Request("website_add")
		 InsertCursor("email_add") =Request("email_add")
		 InsertCursor("corp_quality") =Request("corp_quality")
		 InsertCursor("corp_trade") =Request("corp_trade")
		 InsertCursor("corp_trade") =Request("corp_trade")
		  InsertCursor("corp_introduce") =Request("corp_introduce")
		 InsertCursor("corp_remark") =Request("corp_remark")
	   
       InsertCursor.Update
'	   response.write InsertCursor("id")
'	   response.End
'	   InsertCursor.movelast
%>
<script language=Javascript>
<!--
alert("修改成功！");
window.location="view_corpinfo.asp?id=<%=Request("id")%>"
-->
</script>
<%
       InsertCursor.close
	   conn.close
       set InsertCursor=nothing
       set conn=nothing
%>