login.asp

一个php原码 相关的还有1个将在下次传上来 这个是设备参数说明在线管理系统

<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>
	   <TABLE height=5 cellSpacing=1 cellPadding=0 width=100% border=0>
          <TBODY>
            <TR> 
              <TD bgColor=<%=bgclr4%>></TD>
            </TR>
          </TBODY>
        </TABLE>
         <% if request.cookies("timesshop")("username")="" then 
	  		 Dim url %>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>
	  <TR> 
	<td width="100％" align="center"><font color="#ff6600">用户登录</font></td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
          <form name=loginfo method=post action=chkuser.asp>
            <tr bgcolor=#ffffff> 
              <td style='padding-left:5px'>用户名：<input name=username type=text size="15" maxlength="15"> 
              </td>
              </tr>
            <tr bgcolor=#ffffff> 
            <td style='padding-left:5px' >密　码：<input name=UserPassword type=password size="15" maxlength="15"></td>
            </tr>
            <tr bgcolor=#ffffff> 
              <td style='padding-left:5px'>验证码：<input name=passcode type=text size=8 maxlength="4">
              <img src="code.asp"></td>
			  </tr>
            <tr bgcolor=#ffffff> <td colspan="2" align="center">
                <input type=submit name=Submit value="登录" onClick="return checkuu();">　<a href="reg.asp">注册</a> 
                <input name=comeurl type=hidden value=<% = url %>></td>
            </td></tr>
          </form>
        </table>
<%
else 
dim shop,username 
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.price1,orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(request.Cookies("timesshop")("username"))&"' ",conn,1,1
set shop=server.CreateObject("adodb.recordset")
shop.Open "select distinct(goods) from orders where username='"&request.Cookies("timesshop")("username")&"' and state=2 ",conn,1,1 %>
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center">
<TR> 
	<td width="100％" align="center"><font color="#ff6600">我的帐户</font></td>
</TR>
<tr><td background=images/bg_04.gif border=0></td></tr>
  <tr>
    <td>&nbsp;欢迎<font color=ff0000><% = Request.Cookies("timesshop")("username") %></font>光临&nbsp;您是<font color=red>普通</font>用户</td>
  </tr>
  <tr>
    <td align="center">希望您能找到所需的资料</td></tr>
	<tr>
	<td align="center">如果没有您所需的资料
	</td>
	<tr>
	<td align="center">请您<a href=mess.asp target="_blank"><font color="#0000FF"><u>留言</u></font></a>告诉我们</td>
  </tr>

  <tr><td align="center"><a href=profile.asp?action=profile>用户中心</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href=logout.asp>注销登录</a></td></tr>
</table>
<%
shop.Close
set shop=nothing
rs.close
set rs=nothing	
end if %></TD>
    </TR>
  </TBODY>
</TABLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
  function checkuu()
{
    if(checkspace(document.loginfo.username.value)) {
	document.loginfo.username.focus();
    alert("用户名不能为空！");
	return false;
  }
    if(checkspace(document.loginfo.UserPassword.value)) {
	document.loginfo.UserPassword.focus();
    alert("密码不能为空！");
	return false;
  }
    if(checkspace(document.loginfo.passcode.value)){
	document.loginfo.passcode.focus();
	alert("验证码不能为空");
	return false;
	}
	
  }

//-->
</script>