login.asp

不是我做的一个留言板

<%
indexstyle="1"%>
<!--#include file="conn.asp" -->
<!--#include file="../function/md5.asp" -->

<!--
'''''''''''''''''''''''''''''''''''''''''''''''''
'
'请保留此信息: 计8工作窒制作 http://j8pc.126.com/  
'
'海军第一职业技术学校 J8工作室
' 作者：陈峰
' 网名：浪の小石 ,失忆学徒
' QQ:1972717  
'email:[e-mail]
'
'''''''''''''''''''''''''''''''''''''''''''''''''
-->
<%
g_id=replace(trim(request.Form("g_id")),"'","")

username=replace(trim(request.Form("text1")),"'","")

passwd=replace(trim(request.Form("text2")),"'","")

passwd=md5(passwd)

set rs=conn.execute("select * from [user] where username='" & username & "' and g_id='" & g_id & "' and passwd='"&passwd&"'")

if not rs.eof then


set rs1=server.CreateObject("adodb.recordset")
	sql1="select * from [user] where username='"&username&"' and g_id='" & g_id & "'"
	rs1.open sql1,conn,2,3
	rs1("logno")=rs1("logno")+1
	rs1("logtime")=now()
        rs1("log_ok")="ok"
	rs1("ip")=request.ServerVariables("REMOTE_HOST")
        user_group=rs1("usergroup")
        g_id=rs1("g_id")
        rs1.update
	rs1.close
	set rs1=nothing

if  user_group=1 then
response.Write "<script>alert('你帐号还没有击活!!!!');location='index.asp'</script>"
response.end
end if
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")

if BrowserCap.Cookie=True then

cookie_msg="你的浏览器支持 Cookie!"

response.cookies(class_cookie)(user_cookie_name)=username

response.cookies(class_cookie)(user_cookie_group)=user_group

response.cookies(class_cookie)(user_cookie_gid)=g_id

login_user=response.cookies(class_cookie)(user_cookie_name)

session_cookie_gid=response.cookies(class_cookie)(user_cookie_gid)

else

session(user_cookie_gid)=g_id

session(user_cookie_name)=username

session(user_cookie_group)=user_group

login_user=session(user_cookie_name)

session_cookie_gid=session(user_cookie_gid)

cookie_msg="对不起，你所使用的浏览器不支持 Cookie!"

end if

log_url="class_index.asp"

log_msg="欢迎"&login_user&"又回来，现在正在验证你的身份，请等候<br>谢谢" &"<br>"&cookie_msg
Response.Redirect("class_index.asp")
else
	rs.close
	set rs=nothing
        Response.Redirect("index.asp")
        
end if	


%>