📄 default.asp

📁 所在类别：随书资源/T　工业技术/TP 自动化技术、计算机技术/TP31 计算机软件其他题名：作者：夏邦贵, 刘凡馨等编著出版者：机械工业出版社出版年： 2006 I

💻 ASP

字号:

<%@ LANGUAGE="VBScript"  %><% Response.Buffer=true %>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub ValidateLogForm
  if document.logform.username.value="" then
     msgbox "请输入用户名！"
  elseif document.logform.userpwd.value="" then
     msgbox "请输入口令！"
  else
    document.logform.submit
  end if    
End Sub
-->
</SCRIPT>
<HTML>
<HEAD>
<TITLE>在线图书销售管理系统</TITLE>
</HEAD>
<BODY>
<H3 align="center">欢迎使用在线图书销售管理系统</H3>
<HR>
<FORM action="default.asp" name="logform" METHOD="get">
<TABLE ALIGN="CENTER" CELLPADDING="2">
	<TR>
		<TD>用户名：</TD>
		<TD><INPUT TYPE="text" NAME="UserName" MAXLENGTH="10"
          value='<%=request("username")%>'></TD>
	</TR>
  <TR>
		<TD>口&nbsp;&nbsp;令：</TD>
		<TD><INPUT TYPE="password" NAME="UserPwd" MAXLENGTH="10"
            value='<%=request("userpwd")%>'></TD>
	</TR>
  <TR>	  
		<TD  COLSPAN="2" align="center"><INPUT TYPE="button" NAME="LogButton" 
			 VALUE="确定" onClick="ValidateLogForm">
    </TD>
	</TR>
</TABLE></FORM>
<% 
   if request("UserName")<>"" then
     '检查用户登录信息是否正确
     Set cn=Server.CreateObject("ADODB.Connection") 
     cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "database=图书销售;Data Source=(local)"
     cn.Open 
     UserName=request("UserName")
     UserPwd=request("UserPwd")
     Set rs=Server.CreateObject("ADODB.Recordset")
     querystr = "SELECT * FROM 注册用户 WHERE user_name ='" & UserName & "'"
     Set rs.ActiveConnection = cn
     rs.CursorType =1
     rs.LockType = 3
     rs.Open querystr      
     if rs.recordcount<=0 then
        response.write "<div align=center><font color=#cc0000>用户名错误！</font></div>"
     elseif rs.fields("user_pwd")<>userpwd then
        response.write "<div align=center><font color=#cc0000>口令错误！</font></div>"
     else
        session("username")=username  '保存当前用户用户名
        session("userid")=rs.fields("user_id")  '保存当前用户编号
        '自动载入在线图书销售管理系统页面
        Response.Redirect "booksaling.htm"        
    end if
    rs.close
    cn.close
    set rs=nothing
    set cn=nothing
end if
%>
<DIV align="center">新用户请选择<FONT color="red">
<A href="Registernew.asp">注册</A>
</FONT></DIV>
<HR>
<B></B><DIV align="center"><B>来自<%=request.servervariables("remote_addr")%>的第<FONT color="#CC0000">
<%= session("usercount") %></FONT>位访客</B><BR><B>
当前在线用户<FONT color="#CC0000">
<%= application("onlineusers") %></FONT>人</B></DIV><B></B>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -