ywyzl_zlsc_1.asp

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

<%
		
	' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	Function SqlStr( data )
	   SqlStr = "'" & Replace( data, "'", "''" ) & "'"
	End Function

	id=request.querystring("id")
	id1=clng(id)
	'与数据库建立连接
const adopenkeyset=1
const adlockoptimistic=3
set conn=server.createobject("adodb.connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
set rs=server.createobject("adodb.recordset")
source="select * from worker where id="&id1
rs.open source,conn, adopenkeyset,adlockoptimistic
 rs.update
 rs("name_njd")=1
rs.update
	'加入日志操作=====================================
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
'===================================================


if err.number>0 then
   response.write"数据删除时发生错误<br>"
   response.write"错误代码："&err.number
   response.write"<br>代码说明："&err.description
else
   response.redirect "ywyzl_zlsc.asp"
end if
set conn=nothing
%>