user_login.asp

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

<!--#include file="config.asp"-->
<!--#include file="pub.asp"-->
<!--#include file="MD5.asp"-->
<%
comeurl=request("url")
if comeurl="" then comeurl="index.asp"
lg=Trim(Replace(Request.form("lg"),"'",""))
if lg<>"" then 
dim userName,userpwd,isvip
userName=Trim(Replace(Request.form("userName"),"'",""))
userPwd=MD5(Trim(Replace(Request.form("userPwd"),"'","")))
ChkUser
else
%>
<!--#include file="header.asp"-->
<DIV align=center>
<CENTER>　
<DIV align=center>
<form method="post">
<input type="hidden" name="lg" value="True">
<TABLE class=TABLE_OUT borderColor=#9cacd0 height=200 cellSpacing=0 
cellPadding=0 width=746 align=center bgColor=#f5f7fb>
  <TBODY>
  <TR>
    <TD vAlign=center align=center class=sd>
用户名称： 
        <input style="border:1pt dotted #cccccc" type="text" name="userName" size="10" maxlength="20">
        <br>
        <br>
        用户密码： 
        <input style="border:1pt dotted #cccccc"  type="password" name="userPwd" size="10"><br><br>
            　</TD></TR>
			 <tr> 
      <td align="center" valign="top"> 
        <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px;"  type="submit" class=sd1 value="确定">
        <input style="border:1pt dotted #cccccc;background-color:#ffffff;width=50px"  type="reset" class=sd1 value="重写">
      </td>
			</TBODY></TABLE></FORM></TD></TR></TBODY></TABLE>      
<CENTER><BR></CENTER></DIV>       
<%end if
Bottom

Function ChkUser
set user=conn.execute("SELECT * FROM gb where name='"&userName&"' and psw='"&userPwd&"'")
if not user.eof then
Response.Cookies(ck&"2")("userName")=userName
Response.Cookies(ck&"2")("userPwd")=userPwd
Response.Redirect comeurl
response.end
Else
   response.write "<script language='javascript'>"
   response.write "alert('非法登陆：用户名或密码错误！');"
   response.write "history.go(-1);"
   response.write "</script>"
   Response.End
End IF
End Function
%>