📄 qtzl_zlsc_1.asp

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

💻 ASP

字号:

<%
	' 将数据中的单引号改成两个单引号，并且在前后加上单引号
	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 talk 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指令，加入信息
	if err.number>0 then
	   response.write"数据删除时发生错误<br>"
	   response.write"错误代码："&err.number
	   response.write"<br>代码说明："&err.description
	else
	  response.redirect("qtzl_zlsc.asp")
	end if
	set conn=nothing
%>


<html><script language="JavaScript">                                                                  </script></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -