文章目录：
设计一个ASP博客系统的思路
我说下多用户博客系统的基本设计吧，我讲的是asp+access开发的，你参考下：
1.access数据库设计
系统配置表：主要存网站的名称、后台管理密码、默认语言、风格等信息
用户信息表：用户资料
文章系统（存分类目录的表、存内容表、存留言表）
标签表：存搜索的标签
ip控制表：用于分析IP来源和控制非法IP
2.网站模块设计
文章系统
搜索系统
3.推荐要设计的功能
多种风格
相册功能
圈子功能（相当于一个小型的论坛）
4.一点建议：
在设计方面，可以参考QZONE的设计，个人比较佩服的博客系统，网上有共享的源码建议下来看看；另外，不知道你设计博客的目的是什么？是重在设计，那单靠个人难做出好的东西，毕竟做网站的公司太多了；如果重在运营，个人认为用个开源的二次开发，在运营上多投入些！！
博客源码,特效等等在哪里可以找到啊?
如何在博客里插入Flash、时钟、天气预报、音乐、鼠标
本文转自：
1.添加Flash背景
添加Flash背景代码：
CENTEREMBED style="LEFT: 10px; POSITION: absolute; TOP: -70px" align=right src=“Flash地址” width=500 height=500 type=application/x-shockwave-flash ; quality="high" wmode="transparent"/CENTER
代码说明：
width height分别是Flash的宽度和高度，可以自定义设置。
style="LEFT: 10px是距离左边缘的距离（left=左，right=右）
TOP: -70px：这是距离顶端的距离。
把上面flash地址换上自己喜欢的背景地址就可以了，注意扩展名一定需要时SWF格式的。
添加方法：
新建一个空白模块，勾选“显示源代码”把Flash代码粘贴进去即可。然后再控制面板－个人首页维护－定制我的首页里添加这个模块并保存即可。
来这里挑选一个flash背景吧：
2，添加时钟
添加时钟代码：
div align="center"embed src="Flash地址" width="180" height="180" type="application/x-shockwave-flash" //div
代码说明：
width=180 height=180是Flash的宽度和高度，可以自定义设置。
添加方法：
同上
来这里挑选一个自己喜欢的时钟吧：
3.添加挂件
添加挂件代码：
DIV id=youxia style="RIGHT: 10px; POSITION: absolute; TOP: 100px"IMG src="图片地址" border=0/A/DIV
代码说明：
以上为右挂件代码，更换RIGHT为LEFT，则为左挂件代码
添加方法：
同上
下面是几个挂件代码，您也可以自行查找地址并添加：
4.更改鼠标样式
更改鼠标样式代码：
STYLE type=text/css
a:hover {cursor:url('*.ani')}
BODY {cursor:url('*.ani')}
/STYLE
代码说明：
*.ani为动态光标地址。
添加方法：
同上
到这里找动态光标的链接吧：
5.添加音乐
添加音乐代码：
embed src=音乐链接地址 width=200 height=45 type=audio/mpeg loop="true" autostart="false"
代码说明：
支持的音乐格式: wma mp3 rm ra ram asf mid
播放器宽度width和高度herght可以灵活设置,如果都设为0，那么音乐就成了背景音乐，没有播放器.
autostart="true"为自动播放,autostart="false"为不自动播放.
loop="true"为连续循环播放,loop="false"为不循环播放.
loop可以等于一个整数,比如loop="2",就是音乐循环播放2次。
添加方法：音乐地址自己去百度搜
asp程序实现简单的注册，登录网页的源代码
1，（index.asp 用户登陆页面）
!-- #include file="conn.asp" --
!-- blog.soowooo.cn 悠悠长假期 --
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title会员/title
style type="text/css"
!--
body,td,th {
font-family: 宋体;
font-size: 14px;
}
--
/style
/head
body
center
p会员注册系统/p
form name="form1" method="post" action="login.asp"
table width="34%" border="0"
tr
td width="33%" height="30"用户名:/td
td width="67%" height="30"input name="username" type="text" id="username" size="15"/td
/tr
tr
td height="30"密 码:/td
td height="30"input name="password" type="password" id="password" size="15"/td
/tr
tr
td colspan="2" align="center"input type="submit" name="Submit" value="确定"
input type="reset" name="Submit" value="重置"/td
/tr
tr
td colspan="2"a href="reg.asp" target="_self"注册/a/td
/tr
/table
/form
/center
/body
/html
2，（login.asp 用户数据处理文件）
!-- #include file="conn.asp" --
%
'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"request.Form("username")"' and password='"request.Form("password")"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("change.asp")
'如果用户不存在,session("username")为空
%
3，（change.asp 用户信息修改页面）
!-- #include file="conn.asp" --
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title修改/title
style type="text/css"
!--
body,td,th {
font-size: 14px;
}
--
/style/head
center
body
br
%
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"session("username")"' and password='"session("password")"'"
rsc.open sqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
set rsc=nothing
if nr="" then
response.Redirect("index.asp")
end if
if strcomp(nr,request.Form("password"))=0 then
response.Write("欢迎你！"request.Form("username"))
response.Write("你是在"vv"注册的")
session("username")=request.Form("username")
end if
if session("username")="" then
response.Redirect("index.asp")
end if
%
form name="form1" method="post" action="change.asp?ac=ch"
table width="39%" height="105" border="0"
tr
td width="27%" height="30"用户名：/td
td width="73%" height="30"input name="username" type="text" id="username" value="%=username%"
*/td
/tr
tr
td height="30"密 码：/td
td height="30"input name="password" type="text" id="password" value="%=password%"
*/td
/tr
tr
td height="30"性 别：/td
td height="30"input name="sex" type="text" id="sex" value="%=sex%"/td
/tr
tr
td height="30"QQ：/td
td height="30"input name="qq" type="text" id="qq" value="%=qq%"/td
/tr
tr
td height="30"Mail：/td
td height="30"input name="mail" type="text" id="mail" value="%=mail%"/td
/tr
tr
td height="30"地 址：/td
td height="30"input name="add" type="text" id="add" value="%=add%"/td
/tr
tr
td介绍/td
tdtextarea name="personalinfo" cols="30" rows="6" id="personalinfo"%=personalinfo%/textarea/td
/tr
tr
td /td
tdinput type="submit" name="Submit" value="修改"
a href="change.asp?se=y" target="_self"退出系统/a/td
% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%
/tr
/table
/form
%
if strcomp(request.QueryString("ac"),"ch")=0 then
set rs=server.createobject("adodb.recordset")
sql="select * from info where username='"session("username")"'"
rs.open sql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
set rs=nothing
response.Write("修改完成！")
end if
%
/body
/center
/html
4，（reg.asp 新用户注册页面）
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title用户注册/title
style type="text/css"
!--
body,td,th {
font-family: 宋体;
font-size: 14px;
}
--
/style
/head
body
center
用户注册br
%
=request.QueryString("msg")
%
form name="form1" method="post" action="addnewdata.asp?ac=adduser"
table width="39%" height="105" border="0"
tr
td width="27%" height="30"用户名：/td
td width="73%" height="30"input name="username" type="text" id="username"
*/td
/tr
tr
td height="30"密码：/td
td height="30"input name="password" type="password" id="password"
*/td
/tr
tr
td height="30"确定密码：/td
td height="30"input name="password2" type="password" id="password2"
*/td
/tr
tr
td height="30"性别：/td
td height="30"input name="sex" type="text" id="sex"/td
/tr
tr
td height="30"QQ：/td
td height="30"input name="qq" type="text" id="qq"/td
/tr
tr
td height="30"Mail：/td
td height="30"input name="mail" type="text" id="mail"/td
/tr
tr
td height="30"地址：/td
td height="30"input name="add" type="text" id="add"/td
/tr
tr
td个人介绍/td
tdtextarea name="personalinfo" cols="30" rows="6" id="personalinfo"/textarea/td
/tr
tr
td /td
tdinput type="submit" name="Submit" value="提交"/td
/tr
/table
/form
/center
/body
/html
5，（addnewdata.asp 新用户注册数据处理文件）
!-- #include file="conn.asp" --
html
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312"
title成功/title
/head
body
%
ac=request.QueryString("ac")
msg="注册错误信息"
if request.Form("username")="" then
msg=msg"br""用户名不能为空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))0 then
msg=msg"br""两次密码输入不同"
end if
if len(request.Form("password"))6 then
msg=msg"br""密码太简单"
end if
if strcomp(msg,"注册错误信息")0 then
response.Redirect("reg.asp?msg="msg)
end if
if ac="adduser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"request.Form("username")"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck"" then
msg=msg"br""用户名被人注册"
response.Redirect("reg.asp?msg="msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
set rs=nothing
%
center
a href="index.asp" target="_self"注册成功,点击登陆/a
/center
%
end if
%
/body
/html
6，（conn.asp 数据库连接文件）
%
'连接数据库开始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("userinfo.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="
'创建记录对象
set rs=server.createobject("adodb.recordset")
%
7，（userinfo.mdb ACCESS 数据库）
在ACCESS中建一个表，然后在这个表中建立字段名称
表名：info
字段名称 数据类型
id 自动编号
username 文本
password 文本
sex 文本
quest 文本
qq 文本
mail 文本
personalinfo 文本
ntime 文本
求一个简单的ASP论坛源代码。
晕，貌似论坛没有那么简单的，我以前倒是看到一个超简单的个人blog
312"title成功/title/headbody%ac=request.QueryString("ac")msg="注册错误信息"if request.Form("username")="" thenmsg=m
request.Form("sex")rs("qq")=request.Form("qq")rs("add")=request.Form("add")rs("personal