网站开发设计报告.docx

<%

DimCurPage

IfCheckStr（Request.QueryString（"Page"））<>EmptyThen

Curpage=CheckStr（Request.QueryString（"Page"））

IfIsInteger（Curpage）=FalseORCurpage<0ThenCurpage=1

Else

Curpage=1

EndIf

DimwebLog

SetwebLog=Server.CreateObject（"Adodb.Recordset"）

SQL="SELECTL.*,C.cate_NameFROMblog_ContentASL,blog_CategoryASC"&SQLFiltrate&"C.cate_ID=L.log_CateIDORDERBYlog_IsTopASC,log_IDDESC"

IfviewMode="list"Then'显示模式修改开始

SQL="SELECTL.*,C.cate_NameFROMblog_ContentASL,blog_CategoryASC"&SQLFiltrate&"C.cate_ID=L.log_CateIDORDERBYlog_IsTopASC,"&sortBy&"DESC"

EndIF'显示模式修改结束

webLog.OpenSQL,CONN,1,1

SQLQueryNums=SQLQueryNums+1

IfwebLog.EOFANDwebLog.BOFThen

Response.Write（"暂时没有日志"）

Else

Dimlog_Author,weblog_ID,log_IsShow,log_ShowURL,log_IsTop,log_Intro,log_Weather,log_tags

IfviewMode="list"ThenblogPerPage=blogPerPage*6'显示模式修改：

1表示倍数

webLog.PageSize=blogPerPage

webLog.AbsolutePage=CurPage

Log_Num=webLog.RecordCount

DimLog_Num,MultiPages,PageCount

MultiPages=""&MultiPage（Log_Num,blogPerPage,CurPage,Url_Add）&""

Response.Write（""&MultiPages&"显示模式:

正常|文章列表"）

Response.Write（""）

IfviewMode="list"ThenResponse.Write（"

Verdana;font-size:

11px;color:

#666666;'>

1pxdashed#CCCCCC;'>文章列表　　　　　　　　　　　　　　　　　　排序方式:

　发表时间,评论数,分类,查看数"）

DoUntilwebLog.EOFORPageCount=blogPerPage

weblog_ID=weblog（"log_ID"）

log_IsShow=weblog（"log_IsShow"）

log_Author=webLog（"log_Author"）

log_IsTop=weblog（"log_IsTop"）

log_Weather=Split（weblog（"log_Weather"）,"|"）

log_Intro=Replace（webLog（"log_Intro"）,"''","'"）

IfviewMode="list"Then'显示模式修改开始

Iflog_IsShow=TrueOR（log_IsShow=FalseAnd（memStatus="SupAdmin"OR（memStatus="Admin"AndmemName=log_Author）））Then

Iflog_IsTop=TrueThen

Response.Write（"[置顶]

logID="&webLog（"log_ID"）&"'>"&HTMLEncode（cutStr（webLog（"log_Title"）,34））&"

action=view&memName="&log_Author&""">"&log_Author&""&DateToStr（webLog（"log_PostTime"）,"Y-m-dH:

I"）&"

logID="&webLog（"log_ID"）&"#comment'title='评论'>"&webLog（"log_CommNums"）&"|

logID="&weblog_ID&"""title='引用'>"&webLog（"log_QuoteNums"）&"|"&webLog（"log_ViewNums"）&""）

Else

Response.Write（"[

CateID="&webLog（"log_CateID"）&"'>"&webLog（"cate_Name"）&"]-

logID="&webLog（"log_ID"）&"'>"&HTMLEncode（cutStr（webLog（"log_Title"）,34））&"

action=view&memName="&log_Author&""">"&log_Author&""&DateToStr（webLog（"log_PostTime"）,"Y-m-dH:

I"）&"

logID="&webLog（"log_ID"）&"#comment'title='评论'>"&webLog（"log_CommNums"）&"|

logID="&weblog_ID&"""title='引用'>"&webLog（"log_QuoteNums"）&"|"&webLog（"log_ViewNums"）&""）

EndIF

Else

Response.Write（"  这是一篇隐藏日志，只有管理员才能观看隐藏****-**-****:

**隐藏"）

EndIf

Else

Response.Write（""）

IfIsInteger（cateID）=FalseThen

log_ShowURL="

logID="&weblog_ID&""">"

Else

log_ShowURL="

logID="&weblog_ID&"&cateID="&cateID&""">"

EndIf

Iflog_IsShow=TrueOR（log_IsShow=FalseAnd（memStatus="SupAdmin"OR（memStatus="Admin"AndmemName=log_Author）））Then

Iflog_IsTop=TrueThen

Response.Write（"

hand;""onclick=""showIntro（'log_"&weblog_ID&"'）;""title=""点击查看详细介绍"">[置顶]"&log_ShowURL&""&HTMLEncode（cutStr（webLog（"log_Title"）,39））&"   ["&DateToStr（webLog（"log_PostTime"）,"Y-m-d"）&" | "&HTMLEncode（webLog（"log_From"））&"]

none;""id=""log_"&weblog_ID&""">

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

下载	加入VIP,免费下载

还剩页未读，继续阅读

举报
版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：

如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制：

部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词：

网站 开发 设计 报告

  冰点文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。