书签 分享 收藏 举报 版权申诉 / 26

类型个人BLOG的特点与发展现状.docx

  • 文档编号:2058341
  • 上传时间:2023-05-02
  • 格式:DOCX
  • 页数:26
  • 大小:202.84KB

AC_FL_RunContent('codebase','rsion=7,0,19,0','name','flashplay','width','700','height','400','id','flashplay','style','left:

50%;margin-left:

-350px;position:

absolute;top:

-5px','src','flash/flash13','align','right','wmode','transparent','quality','high','movie','flash/flash13');//endACcode

D27CDB6E-AE6D-11cf-96B8-444553540000"codebase="/swflash.cab#version=7,0,19,0"width="1000"height="306">

日志分类

<%setrs1=server.createobject("ADODB.Recordset")

sql1="selectdistinct分类from日志"

rs1.opensql1,conn,1,3

IfNotrs1.EofThen

dowhilenot(rs1.eoforerr)

%>

id=<%=rs1("分类")%>"><%=left(rs1("分类"),10)%>

<%

rs1.movenext

loop

endif

rs1.close

setrs1=nothing

%>

<%

mtonext=page*10

biaozhi=0

setrs1=server.createobject("ADODB.Recordset")

iflen(id)<1then

sql1="select*from日志orderby编号asc"

else

sql1="select*from日志where分类="&"'"&id&"'"&"orderby编号asc"

endif

rs1.opensql1,conn,1,3

rs1.movemtonext

dowhilenot(rs1.eoforerr)

ifbiaozhi<10then

biaozhi=biaozhi+1

%>

id=<%=rs1("编号")%>"><%=left(rs1("标题"),14)%>

<%=left(trim((rs1("内容"))),200)%>...

<%

Else

exitdo

endif

rs1.movenext

loop

rs1.close

setrs1=nothing

ifpage<=0then

pageshang=0

else

pageshang=page-1

endif%>

id=<%=id%>&page=<%=pageshang%>">上一页

id=<%=id%>&page=<%=page+1%>">下一页

 

 

5.2留言模块

主要代码如下:

--#includefile="conn.asp"-->

<%

id=Trim(request("id"))

action=request("action")

ifaction="liuyan"then

conn.Execute("INSERTINTO留言(昵称,内容,留言时间)Values('"&request("nicheng")&"','"&request("neirong")&"','"&now()&"')")

endif%>

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""">

<%=list_biaoti%>

首页|小游戏|留言板|管理中心

日志分类

<%setrs1=server.createobject("ADODB.Recordset")

sql1="selectdistinct分类from日志"

rs1.opensql1,conn,1,3

IfNotrs1.EofThen

dowhilenot(rs1.eoforerr)

%>

id=<%=rs1("分类")%>"><%=left(rs1("分类"),6)%>

<%

rs1.movenext

loop

endif

rs1.close

setrs1=nothing

%>

留言板

<%setrs1=server.createobject("ADODB.Recordset")

sql1="select*from留言"

rs1.opensql1,conn,1,3

IfNotrs1.EofThen

dowhilenot(rs1.eoforerr)

%>


<%=left(rs1("内容"),180)%>

用户:

<%=rs1("昵称")%>留言时间:

<%=rs1("留言时间")%>

<%

rs1.movenext

loop

endif

rs1.close

setrs1=nothing

%>

id=<%=id%>&action=liuyan">

留言

昵称:


内容:


举报
举报
版权申诉
版权申诉
word格式文档无特别注明外均可编辑修改;预览文档经过压缩,下载后原文更清晰! 立即下载
配套讲稿:

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

特殊限制:

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

关 键  词:
个人 BLOG 特点 发展 现状
提示  冰点文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:个人BLOG的特点与发展现状.docx
链接地址:https://www.bingdoc.com/p-2058341.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2


收起
展开