📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="bbs.css" rel="stylesheet" type="text/css">
<script>
<!--
function validata_form() {
validity=true;
if (!check_empty(document.form1.username.value))
{ validity=false;
alert('请输入用户名!');
document.form1.username.focus();
return validity; }
if (!check_empty(document.form1.password.value))
{ validity=false;
alert('请输入密码!');
document.form1.password.focus();
return validity; }
function check_empty(text) {
return (text.length > 0); // returns false if empty
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><a href="http://www.cf98.com/" target="_blank"><img src="images/title.jpg" width="700" height="173" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellspacing="8">
<tr>
<td width="50%" valign="top" background="images/bg.gif">
<table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" class="px14"><img src="images/login.gif" width="289" height="39"></td>
</tr>
</table>
<table width="90%" align="center" cellpadding="8" cellspacing="0">
<tr>
<td>
<% If session("nickname")="" Then %>
<table
width="90%" height=100 border=0 align="center" cellpadding=0 cellspacing=0>
<form action=access.asp method=post name=form1 onSubmit="return validata_form()">
<tbody>
<tr align=middle>
<td class=pt9>用户名:
<input maxlength=20 name=username size=16
style="BACKGROUND: none transparent scroll repeat 0% 0%; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; COLOR: black; FONT-SIZE: 9pt">
</td>
</tr>
<tr align=middle class=pt9>
<td class=pt9>密 码:
<input maxlength=20 name=password size=16
style="BACKGROUND: none transparent scroll repeat 0% 0%; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; COLOR: black; FONT-SIZE: 9pt"
type=password> </td>
</tr>
<tr align=middle>
<td height=2> <input name="url" type="hidden" id="url" value="login.asp">
<input name="imageField" type="image" src="images/l_dl.gif" width="39" height="21" border="0">
<a href="user_register.asp"><img src="images/l-reg.gif" width="39" height="21" border="0"></a>
</td>
</tr>
</form>
</table>
<% Else %>
<table width="90%" border="0" align="center">
<tr>
<td><p><%=session("nickname") %>，您已经登录，请点击左边菜单进入论坛栏目。</p>
<p> [<a href="logout.asp" target="_parent">退出登录</a>] [<a href="user_reg_modi.asp">修改个人信息</a>]
[<a href="user_reg_modi_pwd.asp">修改密码</a>] </p></td>
</tr>
</table>
<% End If %>
</td>
</tr>
</table></td>
<td width="50%" valign="top" background="images/bg.gif"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" class="px14"><img src="images/board.gif" width="289" height="39"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td>
<%
sql="select top 1 * from bbs_bulletin order by datetime desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<%do while not rscust.eof%>
<% s=server.HTMLEncode(rscust("content"))
outs=""
for i=1 to len(s)
ch=mid(s,i,1)
if i>1 then
if ch=" " and mid(s,i-1,1)=" " then
ch=" "
end if
end if
if ch=chr(13) then
ch="<br>"
end if
outs=outs+ch
next
%>
<%=outs%>
<% rscust.movenext
loop
set rscust=nothing%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellspacing="8">
<tr>
<td width="50%" height="112" valign="top" background="images/bg.gif"> <table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" class="px14"><img src="images/newbbs.gif" width="290" height="37"></td>
</tr>
</table>
<table width="90%" align="center" cellpadding="8" cellspacing="0">
<tr>
<td>
<%
sql="select top 16 indexid,title,board,suboard from yfindex order by time desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
do while not rscust.eof%>
<% set rsb=Server.Createobject("ADODB.Recordset")
rsb.open "select suboard from bbs_suboard where subid="&rscust("suboard"),conn,1,3
suboard=rsb("suboard")
set rsb=nothing%>
<img src="images/jiao-4.gif"> [<a href="main.asp?board=<%=rscust("board")%>&suboard=<%=rscust("suboard")%>"><font color="#0000CC"><%=suboard%></font></a>]
<a href="showbbs.asp?indexid=<%=rscust("indexid")%>&board=<%=rscust("board")%>&suboard=<%=rscust("suboard")%>"><%=rscust("title")%>
</a> <br>
<% rscust.movenext
loop
set rscust=nothing%>
</td>
</tr>
</table></td>
<td width="50%" valign="top" background="images/bg.gif"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" class="px14"><img src="images/jhbbs.gif" width="288" height="35"></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="8" cellspacing="0">
<tr>
<td>
<%
sql="select top 14 indexid,title,board,suboard from yfindex where good=true order by time desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
do while not rscust.eof%>
<% set rsb=Server.Createobject("ADODB.Recordset")
rsb.open "select suboard from bbs_suboard where subid="&rscust("suboard"),conn,1,3
suboard=rsb("suboard")
set rsb=nothing%>
<img src="images/jiao-4.gif"> [<a href="main.asp?board=<%=rscust("board")%>&suboard=<%=rscust("suboard")%>"><font color="#0000CC"><%=suboard%></font></a>] <a href="jhbbs.asp?indexid=<%=rscust("indexid")%>"><%=rscust("title")%> </a> <br>
<% rscust.movenext
loop
set rscust=nothing%>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -