khzl_zltj_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")
        n=Request("birthday1")
		y=Request("birthday2")	
		r=Request("birthday3")	
		birthday=cDate(n&"-"&y&"-"&r)

		               sql = "Insert Into guest (name,state,birthday,nian,yue,ri,relation,jieshao,address,xiaoshou,program,telephone1,telephone2,mobile,post,email,http,search,demo) Values( "
		               sql = sql & SqlStr(request("name")) & ", "
		               sql = sql & SqlStr(request("xingzhi")) & ", "
		               sql = sql & SqlStr(birthday) & ", "
                          sql = sql & SqlStr(request("t1")) & ", "
						 sql = sql & SqlStr(request("t2")) & ", "
						sql = sql & SqlStr(request("t3")) & ", "
					   sql = sql & SqlStr(request("relation")) & ", "
		               sql = sql & SqlStr(request("worker")) & ", "
		               sql = sql & SqlStr(request("dizhi")) & ", "
		               sql = sql & SqlStr(request("xiaoshou")) & ", "
		               sql = sql & SqlStr(request("xiangmu")) & ", "
		               sql = sql & SqlStr(request("tele")) & ", "
		               sql = sql & SqlStr(request("fax")) & ", "
		               sql = sql & SqlStr(request("shouji")) & ", "
		               sql = sql & SqlStr(request("youbian")) & ", "
		               sql = sql & SqlStr(request("email")) & ", "
		               
					   sql = sql & SqlStr(request("http")) & ", "
		               sql = sql & SqlStr(request("search")) & ", "
		               sql = sql & SqlStr(request("jieshao")) & ")"
					   '发送sql指令，加入信息
	                	conn.Execute sql

response.write(birthday)
'=关闭数据库============================
conn.close'关闭数据库