📄 del_cd.asp
字号:
<%
'*****简体中文版 by 资源搜罗站 [http://www.99ss.net]*****
If session("password")<>"test" Then
Response.write "<center><font size=7 color=red>密码错误</font></center>"
Response.End
End If
datano=request("datano")
' 开主资料表取部份资料
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from DATA where datano='" & datano & "'"
rs.open sqlstr,conn,3,2
rs.delete
rs.Update
rs.close
conn.close
response.redirect "new_cd.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -