load.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%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" class=input2 id="username" size="10" maxlength="20"></td>
                            </tr>
                            <tr> 
                              <td>密码：</td>
                              <td><input name="password" type="password" class=input2 id="password" size="10" maxlength="20"></td>
                            </tr>
   <tr> 
                              <td>验证码：</td>
                              <td><input name="getcode" type="text" id="getcode" class=input2 size="4" style="ime-mode:disabled">
            &nbsp;<img src="../inc/Code.asp"></td>
                            </tr>
                            <tr align="center"> 
                              <td colspan="2"> <input type="submit" class=input2 name="Submit" value="登陆"> 
                                <a href="reg.asp">新用户注册</a></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="center"><a href='User.asp'>进入二手管理中心</a></td> </tr>

                          <tr>
                            <td align="center"><a href="../user_logout.asp">我要退出大学校园网</a></td>
                          </tr>
                        </table>
<%end sub%>