inc_logo.asp

来自「在线发布系统 本系统有两大功能模块：用户模块和后台管理模块。用户模块模块主要实」· ASP 代码 · 共 47 行

<!--#include file="conn.asp"-->
<%
user_name=request.Form("user_name")
user_pwd=request.Form("user_pwd")
if user_name="" then
%>
<script language="javascript">
msgstr("您没有输入用户名!","logo.asp");
</script>
<% 
elseif user_pwd="" then
%>
<script language="javascript">
msgstr("您没有输入密码!","logo.asp");
</script>
<%
else
sql1="select user_name from user_data where user_name='"&user_name&"'"
set rs1=conn_str(sql1)
if rs1.eof and rs1.bof then
close_str(rs1)
%>
<script language="javascript">
msgstr("用户名不存在!","logo.asp");
</script>
<%
response.end()
end if
sql="select user_pwd from user_data where user_name='"&user_name&"'"
set rs=conn_str(sql)
if rs("user_pwd")=user_pwd then
response.Cookies("user_name")=user_name
close_str(rs)
%>
<script language="javascript">
msgstr("欢迎您回来!","index.asp");
</script>
<%
else
%>
<script language="javascript">
msgstr("您的密码不正确!","logo.asp");
</script>
<%
end if
end if
%>