|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|--一个简单的bbs(五)

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

一个简单的bbs(五)

显示页面disp.asp:

<% Set connection = Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("bbs.mdb")

connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

set RS=Connection.Execute("SELECT * FROM bbs WHERE ID=topnum ORDER BY ID DESC")

Set conn = Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("bbs.mdb")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Do While not RS.EOF %>

<% =RS("id") %>

<a href="detail.asp?ID=<% =RS("id") %>"><% =RS("subject") %></a>

<% =RS("authorname") %>

<%=RS("adddate") &" " %>

<% =RS("addtime") %>(<% =RS("visitnum") %>)

<% Set RSNEXT=Conn.Execute("SELECT * FROM bbs WHERE topnum<>ID and Cstr(topnum)="&rs("id")&" ORDER BY ID ASC")

Do While Not RSNEXT.EOF %>

<% =RSNEXT(0) %>

<a href="detail.asp?ID=<% =RSNEXT(0) %>">Re<% =RSNEXT(6) %>:<% =RSNEXT(2) %></a>

<% =RSNEXT(1) %> <% =RSNEXT(4) &" " %><% =RSNEXT(7) %>(<% =RSNEXT(5) %>)

<% RSNEXT.MoveNext

Loop

RS.MoveNext

Loop

rsnext.Close

Conn.Close

RS.Close

Connection.Close %>

</body>

</html>

本站关键词：

|东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计||东莞网站推广|东莞国内域名注册|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|