user_login.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->
<!--#include file=INC/txl_userfun.asp-->


<%
'on error resume next
dim const_txl_HomeUrl,errstr,txl_username,txl_password

dim GBL_CHK_TempStr,txlloginerrstr
GBL_CHK_TempStr=""
errstr=""
const_txl_HomeUrl=""
OpenDatabase
txl_SiteHead const_txlname&"-登录Wap影音"
call online
if Request.form("txl_username")<>"" then
	txl_username=Request.form("txl_username")
	txl_password=Request.form("txl_password")
	if not checkfrmusername(txl_username) then
		printerror "登录Wap影音出错","<li>"&GBL_CHK_TempStr&"</li>",779
	else
		if not txllogin(txl_username,txl_password) then
			Call printerror ("登录Wap影音出错",txlloginerrstr,779)
		else
			Call printsuc ("登录Wap影音成功,欢迎您的到来,5秒返回首页 <meta http-equiv=""refresh"" content=""5;URL=index.asp"">",txlloginerrstr,779)
		end if
	end if
else
	call userlogin
end if
CloseDatabase
web_end
sub userlogin
%>
  <table width="779" border="0" align="center" cellpadding="10" cellspacing="0">
    <tr>
      <td>
          <b>当前位置：<a href="<%=const_homepageurl%>">首页</a> &gt;&gt; <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a> &gt;&gt; <a href="user_login.asp">登录</a></b></td>
    </tr>
  </table>
<form action="user_login.asp" method=post onSubmit="if (this.txl_username.value==''||this.txl_password.value==''){alert('用户名和密码不能为空！');return false;};">
  <table width="779" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#CCCCCC" style="border-collapse:collapse;">
    <tr> 
      <td width="178" align="center" valign="top" bgcolor="#F1F1F1"><br> 
      <script language="JavaScript">
			today=new Date();
			function initarray(){
			this.length=initarray.arguments.length
			for(var i=0;i<this.length;i++)
			this[i+1]=initarray.arguments[i] }
			var d=new initarray(
			" 星期日 ",
			" 星期一 ",
			" 星期二 ",
			" 星期三 ",
			" 星期四 ",
			" 星期五 ",
			" 星期六 ");
			document.write(
			today.getYear(),"年",
			today.getMonth()+1,"月",
			today.getDate(),"日",
			d[today.getDay()+1]);
			</script> </td>
      <td valign="top" bgcolor="#FFFFFF"><br>
          <table width="300" border="0" align="center" cellpadding="8" cellspacing="0">
            <tr> 
              <td width="28%" class="tar">用户名：</td>
              <td width="72%"><input type=text name=txl_username></td>
            </tr>
            <tr> 
              <td class="tar">密　码：</td>
              <td><input type=password name=txl_password></td>
            </tr>
            <tr> 
              <td colspan="2" align="center"><input name="submit" type=submit value="登　录">　
                <input name="submit2" type=reset value="重　写"></td>
            </tr>
          </table>
          <br>
      </td></tr>
  </table>
  <br>
  <br>
</form>
<%
end sub
%>