load.asp

来自「本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 49 行

<%sub load1()%>
<form action="chkuser_login.asp" method="post" name="input" id="input" onsubmit=return(CheckInput())>
                          <table width="100%" border="0">
                      
                            <tr> 
                              <td>用户名：</td>
                              <td><input name="username" type="text" id="username" size="14" maxlength="20"></td>
                            </tr>
                            <tr> 
                              <td>密&nbsp; 码：</td>
                              <td><input name="password" type="password" id="password" size="14" maxlength="20"></td>
                            </tr>
   <tr> 
                              <td>验证码：</td>
                              <td><input name="getcode" type="text" id="getcode" size="4" style="ime-mode:disabled">
            &nbsp;<img src="inc/Code.asp"></td>
                            </tr>
                            <tr align="center"> 
                              <td colspan="2"> <input type="submit" class=input3 name="Submit" value="登 陆"> 
                              <input class=input3 onclick="window.location='reg.asp'" type=reset value="注 册" name=Submit2>
<input class=input3 onclick="window.location='GetPws.asp'" type=button value="忘 密" name=Submit3></td>
                            </tr>
                        
                          </table>
                        </form>
<%end sub%>
<%sub load2()%>

		 
 <table width="100%" border="0">  <%
		  dim strsql,rs
		  strsql="select * from [user_info] where user_id="&cint(session("user_id"))
		  set rs=conn.execute(strsql)
		  %>
                     
                          <tr> 
                            <td align="center">欢迎您：<font color="#FF0000"><%=rs("user_name")%></font></td>
                          </tr>  <tr> 
                            <td align="center"><script src="myMessage.asp"></script></td>
                          </tr>

                          <tr> 
                            <td align="center"><a href="user.asp">进入控制面板</a></td>
                          </tr>
                          <tr>
                            <td align="right"><a href="user_logout.asp">退出</a></td>
                          </tr>
                        </table>
<%end sub%>