<!--#include file="../TangRen conn/TangRen Conn.asp"-->
<%
Dim TangRenUserName,TangRen_sql,TangRen_rs
TangRenUserName=Replace(Trim(Request("TangRenUserName")),"'","")
If TangRenUserName<>""then
'response.Write(TangRenUserName)
Set TangRen_rs=Server.CreateObject("adodb.recordset")
    TangRen_sql="select * from [TangRen_Admin_Table] where TangRen_Admin_Name='"&TangRenUserName&"'"
    TangRen_rs.Open TangRen_sql,conn,1,3
    'Response.Write(TangRen_sql)
    If Not(TangRen_rs.bof And TangRen_rs.eof) Then
        TangRen_rs.update
        Session(TangRenUserName)=TangRen_rs("TangRen_Admin_Name")
        Response.Redirect ("../TangRen admin/TangRen Admin Login.asp")
        else
        Session(TangEenUserName)<>TangRen_rs("TangRen_Admin_Name")
        Response.Redirect("../TangRen Users/TangRen Users Login.asp")
    End If
End If

TangRen_rs.close
conn.close
set TangRen_rs=nothing
set conn=nothing
%>


各位谢谢了