猪圈

1.为表BLOG_CONTENT增加字段
log_mf nvarchar(20)
2.创建表blog_mf

[code]CREATE TABLE [[/color]dbo][/color].[/color][[/color]blog_mf][/color] ([/color]
[[/color]id][/color] [[/color]int[/color]][/color] IDENTITY ([/color]1[color=#0000ff], 1[color=#0000ff]) NOT NULL [color=#0000ff],
[color=#0000ff][blog_mf_img[color=#0000ff]] [color=#0000ff][nvarchar[color=#0000ff]] [color=#0000ff](50[color=#0000ff]) COLLATE Chinese_PRC_CI_AS NULL
[color=#0000ff]) ON [color=#0000ff][PRIMARY[color=#0000ff]]
GO
[/code]

3.打开BLOGPOST.ASP 找到:
[code]

标题：

 
天气
晴天
多云
雨天
刮风
雪天
彩虹
露水

 




属性：
公开日志   隐藏日志  |   置顶日志   禁止评论
[/code]

4.替换为:
[code]

标题：

 
天气
晴天
多云
雨天
刮风
雪天
彩虹
露水

 

属性：
公开日志   隐藏日志  |   置顶日志   禁止评论
[/code]

5.找到:
[code]dim Log_Title,log_Content,log_From,log_FromURL,log_CateID2,log_Intro,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_IsShow,log_AutoKEY,log_IsTop,log_DisComment,log_Weather,log_mode
[/code]
在加后加 ,log_mf
6.找到
程序代码： [ 复制代码到剪贴板 ]
log_DisComment=Request.Form("log_DisComment")

7.加入下面代码:
[code]
log_mf=request.form("post_MagicFace")
if log_mf=empty then log_mf=NULL
[/code]
8.找到
[code]
Conn.ExeCute("INSERT INTO blog_Content(log_CateID,log_Title,log_Author,log_Intro,log_Content,log_From,log_FromURL,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,log_IsShow,log_IsTop,log_DisComment,log_Weather,log_mode) VALUES ("&log_CateID2&",'"&log_Title&"','"&memName&"','"&log_Intro&"','"&log_Content&"','"&log_From&"','"&log_FromURL&"','"&log_Quote&"',"&log_DisSM&","&log_DisUBB&","&log_DisIMG&","&log_AutoURL&","&log_AutoKEY&","&log_IsShow&","&log_IsTop&","&log_DisComment&",'"&log_Weather&"','"&log_mode&"')")
[/code]

9.替换为:
[code]
Conn.ExeCute("INSERT INTO blog_Content(log_CateID,log_Title,log_Author,log_Intro,log_Content,log_From,log_FromURL,log_Quote,log_DisSM,log_DisUBB,log_DisIMG,log_AutoURL,log_AutoKEY,log_IsShow,log_IsTop,log_DisComment,log_Weather,log_mode,log_mf) VALUES ("&log_CateID2&",'"&log_Title&"','"&memName&"','"&log_Intro&"','"&log_Content&"','"&log_From&"','"&log_FromURL&"','"&log_Quote&"',"&log_DisSM&","&log_DisUBB&","&log_DisIMG&","&log_AutoURL&","&log_AutoKEY&","&log_IsShow&","&log_IsTop&","&log_DisComment&",'"&log_Weather&"','"&log_mode&"','"&log_mf&"')")
[/code]

10.用下面的脚本,新建文件:magicface.ASP
[code]
<%IF memStatus="Admin" OR memStatus="SupAdmin" Then%>





rev=stylesheet media=all href="magicface/images/default.css" type=text/css
rel=stylesheet>




<%
dim page,i,j,weblog,CurPage,Url_Add
if isnumeric(request.querystring("page")) then
curpage=request.querystring("page")
else
curpage=1
end if
if isnumeric(request.QueryString("page"))and request.querystring("page")<>"" then
CurPage=request.QueryString("page")
else
CurPage=1
end if
Url_Add="?"
Set webLog=Server.CreateObject("Adodb.Recordset")
sql="select * from blog_mf order by id"

webLog.Open SQL,CONN,1,1

If webLog.EOF AND webLog.BOF Then
Response.Write("

")
Else
Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,Log_Num
webLog.PageSize=28
webLog.AbsolutePage=CurPage
Log_Num=webLog.RecordCount
%>

魔法表情 (点击选中，右键预��)

<%
end if
%>

<%
ELSE
RESPONSE.redirect "http://www.guoblog.com"
END IF
%>
[/code]

11.打开default.asp文件,找到
[code]

[/code]
12.在后面加入下面代��.
[code]

[/code]
13.找到:
[code]Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_modes[/code]
替换��:
[code]Dim log_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_modes,log_mf
[/code]
14.找到:
[code]log_IsTop=weblog("log_IsTop")[/code]

替换��:[code]
log_IsTop=weblog("log_IsTop")
log_mf=weblog("log_mf")[/code]

15:找到[code]
If log_IsShow = True OR (log_IsShow=False And (memStatus="SupAdmin" OR (memStatus="Admin" And memName=log_Author))) Then
[/code]
在后面加入下面代��:
[code]
if not isnull(log_mf) and log_mf<>"" then
%>

<%
end if
[/code]

16.打开blogview.asp文件.找到:[code]