| 货物跟踪查询 |
<%
work=Request("work")
U_name=Trim(Request("U_name"))
U_pass=Trim(Request("U_pass"))
IF work="login" Then
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where U_no='"&U_name&"'"
rs.open sql,conn,3,3
IF rs.eof or rs.bof Then
Response.Write ""
Else
IF RS("U_pass")=U_pass Then
RS.update
Session("U_name")=RS("U_name")
Session("id")=RS("id")
Else
Response.Write ""
End IF
End IF
rs.close
set rs=nothing
Elseif work="logout" then
Session("U_name")=""
Session("id")=""
End If
%>
<%IF Session("U_name")="" Then%>
<%ELSE%>
<%end if%> |
 |
