📄 index.asp
字号:
<!-- #include file="Show.asp" -->
<script language="JavaScript">
function newwin(url) {
var newwin=window.open(url,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=380");
newwin.focus();
return false;
}
</script>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=JINWEN;UID=sa;PWD=821026;Database=Discuss"
Conn.Open
'============从表Content中读取用户数据==============
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
rs.CursorType = 3
'打开记录集
rs.Open "SELECT * FROM Content WHERE UpperId=0 ORDER BY IsTop DESC, LastAnswerTime DESC"
'设置每页记录数
rs.PageSize = 20
'读取参数Page，表示当前的页码
Page = CLng(Request("Page"))
'处理不合法的页码
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>我的论坛</title>
<style>
<!--
.main { font-size: 10pt }
.style1 {
font-family: "隶书";
font-size: 16px;
}
.style2 {
font-family: "隶书";
font-size: 12pt;
}
-->
</style>
</head>
<body topmargin="0" background="images/Back.jpg" vlink="#000000" link="#000000">
<div align="center">
<center>
<table width="714" border="0" height="218" cellspacing="0" cellpadding="0">
<tr> <td height="112"><div align="center"><img src="images/hao.jpg" width="720" height="160" border="0"></div></td>
</tr>
<tr> <td height="29" class="main"> <div align="center" style="width: 735; height: 54">
<% If Session("UserName") = "" Then %>
<form method="POST" action="ChkPwd.asp" name="myform">
<p align="left" class="main"><font size="2">
<font color="#FF0000"><% If Session("Errmsg")="" Then %> </font></font> <span style="color: #0000FF; font-family: "华文行楷"; font-size: 16px;">游客您好，请您登录或注册</span><font size="2"><font color="#FF0000">
<% Else
Response.Write(Session("Errmsg"))
Session("Errmsg")=""
End If
%>
</font>
<img border="0" src="images/arrow.gif">
</font><span class="style1">用户名</span><font size="2">：</font>
<input type="text" name="UserName" size="12">
<span class="style2">密码:</span>
<input type="password" name="UserPwd" size="12"> <input type="submit" value="登录" name="B1">
<a href="UserAdd.asp" class="style2" onclick="return newwin(this.href)">注册新用户</a>
</form>
<% Else %>
<table width=720> <tr> <td align="left" width=630><p class="main">欢迎光临，<%=Session("UserName")%> ，
<% If Session("UserName") = "admin" Then %>
<a href=UserList.asp>用户管理</a>
<a href=UserEdit.asp?UserId=<%=Session("UserId")%> onclick="return newwin(this.href)">修改用户信息</a>
<a href=logout.asp>退出登录</a>
<% Else %>
<a href=UserEdit.asp?UserId=<%=Session("UserId")%> onclick="return newwin(this.href)">修改用户信息</a>
<a href=logout.asp>退出登录</a>
<% End If %>
</p> </td>
<td align="left"> <a href="newArt.ASP" onclick="return newwin(this.href)"><font color="#0000FF"><img border="0" src="images/new.gif"></font></a> </td> </tr> </table>
<% End If %>
</div>
</td> </tr>
</center>
<tr> <td height="18" class="main"> <% Call ShowPage( rs, Page ) %></td></tr>
<tr> <td height="21" class="main"> <% Call ShowList( rs, Page ) %> </td></tr>
<tr> <td height="15"> </td></tr>
<tr> <td height="15"> <p align="center" class="main"></td></tr>
</table>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -