session.asp

新闻发布系统

<%
'=========================================================
'产品目录：风讯产品N系列
'软件名称：风讯站点管理系统
'当前版本：2004.I.0225
'最新更新：2004.2.10
'=========================================================
'Copyright (C) 2002-2004 cooin.com. All rights reserved.
'网站: http://www.cooin.com  Foosun.net
'程序制作：轻风云(QQ:655071)
'Email:[e-mail],[e-mail]
'论坛支持：风讯在线论坛(http://bbs.cooin.com   http://bbs.foosun.net)
'=========================================================

Name=session("Name")
PassWord=session("PassWord")
Userid=session("Userid")

set rsSession=server.CreateObject ("ADODB.RecordSet")
rsSession.Source="select * from admin where UserName='"&Name&"' and userpass='"&PassWord&"'"
rsSession.Open rsSession.Source,conn,1,1

if not rsSession.EOF then
   rsSession.Close
   set rsSession=nothing
else
   rsSession.Close
   set rsSession=nothing
   Response.redirect"admin_index.asp"
end if
function CloseDatabase
  Conn.close
  Set conn = Nothing
End Function
%>