?? midp1_newms.asp
字號:
<%
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 fromu From sanchat_mss where tou='" &userName& "' and notread='1'"
rs.open sql,Conn,3,3
if rs.eof<>true then
response.write rs("fromu")
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 + -