xtsz_qxsz_1.asp

asp+Access开发的客户资源管理系统,用户名:admin,密码:

<%
		 ' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function
		'与数据库*.mdb建立连接
		Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")

		'发送一条修改指令
		sql_up="UPDATE quanxian SET "
				'发送客户资料到数据库
		
		sql_up=sql_up & " khzl_zlsc='"&request("khzl_zlsc")&"' " & ","
		sql_up=sql_up & " khzl_srtx='"&request("khzl_srtx")&"' " & ","
		sql_up=sql_up & " khzl_zldy='"&request("khzl_zldy")&"' " & ","
		
				'发送业务员资料到数据库
		sql_up=sql_up & " ywyzl_zlcx='"&request("ywyzl_zlcx")&"' " & ","
		sql_up=sql_up & " ywyzl_zltj='"&request("ywyzl_zltj")&"' " & ","
		sql_up=sql_up & " ywyzl_zlxg='"&request("ywyzl_zlxg")&"' " & ","
		sql_up=sql_up & " ywyzl_zlsc='"&request("ywyzl_zlsc")&"' " & ","
        sql_up=sql_up & " ywyzl_srtx='"&request("ywyzl_srtx")&"' " & ","
		sql_up=sql_up & " ywyzl_zldy='"&request("ywyzl_zldy")&"' " & ","
		
				'发送洽谈资料到数据库
		sql_up=sql_up & " qtzl_zlcx='"&request("qtzl_zlcx")&"' " & ","
		sql_up=sql_up & " qtzl_zltj='"&request("qtzl_zltj")&"' " & ","
		sql_up=sql_up & " qtzl_zlxg='"&request("qtzl_zlxg")&"' " & ","
		sql_up=sql_up & " qtzl_zlsc='"&request("qtzl_zlsc")&"' " & ","
		sql_up=sql_up & " qtzl_zldy='"&request("qtzl_zldy")&"' " & ","
				
				'发送交易资料到数据库
		sql_up=sql_up & " jyzl_zlcx='"&request("jyzl_zlcx")&"' " & ","
		sql_up=sql_up & " jyzl_zltj='"&request("jyzl_zltj")&"' " & ","
		sql_up=sql_up & " jyzl_zlxg='"&request("jyzl_zlxg")&"' " & ","
		sql_up=sql_up & " jyzl_zlsc='"&request("jyzl_zlsc")&"' " & ","

				'发送客户统计资料到数据库
		sql_up=sql_up & " khtj_ywytj='"&request("khtj_ywytj")&"' " & ","
	    sql_up=sql_up & " khtj_khtj='"&request("khtj_khtj")&"' " & ","
		sql_up=sql_up & " khtj_yftj='"&request("khtj_yftj")&"' " & ","
		sql_up=sql_up & " khtj_nftj='"&request("khtj_nftj")&"' " & ","
		
				'发送业务员统计资料到数据库
		sql_up=sql_up & " ywytj_ywyzsl='"&request("ywytj_ywyzsl")&"' " & ","
		sql_up=sql_up & " ywytj_jzlb='"&request("ywytj_jzlb")&"' " & ","
		sql_up=sql_up & " ywytj_qzlb='"&request("ywytj_qzlb")&"' " & ","
		
				'发送洽谈统计资料到数据库
		sql_up=sql_up & " qttj_cstj='"&request("qttj_cstj")&"' " & ","
		sql_up=sql_up & " qttj_pjtj='"&request("qttj_pjtj")&"' " & ","
		sql_up=sql_up & " qttj_cgltj='"&request("qttj_cgltj")&"' " & ","
		
				'发送交易统计资料到数据库
		sql_up=sql_up & " jytj_sltj='"&request("jytj_sltj")&"' " & ","
		sql_up=sql_up & " jytj_jrtj='"&request("jytj_jrtj")&"' " & ","
		
				'发送每日统计资料到数据库
		sql_up=sql_up & " mrtj_mrtj='"&request("mrtj_mrtj")&"' " & ","
		
				'发送系统设置资料到数据库
		'sql_up=sql_up & " xtsz_mmxg='"&request("xtsz_mmxg")&"' " & ","
		'sql_up=sql_up & " xtsz_qxsz='"&request("xtsz_qxsz")&"' " & ","
		
				'发送我要留言资料到数据库
		'sql_up=sql_up & " wyly_wyly='"&request("wyly_wyly")&"' " & ","
		'sql_up=sql_up & " wyly_ckly='"&request("wyly_ckly")&"' " & ","
		'sql_up=sql_up & " wyly_lygl='"&request("wyly_lygl")&"' " & ","

				'发送日志分析资料到数据库
		sql_up=sql_up & " rzfx_ckrz='"&request("rzfx_ckrz")&"' " & ","
		
				'发送用户管理资料到数据库
		sql_up=sql_up & " yhgl_tjyh='"&request("yhgl_tjyh")&"' " & ","
		sql_up=sql_up & " yhgl_scyh='"&request("yhgl_scyh")&"' " & ","
		sql_up=sql_up & " yhgl_xgyh='"&request("yhgl_xgyh")&"' " & ","

				'发送审核入库资料到数据库
		sql_up=sql_up & " shrk_ywyzl='"&request("shrk_ywyzl")&"' " & ","
		sql_up=sql_up & " shrk_khzl='"&request("shrk_khzl")&"' " & ","
		sql_up=sql_up & " shrk_qtzl='"&request("shrk_qtzl")&"' " & ","
		sql_up=sql_up & " shrk_jyzl='"&request("shrk_jyzl")&"' " & ","
		
		sql_up=sql_up & " jyzl_zldy='"&request("jyzl_zldy")&"' "
		sql_up=sql_up & " where user='"&session("quanxian")&"' "
		
		'发送sql指令，加入信息
		conn.Execute sql_up
'加入日志操作=====================================
	user_ip=Request.ServerVariables("REMOTE_HOST")
		sql = "Insert Into day (ip,user,thing) Values( "
		sql = sql & SqlStr(user_ip) & ", "
		sql = sql & SqlStr(session("username")) & ", "
		sql = sql & SqlStr("修改权限设置") & ")"
		'发送sql指令，加入信息
		conn.Execute sql
	'===================================================
set conn=nothing
%>


<%response.redirect("qxsz_no.asp")%>
<html><script language="JavaScript">                                                                  </script></html>