check.asp

来自「功能特点：1、在wap1.0的基础上添加了铃声栏目； 」· ASP 代码 · 共 26 行

<%@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 admin where adm='"&d_adm&"' and pws='"&encrypt(d_pws)&"'"
	   rs.open sql,conn,1,1
	   if not rs.eof then
	    session("admin")=rs("Adm")
	    response.write"<script>window.open('manage.asp','_parent')</script>"
	   else
            response.write"<script>alert('账号和密码不符，请重新输入！');window.open('login.asp','_parent')</script>"
	   end if
	   rs.close
	   set rs=nothing
	   conn.close
	   set conn=nothing
	end if	
 
 %>