login.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="conn.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="md5.asp"-->
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
dim d_webname,d_pass1
d_webname=replace(trim(request("d_webname")),"'","")
d_pass1=replace(trim(request("d_pass1")),"'","")
d_pass1=xy20_md5(d_pass1,"short")

if d_webname="" then
response.write("<script>alert('用户名不能为空！');history.go(-1)</script>")
response.end
end if
if d_pass1="" then
response.write("<script>alert('用户密码不能为空！');history.go(-1)</script>")
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="select * from duser where d_webname='"&d_webname&"' and d_pass1='"&d_pass1&"'"
rs.open sql,conn,1,3
    if rs.eof then
        response.redirect"error.asp?error=2"
    else
        session("d_webname")=rs("d_webname")
        session("d_pass1")=rs("d_pass1")
        session("d_grade")=rs("d_grade")
        response.redirect( "index.asp")
    end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>