📄 user_login.asp
字号:
<%
if NOT isempty(request("LoginSubmit")) then
dim UserName,UserPassword,checkcode
UserName=replace(trim(request("UserName")),"'","")
UserPassword=md5(replace(trim(request("UserPassword")),"'",""))
checkcode=replace(trim(request("checkcode")),"'","")
'if UserName="" or UserPassword="" or checkcode="" then
' call MsgBox("对不起，登录失败，请检查您的登录名和密码","None","None")
'end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [user] where UserName='"&UserName&"' and UserPassword='"&UserPassword&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if UserPassword=rs("UserPassword") then
response.Cookies(cookieName)("UserName")=UserName
response.Cookies(cookieName)("UserPassword")=UserPassword
response.Cookies(cookieName)("vip")=rs("vip")
rs("LastLogin")=now()
rs("Userlogins")=rs("Userlogins")+1
rs.Update
rs.Close
set rs=nothing
response.redirect "muser.asp"
else
call MsgBox("对不起，您的用户名或密码有误！","Back","None")
end if
else
call MsgBox("对不起，您的用户名或密码有误！","Back","None")
end if
end if
%><%
dim ii,rsLeft
set rsLeft=server.CreateObject("adodb.recordset")%>
<script language="javascript">
function Menu(term){
if(term.style.display=="none"){
term.style.display="";
}else{
term.style.display="none";}
}
</script>
<script language="JavaScript">
<!--
function checkuu() {
if (document.form.UserName.value=="")
{
alert("友情提示!\n\n请完整输入会员帐号!")
document.form.UserName.focus()
return false
}
else if (document.form.UserPassword.value=="")
{
alert("友情提示!\n\n请完整输入会员密码!")
document.form.UserPassword.focus()
return false
}
else if (document.form.checkcode.value=="")
{
alert("友情提示!\n\n请完整输入验证编码!")
document.form.checkcode.focus()
return false
}
}
// -->
</script>
<body topmargin="0" leftmargin="0">
<table width="212" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><img src="images/mycar_up_1.gif" width="212" height="47"></td>
</tr>
<tr>
<td align="left" valign="top"><img src="images/mycar_up_2.gif" width="212" height="13"></td>
</tr>
<tr>
<td align="center" valign="top" background="images/mycar_bg.gif" ><table width="216" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="560" align="left" valign="top" style="border-left: 1px dotted #65A8CF; border-right:1px dotted #65A8CF; border-top: 1px dotted #65A8CF; border-bottom: 1px dotted #65A8CF">
<form action="" method="post" name="loginfo" id="loginfo">
<table border="0" cellpadding="2" class="t1">
<tr>
<td width="170" height="22" align="right" >
<span class="style2">用户名：</span></td>
<td width="235" height="22" >
<input name="UserName" type="text" id="UserName" size="16">
</td>
</tr>
<tr>
<td height="22" align="right" ><span class="style2">密 码：</span></td>
<td height="22">
<input name="UserPassword" TYPE="Password" id="UserPassword" size="16"></td>
</tr>
<tr>
<td height="22" align="right" ><span class="style2">验证码：</span></td>
<td height="22">
<input name="checkcode" type="text" id="checkcode" size="10">
<img src="edulcni/checkcode.asp"></td>
</tr>
<tr align="center">
<td height="11" colspan="2" >
<input type="reset" name="Submit" value="重置">
<input name="LoginSubmit" ONCLICK="return checkuu();" type="submit" id="LoginSubmit" value="登录"></td>
</tr>
<tr align="center">
<td height="11" colspan="2" >
<a href="tiao.asp">免费注册</a> | <a href="forget.asp">忘记密码</a></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/lmdh.gif" width="212" height="23"></td>
</tr>
<tr>
<td height="4"></td>
</tr>
<%
rsLeft.open "select category,categoryid from category where first=1",conn,1,1
do while not rsLeft.eof
%>
<tr>
<td height="23" background="images/lmenu_2.gif" class="dao" onClick=Menu(<%="m"&rsLeft("categoryid")%>)><%=rsLeft("category")%></td>
</tr>
<tr>
<td height="23" id=<%="m"&rsLeft("categoryid")%> style="display:none">
<table width="100%" border="0" cellspacing="2" cellpadding="2">
<%
dim rsSubLeft
set rsSubLeft=server.CreateObject("adodb.recordset")
rsSubLeft.open "select sorts,sortsid from sorts where categoryid="&rsLeft("categoryid")&" and first=1 order by sortsorder",conn,1,1
do while not rsSubLeft.eof
%>
<tr>
<td class="daosub"><a href="sub.asp?aid=<%=rsLeft("categoryid")%>&nid=<%=rsSubLeft("sortsid")%>"><%=rsSubLeft("sorts")%></a></td>
</tr>
<%
rsSubLeft.movenext
loop
rsSubLeft.close
set rsSubLeft=nothing
%>
</table></td>
</tr>
<%
rsLeft.movenext
loop
rsLeft.close
%>
<tr>
<td><img src="images/cxtsph.gif" width="212" height="32"></td>
</tr>
<tr>
<td height="100" align="center" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="1">
<%
rsLeft.open "select top 10 id,name,solded from product order by solded desc",conn,1,1
if rsLeft.eof and rsLeft.bof then
response.write " 对不起， 暂时还没有商品！"
'response.End()
else
ii=0
do while not rsLeft.eof
%>
<tr>
<td align="left"><a href="vpro.asp?id=<%=rsLeft("id")%>" target="_blank"><img src="images/w.gif" width="18" height="18" border="0"><%=strvalue(trim(rsLeft("name")),20)%></a>(<%=rsLeft("solded")%>)</td>
</tr>
<%ii=ii+1
if ii>=10 then exit do
rsLeft.movenext
loop
rsLeft.close
set rsLeft=nothing
end if
%>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -