×ÜÊÇÌáʾÑéÖ¤Âë´íÎó£¡Ã÷Ã÷ÊǶԵÄ

±ðÎÊÎÒÊÇË­

Ïà¹Ø´úÂ룺
<tr>
<td align="right">ÑéÖ¤Âë:</td>
<td><input name="code" size="4"><%call getcode()%></td>
</tr>

Ìá½»ÑéÖ¤²¿·Ö£º
<%
if instr(request("login_name"),"'")<>0 then
response.write "<script language=JavaScript>" & chr(13) & "alert('·Ç·¨Êý¾ÝÌá½»£¡');" & "history.back()" & "</script>"
Response.End
else
call CodeIsTrue("member.asp")
password1=md5(request("password1"))
if request("user")="1" then
exec="select id,login_name,password1 from register where login_name='"&request("login_name")&"'"
end if
if request("user")="2" then
exec="select id,login_name,password1,vip from regvip where login_name='"&request("login_name")&"'"
end if
rs.open exec,conn,1,1
if rs.eof and rs.bof then
response.write "<script language=JavaScript>" & chr(13) & "alert('Óû§Ãû´íÎó£¡');" & "history.back()" & "</script>"
rs.close
set rs=nothing
set conn=nothing
response.end
else
if password1<>rs("password1") then
response.write "<script language=JavaScript>" & chr(13) & "alert('ÃÜÂë´íÎó£¡');" & "history.back()" & "</script>"
rs.close
set rs=nothing
set conn=nothing
response.end
else
if rs("login_name")<>"" then session("login_name")=rs("login_name")
session("vip")=false
session("id")=rs("id")
session("login_name")=rs("login_name")
session("user")=request("user")
rs.close
set rs=nothing
set conn=nothing
response.redirect "login.asp"
end if
end if
rs.close
set rs=nothing
set conn=nothing
end if
%>


<%
'ÒÔÏÂΪ³£Óùý³Ì
public sub GetCode()
response.write "<img src=""getcode.asp"" alt= ""ÑéÖ¤Âë,¿´²»Çå³þ?Çëµã»÷Ë¢ÐÂÑéÖ¤Âë"" style=""cursor : pointer;height : 20px;"" onclick=""this.src='getcode.asp'""/> "
end sub
public sub CodeIsTrue(b)
if CStr(Session("GetCode"))<>cstr(Trim(Request("Code"))) then
randomize
Session("GetCode")=rnd()
if b="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('ÑéÖ¤Âë´íÎó£¬ÇëË¢ÐÂÒ³ÃæºóÖØÐÂÊäÈ룡');" & "history.back()" & "</script>"
else
response.write "<script language=JavaScript>" & chr(13) & "alert('ÑéÖ¤Âë´íÎó£¬ÇëÈ·ÈÏÖØÐÂÊäÈ룡');"&"window.location.href = '"&b&"'"&" </script>" 'ÑéÖ¤Âë¶ÔµÄ Ò²ÔËÐе½Õâ±ß
end if
Response.End
end if
end sub
%>