📄 login-1.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" leftmargin="0" topmargin="0">
<table width="100%" border="0" align="center">
<tr>
<td><a href="http://www.cf98.com/"><img src="images/bbs_title.gif" width="484" height="80" border="0"></a></td>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<td width="50%" valign="top"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">用户登录</font></td>
</tr>
<tr>
<td height="100" bgcolor="#BBDDFF">
<% 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"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">公
告 栏</font></td>
</tr>
<tr>
<td height="100" valign="top" bgcolor="#BBDDFF"> <table width="96%" border="0" align="center">
<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></td>
</tr>
</table>
<table width="100%" border="0" align="center">
<tr>
<td width="33%" valign="top"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">便携式PC版论坛精华</font></td>
</tr>
<tr>
<td height="200" valign="top" bgcolor="#BBDDFF">
<%
sql="select top 10 indexid,title,board,suboard from yfindex where good=true and board=1 order by time desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<%do while not rscust.eof%>
<img src="images/jiao-4.gif"> <a href="jhbbs.asp?indexid=<%=rscust("indexid")%>"><%=left(server.HTMLEncode(rscust("title")),26)%>
</a> <br>
<% rscust.movenext
loop
set rscust=nothing%>
</td>
</tr>
<tr>
<td align="right" valign="top" bgcolor="#BBDDFF"><a href="jinghua.asp?board=1">更多...</a></td>
</tr>
</table>
</td>
<td width="33%" valign="top"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">笔记本电脑版论坛精华</font></td>
</tr>
<tr>
<td height="200" valign="top" bgcolor="#BBDDFF">
<%
sql="select top 10 indexid,title,board,suboard from yfindex where good=true and board=2 order by time desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<%do while not rscust.eof%>
<img src="images/jiao-4.gif"> <a href="jhbbs.asp?indexid=<%=rscust("indexid")%>"><%=left(server.HTMLEncode(rscust("title")),26)%>
</a> <br>
<% rscust.movenext
loop
set rscust=nothing%>
</td>
</tr>
<tr>
<td align="right" valign="top" bgcolor="#BBDDFF"><a href="jinghua.asp?board=2">更多...</a></td>
</tr>
</table></td>
<td width="33%" valign="top"><table width="100%" border="0" cellspacing="0">
<tr>
<td align="center" bgcolor="#0065CA" class="px14"><font color="#FFFFFF">准系统版论坛精华</font></td>
</tr>
<tr>
<td height="200" valign="top" bgcolor="#BBDDFF"> <%
sql="select top 10 indexid,title,board,suboard from yfindex where good=true and board=3 order by time desc"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3%>
<%do while not rscust.eof%>
<img src="images/jiao-4.gif"> <a href="jhbbs.asp?indexid=<%=rscust("indexid")%>"><%=left(server.HTMLEncode(rscust("title")),26)%> </a><br>
<% rscust.movenext
loop
set rscust=nothing%> </td>
</tr>
<tr>
<td align="right" valign="top" bgcolor="#BBDDFF"><a href="jinghua.asp?board=3">更多...</a></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -