shrk_qtzl_sc.asp

来自「asp+Access开发的客户资源管理系统,用户名:admin,密码:」· ASP 代码 · 共 39 行

ASP

39 行

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

  const adopenkeyset=1
  const adlockoptimistic=3
  
  id=request.querystring("id")
  id1=clng(id)
  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.delete

   '加入日志操作=====================================
	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 "shrk_qtzl.asp"
end if
set conn=nothing
%>

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

shrk_qtzl_sc.asp - 源码说明

本页面展示了「asp+Access开发的客户资源管理系统,用户名:admin,密码:」中的 shrk_qtzl_sc.asp 源码文件，采用 ASP 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与CRM系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?