login.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<!--#include file="up.asp"--><br><%comeurl=Request.ServerVariables("HTTP_REFERER")
action=request.querystring("action")
select case action
case"exit"
myconn.execute("delete*from online where name='"&lgname&"'")
response.Cookies(cn)("lgname")=""
response.Cookies(cn)("lgpwd")=""
response.cookies(cn&"2")("admin")=1
infotl="退 出 论 坛"
mes="·已经成功的退出论坛<br>·<a href=index.asp>进入论坛首页</a>"
smes()
case""%>
<%response.write"<form method='POST' name='login' action='bbselse.asp'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' align=center><tr><td background='pic/"&sp&"3.gif' height=30 bgcolor="&c2&"> <p style='margin:5px'><img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b> 论 坛 登 陆</b></font></p></td></tr></table>"&_
"<div align='center'><center><table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='"&c1&"' width='98%'><tr><td width='30%' height='30'>&nbsp;请输入您的用户名</td><td width='70%'> &nbsp;<input type=text name=lgname size='20'> <a href=zhuce.asp>没有注册？</a></td></tr><tr><td height='30'>&nbsp;请输入您的密码</td><td>&nbsp;<input type=password name=lgpwd size='20'> <a href=getpwd.asp> 忘记密码？</a></td></tr>"&_
"<tr><td height='80'>&nbsp;<font color=#000000><b>Cookie 选项</b><br>&nbsp;请选择你的 Cookie 保存时间，<br>&nbsp;下次访问可以方便输入。</font></td><td><font color=#000000><input type=radio CHECKED value=0 name=Cook>不保存，关闭浏览器就失效<br><input type=radio value=1 name=Cook>保存一天<br><input type=radio value=30 name=Cook>保存一月<br><input type=radio value=365 name=Cook>保存一年<input type='hidden' name='comeurl' size='30' value='"&comeurl&"'></font></td></tr><tr><td height='50'>&nbsp;<font color=#000000><b>登陆方式：</b><br>&nbsp;请选择你的登陆方式</font></td><td><font color=#000000><input type=radio value=s CHECKED name=lgtype>正常登陆<br><input type=radio value=y name=lgtype>隐身登陆<br></font></td></tr><tr><td bgcolor="&c2&" colspan='2' background='pic/"&sp&"3.gif' height='26' align='center'> <input type='submit' value=' 登  陆 ' name='B1'></td></tr></table></center></div></form>"%>
<%end select%><br><!--#include file="down.asp"-->