?? midp1_delnewms.asp
字號:
<%
userName=Request("user")
passWord=Request("pass")
id=Request("uid")
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="Delete From sanchat_mss where tou='" &userName& "' and fromu='" &id& "' and notread='1'"
conn.execute(sql)
response.write "1"
else
rs.close
response.write "0"
end if
conn.close
set rs=nothing
set conn=nothing
session.abandon
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -