login.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<!--#include file="up.asp"-->
<%
dim action,comeurl,mark,graden
action=request.querystring("action")
select case action
case""
comeurl=Request.ServerVariables("HTTP_REFERER")
%>
<%=ttop%>
<table align="center" border="1" bordercolor=<%=c2%> cellpadding="0" cellspacing="0" style="border-collapse: collapse;" width="<%=tbw%>">
  <tr>
    <td class=td1 width="100%" height="28" bgcolor="<%=c1%>" background="<%=tbg%>">&nbsp;<img border="0" src="pic/gl.gif" width="19" height="15"> 用户登陆</td>
  </tr>
<form action=login.asp?action=login method="POST"><tr>
    <td width="100%">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
      <tr>
        <td width="35%" height="28"><b>&nbsp;请输入您的用户名：</b></td>
        <td width="65%">&nbsp;<input type=text name=lgname size='20'>&nbsp; <a href=reg.asp>没有注册？</a></td>
      </tr>
      <tr>
        <td height="28"><b>&nbsp;请输入您的密码：</b></td>
        <td>&nbsp;<input type=password name=lgpwd size='20'></td>
      </tr>
      <tr>
        <td height="40"><b>&nbsp;Cookie 选项：</b><br>
        &nbsp;请选择你的 Cookie 保存时间</td>
        <td>&nbsp;<select name=cook style="font-family: 宋体 (serif); font-size: 9pt">
        <option value=0>不保存</option><option value=1>保存一天</option>
        <option value=30>保存一月</option><option value=365>保存一年</option></select><input type="hidden" name="comeurl" size="20" value="<%=kbbs(comeurl)%>"></td>
      </tr>
      <tr>
        <td height="40"><b>&nbsp;登陆方式：</b><br>
        &nbsp;请选择你的登陆方式</td>
        <td><input type=radio value=1 checked name=lgtype>正常登陆&nbsp;<input type=radio value=2 name=lgtype>隐身登陆</td>
      </tr>
      <tr>
        <td height="30" colspan="2" align="center" bgcolor="<%=c2%>">　<input type='submit' value='   登    陆   ' name='B1' class=submit>&nbsp;
        <input type='reset' value='   重    置   ' name='B2' class=submit></td>
      </tr>
    </table>
    </td>
  </tr></form>
</table>
<%=tbottom%>

<%case"login"
dim adminid,cook,login
lgname=Replace(Request.Form("lgname"),"'","''")
lgpwd=Replace(Request.Form("lgpwd"),"'","''")
adminid=Replace(Request.Form("adminid"),"'","''")
comeurl=Replace(Request.Form("comeurl"),"'","''")
lgtype=checknum(Request.Form("lgtype"))
cook=checknum(Request.Form("cook"))
%><!--#include file="inc/md5.asp"-->
<%
login=true
Function ppwd(str)
  ppwd=true
  If str <> "" Then
	set rec = New RegExp
	rec.Global = True
	rec.IgnoreCase = True
    rec.Pattern="[^A-Za-z#0-9]"
    passpwd=rec.Test(str)
	end if
if passpwd then ppwd=false
end function

function pname(str)
pname=true
if Instr(str,"=")>0  or Instr(str,"%")>0 or Instr(str,chr(32))>0  or Instr(str,"?")>0 or Instr(str,"&")>0 or Instr(str,";")>0 or Instr(str,",")>0  or Instr(str,"'")>0 or Instr(str,".")>0 or Instr(str,chr(34))>0 or Instr(str,chr(9))>0  or Instr(str,"