ltrk.asp

来自「大型人才程序网站程序」· ASP 代码 · 共 17 行

<!--#include file="../inc/dbconn1.inc"-->
<%uname=request("uname")  
    
Set rs = Server.CreateObject("ADODB.Recordset")
sql1="select * from users where name='"&uname&"'"
rs.open sql1,conn,1,1 
if rs.eof then
response.write"<SCRIPT waiyu=JavaScript>alert('系统异常错误！请通知网站管理员处理...');"
  response.write"javascript:window.close();</SCRIPT>"
rs.close
set rs=nothing
else
session("UID") = cstr(rs("id"))
response.redirect "../luntan/luntan.asp"
rs.close
set rs=nothing
end if%>