?? midp1_delall.asp
字號:
<%
friend=Request("fri")
userName=Request("user")
passWord=Request("pass")
Set conn=Server.CreateObject("ADODB.connection")
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mssdata.mdb")
conn.Open
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select user From sanchat_users where user='" &userName& "' and pass='" &passWord& "'"
rs.open sql,Conn,3,3
if rs.eof<>true then
rs.close
sql="select tou From sanchat_mss where fromu='" &friend& "' and tou='" &userName& "'"
rs.open sql,Conn,3,3
if rs.eof<>true then
if strcomp(rs("tou"),userName)=0 then
rs.close
sql="Delete From sanchat_mss where fromu='" &friend& "' and tou='" &userName& "'"
conn.execute(sql)
response.write "1"
else
response.write "0"
end if
else
response.write "0"
end if
else
response.write "0"
end if
'rs.close
conn.close
set rs=nothing
set conn=nothing
session.abandon
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -