// -->
</script>
<%
name=Session("Name")
if Session("Name")="" then
Response.Write "对不起,您没有登录无法找到您的资料!!"
Response.end
else
set Conn=Server.CreateObject("ADODB.Connection")
PS="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_
& Server.MapPath("user.mdb")
Conn.open PS
MySQL="select * from userimf where ID='"& name &"'"
Set rst=Server.CreateObject("ADODB.Recordset")
rst.open MySQL,Conn,2,2