admin_login.asp

个人网站系统 毕业论文 大家可以借鉴下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
 <!--#include file="conn.asp"-->

<% d_adm=trim(request.form("adm"))
	d_adm=replace(d_adm,"'","")
   d_pws=trim(request.form("pws"))
 	d_pws=replace(d_pws,"'","")	
	if d_adm="" or d_pws="" then
		response.Write("用户名和密码不能为空！")
	else 
	 set rs=server.CreateObject("adodb.recordset")
	   sql="select * from dy_admin where adm='"&d_adm&"' and pws='"&d_pws&"'"
	   rs.open sql,conn,1,1
	  	if not rs.eof then
	    session("oursky")="oursky"
	    response.Redirect ("ad_login.asp")
		else 
		response.Redirect("admin.asp")
		end if
		rs.close
		set rs=nothing
		conn.close
		set conn=nothing
	end if	
 
 %>