📄 shrk_ywyzl_sc.asp
字号:
<%
' 将数据中的单引号改成两个单引号，并且在前后加上单引号
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 worker 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
<html><script language="JavaScript"> </script></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -