fav_do.asp

MisCMS源码

<!--#include file="../mis8/config.Asp"-->
<!--#include file="md5.Asp"-->
<% act=request("act")
call ChkPOst
if ChkPOst=true then

if act="login" then
user=goback(request.form("adminname"),"请输入用户名！")
Pwd=md5(goback(request.form("adminpassword"),"未输入密码！"))
code=goback(request("verifycode"),"未输入验证码！")
if session("getcode")="9999" then
        session("getcode")=""
elseif session("getcode")="" then
call alertback("请不要重复提交！","1")
elseif cstr(session("getcode"))<>cstr(trim(code)) then
call alertback("验证码不正确，请重新输入！","1")
       session("getcode")=""
end if
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from favuserxx where yhmz='" & user & "'and yhmm='" & Pwd & "'",conn,1,3
   IF  rs.RecordCount =1 then
       Session("login")=rs("yhid")
          click=rs("click")
          uip=Request.ServerVariables("REMOTE_ADDR")
          click=click+1
          rs("click")=click
          rs("uip")=uip
          rs.update 
call alerturl("登录成功！","loginok.asp")
   else
call alertback("错误的用户名或密码，请重新输入！","1")
   End if  
 rs.close
 set rs=nothing
 conn.close
end if



if act="reg" then
user=request.form("username")
pwd=request.form("password")
pwd2=request.form("password2")
safem=request.form("safem")
email=request.form("email")
qq=request.form("qq")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from favuserxx where yhmz='" & user & "'",conn,1,3
						  			
if rs.recordcount<1 then
   rs.addnew()
   rs("yhmz")=user
   rs("yhmm")=md5(pwd)
   rs("safem")=safem
   rs("email")=email
   rs("qq")=qq
   rs.update
   rs.close
   set rs=nothing
   conn.close
call alerturl("注册成功！请登录！","index.asp")
   else
call alertback("用户名已经存在！请换用其它用户名！","1") 
   
end if 
end if


else
call alerturl("请用www.mis8.cn访问本站！","../index.asp")
end if
 %>