**index.asp (首页)**，“
asp，，，，，My ASP Blog，，，Welcome to My ASP Blog，，，，，，`，，**post.asp (文章页)**，`asp，，，，，Post Page，，，Post Title，This is the content of the post.，，，，`，，，1. 将YOUR_DATABASE_NAME, YOUR_USERNAME, 和 YOUR_PASSWORD替换为实际的数据库连接信息。，2. 确保你的数据库中有一个名为posts的表，并且包含id, title, 和 content`字段。1、数据库连接文件（conn.asp）
<%
dim conn, db
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("blog.mdb")
%>2、首页（index.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>我的博客</title>
</head>
<body>
<h1>博客首页</h1>
<ul>
<%
set rs = conn.execute("select title, id from posts order by id desc")
do while not rs.eof
response.write "<li><a href='article.asp?id=" & rs("id") & "'>" & rs("title") & "</a></li>"
rs.movenext
loop
rs.close
set rs = nothing
%>
</ul>
<a href="admin/login.asp">进入后台管理</a>
</body>
</html>3、文章列表页（list.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>文章列表</title>
</head>
<body>
<h1>文章列表</h1>
<ul>
<%
set rs = conn.execute("select title, id from posts order by id desc")
do while not rs.eof
response.write "<li><a href='article.asp?id=" & rs("id") & "'>" & rs("title") & "</a></li>"
rs.movenext
loop
rs.close
set rs = nothing
%>
</ul>
<a href="admin/login.asp">进入后台管理</a>
</body>
</html>4、页（article.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>文章内容</title>
</head>
<body>
<%
id = request("id")
set rs = conn.execute("select * from posts where id=" & id)
if not rs.eof then
response.write "<h1>" & rs("title") & "</h1>"
response.write "<p>" & rs("content") & "</p>"
response.write "<a href='list.asp'>返回文章列表</a>"
else
response.write "<p>文章不存在！</p>"
end if
rs.close
set rs = nothing
%>
</body>
</html>5、后台登录页面（admin/login.asp）
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>后台登录</title>
</head>
<body>
<h2>后台登录</h2>
<form action="checklogin.asp" method="post">
<label for="username">用户名：</label>
<input type="text" id="username" name="username"><br><br>
<label for="password">密码：</label>
<input type="password" id="password" name="password"><br><br>
<input type="submit" value="登录">
</form>
</body>
</html>6、后台登录验证页面（admin/checklogin.asp）
<!--#include file="conn.asp"-->
<%
uname = request.form("username")
pwd = request.form("password")
set rs = conn.execute("select * from admin where username='" & uname & "' and password='" & pwd & "'")
if rs.eof then
response.redirect "login.asp?err=1"
else
session("adminname") = uname
response.redirect "admin/index.asp"
end if
rs.close
set rs = nothing
%>7、后台管理首页（admin/index.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>后台管理</title>
</head>
<body>
<h2>后台管理 <%=session("adminname")%></h2>
<p><a href="addarticle.asp">添加文章</a></p>
<p><a href="listarticles.asp">管理文章</a></p>
<p><a href="logout.asp">退出登录</a></p>
</body>
</html>8、添加文章页面（admin/addarticle.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>添加文章</title>
</head>
<body>
<h2>添加文章</h2>
<form action="savearticle.asp" method="post">
<label for="title">标题：</label>
<input type="text" id="title" name="title"><br><br>
<label for="content">内容：</label>
<textarea id="content" name="content"></textarea><br><br>
<input type="submit" value="保存文章">
</form>
</body>
</html>9、保存文章页面（admin/savearticle.asp）
<!--#include file="conn.asp"-->
<%
title = request.form("title")
content = request.form("content")
conn.execute "insert into posts (title, content) values ('" & title & "', '" & content & "')"
response.redirect "index.asp"
%>10、文章管理页面（admin/listarticles.asp）
<!--#include file="conn.asp"-->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<title>文章管理</title>
</head>
<body>
<h2>文章管理</h2>
<table border="1">
<tr>
<th>ID</th>
<th>标题</th>
<th>操作</th>
</tr>
<%
set rs = conn.execute("select * from posts order by id desc")
do while not rs.eof
response.write "<tr><td>" & rs("id") & "</td><td>" & rs("title") & "</td><td><a href='deletearticle.asp?id=" & rs("id") & "' onclick='return confirm(\"确定要删除吗？\")'>删除</a></td></tr>"
rs.movenext
loop
rs.close
set rs = nothing
%>
</table>
<a href="addarticle.asp">添加文章</a>
<a href="index.asp">返回前台</a>
</body>
</html>11、删除文章页面（admin/deletearticle.asp）
<!--#include file="conn.asp"-->
<%
id = request("id")
conn.execute "delete from posts where id=" & id
response.redirect "listarticles.asp"
%>12、退出登录页面（admin/logout.asp）
<%
session.abandon
response.redirect "login.asp"
%>到此，以上就是小编对于“asp博客网站的源代码”的问题就介绍到这了，希望介绍的几点解答对大家有用，有任何问题和不懂的，欢迎各位朋友在评论区讨论，给我留言。
文章来源网络，作者：运维，如若转载，请注明出处：https://shuyeidc.com/wp/66051.html<
