login.asp

skybird写的ASP的WAP网站源程序

<!--#include file="../myinc/waphead.inc"-->
<%
login_name=LCase(request("login_name"))
login_pwd=LCase(request("login_pwd"))
login_name=replace(login_name,"'","''")
login_pwd=replace(login_pwd,"'","''")
if login_name<>"" then
session("longin_user")=login_name'记录正在登陆的用户

dim conn
dim dbpath
dim strsql
%>
<!--#include file="../myinc/dataconnect.inc"-->
<%
set rs=server.createobject("adodb.recordset")
strsql="SELECT person_pwd FROM skybird where person_name=" & "'" & login_name & "'" 
rs.open strsql,con,1,3
'############################
if rs.bof and rs.eof then
login_error=uni("用户名错误!该用户不存在！")
elseif login_pwd<>rs("person_pwd") then
login_error=uni("密码错误!请重新登陆！")
else
    session("online_name")=login_name
    session("online_pwd")=login_pwd
             if  session("huiyuanname")<>"" then
             session("online_name")=session("online_name") 
             session("online_pwd")=session("online_pwd")
             end if
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
'需要修改地址，变为绝对地址。                                                     '&&&&&&&&&
Response.Redirect  "http://61.240.131.134/skybird/index.asp"                      '&&&&&&&&&
'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
end if
'#############################
elseif login_name="" then
login_error=uni("请输入用户名和密码。")
end if
%>
<%=login_error%><br/>
<%=uni("登陆论坛")%><br/>
<%=uni("昵称:")%><br/>
<input type="text" name="login_name" value="<%=session("longin_user")%>" /><br/>
<%=uni("输入密码:")%><br/>
<input type="text" name="login_pwd" value="" /><br/>
<do type="Options" name="521" label="<%=uni("登陆")%>">
<go href="login.asp" method="post" accept-charset="gb2312">
<postfield name="login_name" value="$(login_name)" />
<postfield name="login_pwd" value="$(login_pwd)" />
</go>
</do><br/>
<img src="../images/hotup.wbmp" alt=""/><a title="<%=uni("确定")%>" href="../index.asp"><%=uni("返回首页")%></a><br/>
<!--#include file="../myinc/wapfoot.inc"-->