login.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../INC/txlconst.asp-->
<!--#include file=../INC/txlfun.asp-->
<!--#include file=INC/txl_userfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->

<%
'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&"-登录同学录"
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 "登录同学录出错","<li>"&GBL_CHK_TempStr&"</li>",779
	else
		if not txllogin(txl_username,txl_password) then
			Call printerror ("登录同学录出错",txlloginerrstr,779)
		else
			Call printsuc ("登录同学录成功,欢迎您的到来,5秒返回首页 <meta http-equiv=""refresh"" content=""5;URL=../index.asp"">",txlloginerrstr,779)
		end if
	end if
else
	call userlogin
end if
CloseDatabase
SiteBottom
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="login.asp">登录</a></b></td>
    </tr>
  </table>
<form action="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
%>