📄 admin.asp
字号:
<!--#include file="includes/adovbs.inc"-->
<%
dim objConn, strCon, objRS, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= F:\wwwroot\20061101\boke\shujuku\everbaidu.mdb"
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
ON ERROR RESUME NEXT
Dim pageView, strNewsText
' See what view the User is requesting
pageView=Request.Querystring("view")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>百度天下网简单blog</title>
<link rel="stylesheet" type="text/css" href="includes/style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<br>
<br>
<div align="center">
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr><td bgcolor="#915BA3" class="blogTitle" valign="middle">
</td><td bgcolor="#915BA3" class="blogTitle" valign="middle"><img src="images/banner.gif" width="700" height="58" alt="BlogIt! Banner" border="0"></td></tr>
<tr><td colspan="2">
<table width="700" border="0" cellspacing="0" cellpadding="5" width="100%">
<tr><td valign="top" width="500" class="blog">
<%
if pageView="login" THEN
' Nothing
ELSE
if (Request.Cookies("loggedIn")="") OR (Request.Cookies("loggedIn")<>"xY1zZoPQ") THEN
%>
<p><div align="center">
<table width="80%" class="blogEntry" cellspacing="0" Cellpadding="3">
<tr><td>
请填写用户名和密码登陆<b>www.everbaidu.com</b>的简单博客系统:
<form action="admin.asp?view=login" method="post" name="login">
用户名: <input type="text" size="10" name="username" value="">
<br>
密码: <input type="password" size="10" name="pword" value=""> <input type="submit" value="登陆" class="button" Title="Log in !" onmouseover="window.status='Log in!'; return true" onmouseout="window.status=''; return true">
</form>
</td></tr><table>
<br>
<br>
<br>
<br>
<%
ELSE
%>
<%if pageView="" THEN
' The User is logged in with permission
' to view the admin section so we
' display the Entry list and
' options menu
%>
<a href="admin.asp?view=AddNew" Title="添加新日志" onmouseover="window.status='Add'; return true" onmouseout="window.status=''; return true">添加新日志</a>
<p><b>博文条目列表</b></p>
<%
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog ORDER BY bday DESC, bmonth DESC, byear DESC"
' Open the Database
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
IF NOT objRS.EOF THEN
%>
<table width="100%" cellspacing="0" cellpadding="3" class="mainTable">
<tr><td><b>日期</b></td><td><b>标题</b></td><td></td><td></td><td align="center"><b>状态</b></td></tr>
<%
' Write out the list of Entrys
DO WHILE NOT objRS.EOF%>
<%if intRowColor = 0 Then
Response.Write "<TR bgcolor=""#F6EFF9"" onMouseOver=""this.bgColor = '#f5f4db'"" onMouseOut =""this.bgColor = '#F6EFF9'"">"
intRowColor = 1
Else
Response.Write "<TR bgcolor=""#ffffff"" onMouseOver=""this.bgColor = '#f5f4db'"" onMouseOut =""this.bgColor = '#FFFFFF'"">"
intRowColor = 0
End if%>
<td><%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%></td>
<td><a href="admin.asp?view=Display&ID=<%=objRS("id")%>" title="显示" onmouseover="window.status='Display'; return true" onmouseout="window.status=''; return true"><%=objRS("entryTitle")%></a></td>
<td><a href="admin.asp?view=Edit&ID=<%=objRS("id")%>" title="编辑" onmouseover="window.status='Edit'; return true" onmouseout="window.status=''; return true">编辑</a></td>
<td><a href="admin.asp?view=Delete&ID=<%=objRS("id")%>" title="删除" onmouseover="window.status='Delete'; return true" onmouseout="window.status=''; return true">删除</a></td>
<td align="center"><%=objRS("status")%></td>
</tr>
<%
objRS.MoveNext
Loop
objRS.Close
%>
</table>
<%ELSE%>
<p>请添加新日志.
<p></p>
<%END IF%>
<%END IF%>
<%IF pageView="AddNew" THEN
%>
<a href="admin.asp?view=" Title="Return to the Admin Menu" onmouseover="window.status='Return to the Admin Menu'; return true" onmouseout="window.status=''; return true">管理员首页</a>
<p><b>添加新日志</b></p>
<p>可以使用文本和简单HTML语言更新志内容，有不明白之处请留言给我<a href=http://www.everbaidu.com/guestbook target=blank>www.everbaidu.com/guestbook</a>.
<div align="center">
<form name="newNews" action="admin.asp?view=DoAddNew" method="post">
<table width="80%" class="mainTable" cellspacing="0" Cellpadding="3" bgcolor="#f5f4db">
<tr>
<td>日期:</td>
<td><%=day(now)%>/<%=month(now)%>/<%=year(now)%>
<input type="hidden" value="<%=day(now)%>" name="bday"><input type="hidden" value="<%=month(now)%>" name="bmonth"><input type="hidden" value="<%=year(now)%>" name="byear">
</td>
</tr>
<tr>
<td>标题</td>
<td><input type="text" size="30" name="EntryHeadline"></td>
</tr>
<tr>
<td valign="top">内容:</td>
<td><textarea name="EntryContents" rows="10" cols="29"></textarea></td>
</tr>
<tr>
<td>状态 (1=前台显示, 0=不显示)</td>
<td><input type="text" size="1" name="EntryStatus" value="0"></td>
</tr>
<tr>
<td>发布:</td>
<td><input type="Submit" Value="提交" name="submit" class="button" Title="提交" onmouseover="window.status='Save The News Entry'; return true" onmouseout="window.status=''; return true"> <input type="Reset" Value="重置" name="Reset" class="button" Title="Reset the form" onmouseover="window.status='Reset the form'; return true" onmouseout="window.status=''; return true"></td>
</tr>
</table>
</form>
</div>
<%END IF%>
<%IF pageView="DoAddNew" THEN
%>
<%
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog ORDER BY bday DESC, bmonth DESC, byear DESC"
' Open the Database
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
' Make a New record and populate it with information from the form
objRS.AddNew
objRS("entryTitle")=Request.Form("EntryHeadline")
objRS("entry")=Request.Form("EntryContents")
objRS("bday")=Request.Form("bday")
objRS("bmonth")=Request.Form("bmonth")
objRS("byear")=Request.Form("byear")
objRS("status")=Request.Form("EntryStatus")
objRS("btime")=FormatDateTime(Now,3)
objRS.Update
%>
<a href="admin.asp?view=" Title="管理" onmouseover="window.status='Admin Menu'; return true" onmouseout="window.status=''; return true">管理员首页</a> | <a href="admin.asp?view=AddNew" Title="增" onmouseover="window.status='Add'; return true" onmouseout="window.status=''; return true">添加新日志</a>
<p><b>添加新日志</b></p>
<p>新日志已经被添加到数据库，请设置显示状态或再添加新日志。<p>
<p></p>
<%END IF%>
<%IF pageView="Edit" THEN
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog WHERE id="&Request.Querystring("ID")
' Open the Database
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
%>
<a href="admin.asp?view=" Title="Return to the Admin Menu" onmouseover="window.status='Return to the Admin Menu'; return true" onmouseout="window.status=''; return true">管理员首页</a>
<p><b>编辑日志</b></p>
<div align="center">
<form name="newNews" action="admin.asp?view=DoEdit&ID=<%=Request.QueryString("ID")%>" method="post">
<table width="80%" class="mainTable" cellspacing="0" Cellpadding="3" bgcolor="#f5f4db">
<tr>
<td>日期:</td>
<td><%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%>
<input type="hidden" value="<%=objRS("bday")%>" name="bday"><input type="hidden" value="<%=objRS("bmonth")%>" name="bmonth"><input type="hidden" value="<%=objRS("byear")%>" name="byear"></td>
</tr>
<tr>
<td>标题</td>
<td><input type="text" size="30" name="EntryHeadline" value="<%=objRS("entryTitle")%>" ></td>
</tr>
<tr>
<td valign="top">内容:</td>
<td><textarea name="EntryContents" rows="10" cols="29"><%=objRS("entry")%></textarea></td>
</tr>
<tr>
<td>状态 (1=前台显示, 0=不显示)</td>
<td><input type="text" size="1" name="EntryStatus" value="<%=objRS("status")%>"></td>
</tr>
<tr>
<td>发布:</td>
<td><input type="Submit" Value="编辑文章" name="submit" class="button" Title="确认编辑内容" onmouseover="window.status='Confirm Entry Changes'; return true" onmouseout="window.status=''; return true"> <input type="Button" Value=" 退出 " name="Back" class="button" onClick="window.location='admin.asp'" Title="Return to the Admin Menu" onmouseover="window.status='Return to the Admin Menu'; return true" onmouseout="window.status=''; return true"></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -