login.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="up.asp"-->
<!--#include file="inc/md5.asp"-->
<%
dim action,comeurl,mark,graden,alltopicnum
action=request.querystring("action")

select case action
	case"login"
		call Login
	case "exit"
		Response.Cookies(prefix)("lgname")=""
		Response.Cookies(prefix)("lgpwd")=""
		Response.Cookies(prefix)("lgtype")=""
		Response.Cookies(prefix)("lgcook")=""
		if isnull(lguserid) or lguserid="" then lguserid=0
		conn.execute("delete*from [online] where userid="&lguserid&"")
		session(prefix&"lgname")=""
		session(prefix&"lguserid")=""
		session(prefix&"usertype")=""
		session(prefix&"adminbd")=""
		session(prefix&"usertype2")=""
		tl=1
		mes="<li>已经成功的退出论坛</li><li><a href=login.asp>重新登陆论坛</a></li><li><a href=index.asp>进入论坛首页</a></li>"
		call sendinfo(tl,mes)
	case else
		comeurl=Request.ServerVariables("HTTP_REFERER")
		call ShowLogin
end select
call down%>



<%Sub ShowLogin()%>
	<%=ttop%>
	<table align="center" class="BBS_BoardList" cellpadding="0" cellspacing="1">
		<tr class="BBS_BoardTitle">
			<td colspan="2">&nbsp;<img border="0" src="pic/gl.gif" align="absmiddle" />&nbsp;用户登陆</td>
		</tr>

		<form action="login.asp?action=login" method="post">
		<input type="hidden" name="comeurl" value="<%=kbbs(comeurl)%>" />
		<tr class="BBS_BoardItem">
			<td width="30%"><b>&nbsp;请输入您的用户名：</b></td>
			<td>&nbsp;<input type="text" name="lgname" size="20" maxlength="20" />&nbsp;&nbsp;<a href="reg.asp">没有注册？</a></td>
		</tr>
		<tr class="BBS_BoardItem">
			<td><b>&nbsp;请输入您的密码：</b></td>
			<td>&nbsp;<input type="password" name="lgpwd" size="20" maxlength="20" />&nbsp;&nbsp;<a href="getpass.asp">忘记密码？</a></td>
		</tr>
			
		<%if conn.execute("select postcode from config")(0)=0 then%>
		<tr class="BBS_BoardItem">
			<td><b>&nbsp;请输入登陆验证码：</b></td>
			<td>&nbsp;<input type="text" name="adminid" maxlength="4" />&nbsp;&nbsp;<%response.write"<img src=""inc/code.asp"">"%></td>
		</tr>
		<%end if%>
		<tr class="BBS_BoardItem">
			<td><b>&nbsp;Cookie 选项：</b><br />&nbsp;请选择你的 Cookie 保存时间</td>
			<td>&nbsp;<select name="cook"><option value="0">不保存</option><option value="1">保存一天</option><option value="30">保存一月</option><option value="365">保存一年</option></select></td>
		</tr>
		<tr class="BBS_BoardItem">
			<td><b>&nbsp;登陆方式：</b><br />&nbsp;请选择你的登陆方式</td>
			<td>&nbsp;<input type="radio" value="1" checked name="lgtype" />正常登陆&nbsp;&nbsp;<input type="radio" value="2" name="lgtype" />隐身登陆</td>
		</tr>
		<tr class="BBS_BoardItem">
			<td colspan="2" align="center">
				<input type="submit" value="   登    陆   ">&nbsp;&nbsp;
				<input type="reset" value="   重    置   ">
			</td>
		</tr>
		</form>
	</table>
	<%=tbottom%>
	<br />
<%End Sub%>



<%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,"