亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

簡單的浮點論壇

2019-11-18 20:34:39
字體：大 中 小
來源：轉載
供稿：網友
簡單的做了一個，掃描一次數據庫可得一棵樹
-----index.asp------

<html>

<head>
<title>浮點論壇</title></head>

<body marginwidth="0" marginheight="0">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="24" >
<tr>
<td width="80"> </td>
<td><a href="#form">發新貼</A></td>
</tr>
</table>

<br>
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<% set dbr = server.createobject("adodb.recordset")%>
<% dbr.pagesize = 50 %>
<% dbr.CacheSize = dbr.pagesize %>
<% dbr.open "select * from forum where (isdel = 'n') order by id desc",application("oledb") ,1,1%>
<% msgcount=dbr.recordcount %>
<% msgpcount=dbr.pagecount %>
<% pagelist=request("pagelist") %>
<% if CINT(pagelist) > dbr.pagecount then pagelist = dbr.pagecount %>
<% if CINT(pagelist) < 1 then pagelist=1 %>
<% dbr.AbsolutePage=pagelist %>
<% for i= 1 to dbr.pagesize %>
<tr>
<td width="100%" valign="top" align="left" colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" >姓名：<%=rtrim(dbr("name")) %></td>
<td width="25%" ><% if rtrim(dbr("email"))<>"" then %><%rtrim(dbr("email"))%><% end if %></td>
<td width="25%" >時間：<%= datevalue(dbr("thedate")) %></td>
<% a= cdbl(dbr("id")) %>
<% next %>
<td width="25%"><a href="reply.asp?id=<%=a%>">回復</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" valign="top" align="left" colspan="2"><%=rtrim(dbr("title")) %></td>
</tr>
<tr>
<td width="100%" valign="top" align="left" colspan="2"><%=replace(server.htmlencode(rtrim(dbr("comm"))),chr(13),"<br>") %></td>
</tr>
<% dbr.movenext %>
<% if dbr.EOF Then Exit For %>
<% next %>
<tr>
<td align="right" height="30" width="500"><a href="index.asp?pagelist=<%=CINT(pagelist)+1%> "><span class="link">>>更多</span></td>
<td align="right" height="30"> </td>
</tr>
</table>
<form method="POST" action="add.asp">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" class="title"><b>姓  名:</b></td>
<td width="88%">
<input type="text" name="name" size="30" class="name">
</td>
</tr>
<tr>
<td width="12%" class="title"><b>E-mail:</b></td>
<td width="88%">
<input type="text" name="email" size="30" class="box">
</td>
</tr>
<tr>
<td width="12%" class="title"><b>標  題:</b></td>
<td width="88%">
<input type="text" name="title" size="30" class="box">
</td>
</tr>
<tr>
<td width="12%" valign="top" class="title"><b>內  容:</b></td>
<td width="88%">
<textarea rows="5" name="comm" cols="30" class="box"></textarea>
</td>
</tr>
<tr>
<td width="12%"></td>
<td width="88%">
<input type="image" border="0" name="imageField" src="pic/send.gif" width="51" height="19">
</td>
</tr>
</table>
</form></div>

</body>

</html>
-----replay.asp---------

<% id = request("id")%>
<% set dbr = server.createobject("adodb.recordset")%>
<% dbr.open "select * from forum where (id=" & id & ")",application("oledb") ,1,1%>
<html>

<head>
<title>浮點論壇</title></head>

<body bgcolor="#FFFCF0" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">

<form method="POST" action="add.asp">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="12%" class="title"><b>姓  名:</b></td>
<td width="88%">
<input type="text" name="name" size="50" class="name">
</td>
</tr>
<tr>
<td width="12%" class="title"><b>E-mail:</b></td>
<td width="88%">
<input type="text" name="email" size="50" class="box">
</td>
</tr>
<tr>
<td width="12%" class="title"><b>標  題:</b></td>
<td width="88%">
<input type="text" name="title" size="50" class="box" value="RE:<%=server.htmlencode(rtrim(dbr("title")))%>">
<input type="hidden" name="id" value="<%=request("id")%>">
</td>
</tr>
<tr>
<td width="12%" valign="top" class="title"><b>內  容:</b></td>
<td width="88%">
<textarea rows="5" name="comm" cols="48" class="box"></textarea>
</td>
</tr>
<tr>
<td width="12%"></td>
<td width="88%">
<input type="image" border="0" name="imageField" src="pic/send.gif" width="51" height="19">
</td>
</tr>
</table>
</form></div>
<% dbr.close %>
<% set dbr = nothing %>
</body>

</html>
-------add.asp------
<% if request("name")="" or replace(request("title"),"RE:","")="" then %>
<html>
<head>
<title>浮點論壇</title></head>

<body background="pic/bg_bbs.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<table width="450" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60" class="title">姓名、標題不能為空</td>
</tr>
<tr>
<td align="center" height="30"><a href="index.asp" class="link">返回</a></td>
</tr>
</table>
</div>
</body>
</html>
<% response.end %>
<% end if %>
<% set dbr= server.createobject("adodb.recordset") %>
<% if request("id")="" then %>
<% dbr.open "select max(id)+1 as maxid from forum" ,application("oledb"),1,1%>

<% tid=cint(dbr("maxid")) %>
<% dbr.close%>
<% dbr.open "select top 0 * from forum",application("oledb"),1,3 %>
<%
dbr.addnew
dbr("id")=tid
dbr("title")=request("title")
dbr("comm")=request("comm")
dbr("name")=request("name")
dbr("email")=request("email")
dbr("ip")=Request.ServerVariables("REMOTE_ADDR")
dbr("isdel")="n"
dbr("thedate")=cdate(now)
dbr.update
dbr.close
%>
<% set dbr = nothing %>
<% response.redirect("index.asp")%>
<% dbr.close %>
<% else %>
<% d = request("id") %>
<% dbr.open "SELECT TOP 2 * FROM forum WHERE (id <= " & d & ") ORDER BY id DESC",application("oledb") ,1,1%>
<% if dbr.recordcount=1 then %>
<% inid=cdbl(dbr("id"))-(cdbl(dbr("id"))-0)/2%>
<% dbr.close %>

<% dbr.open "select top 0 * from forum",application("oledb"),1,3 %>
<%
dbr.addnew
dbr("id")=inid
dbr("title")=request("title")
dbr("comm")=request("comm")
dbr("name")=request("name")
dbr("email")=request("email")
dbr("ip")=Request.ServerVariables("REMOTE_ADDR")
dbr("isdel")="n"
dbr("thedate")=cdate(now)
dbr.update
dbr.close
%>
<% set dbr = nothing %>
<% response.redirect("index.asp")%>

<% elseif dbr.recordcount=2 then %>
<% maxid = cdbl(dbr("id")) %>
<% dbr.movenext %>
<% minid = cdbl(dbr("id")) %>
<% dbr.close %>
<% inid=maxid-(maxid-minid)/2 %>
<%= inid %>
<% dbr.open "select top 0 * from forum",application("oledb"),1,3 %>
<%
dbr.addnew
dbr("id")=inid
dbr("title")=request("title")
dbr("comm")=request("comm")
dbr("name")=request("name")
dbr("email")=request("email")
dbr("ip")=Request.ServerVariables("REMOTE_ADDR")
dbr("isdel")="n"
dbr("thedate")=cdate(now)
dbr.update
dbr.close
%>
<% set dbr = nothing %>
<% response.redirect("index.asp")%>
<% end if %>
<% end if %>



發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
成人福利网站在线观看11| 欧美成人黄色小视频| 日韩在线观看免费高清| 欧美亚洲另类视频| 一区二区亚洲精品国产| 亚洲国产精品免费| 国产精品xxx视频| 国产一区在线播放| 视频在线一区二区| 亚洲欧美日韩天堂| 午夜精品久久久久久久久久久久久| 国产91精品久久久| 亚洲大胆美女视频| 91精品啪在线观看麻豆免费| 久久久成人精品| 亚洲久久久久久久久久| 成人精品久久一区二区三区| 欧美在线观看一区二区三区| xxxxx成人.com| 成人免费淫片aa视频免费| 国产热re99久久6国产精品| 亚洲国产日韩精品在线| 97视频免费在线观看| 国产精品自拍网| 国产精品人人做人人爽| 日韩乱码在线视频| 欧美激情喷水视频| 久久久久久久网站| 一区二区三区在线播放欧美| 欧美综合一区第一页| 日韩在线免费视频| 亚洲男人天堂2024| 一本色道久久综合狠狠躁篇的优点| 国产欧美在线看| 亚洲欧美www| 欧美精品videossex性护士| 中文字幕成人在线| 亚洲高清色综合| 久久亚洲精品毛片| 中文在线资源观看视频网站免费不卡| 久久天天躁狠狠躁夜夜av| 亚洲精品av在线| 日韩一级裸体免费视频| 亚洲石原莉奈一区二区在线观看| 亚洲天堂视频在线观看| 精品美女国产在线| 成人福利在线视频| 亚洲毛片在线免费观看| 亚洲天堂一区二区三区| 91亚洲精华国产精华| 国产午夜精品理论片a级探花| 欧美激情奇米色| 69久久夜色精品国产69乱青草| 精品久久久香蕉免费精品视频| 日韩电影免费观看在线观看| 亚洲精品美女在线观看播放| 亚洲第一网站免费视频| 欧美日韩国产一区在线| 日韩网站免费观看高清| 91免费在线视频网站| 日韩精品视频观看| 亚洲精品在线视频| 国产精品丝袜视频| 欧美亚洲成人免费| 在线观看欧美日韩| 久久久精品视频在线观看| 日韩在线视频免费观看高清中文| 亚洲视频在线免费观看| 国产精品亚洲美女av网站| 亚洲人成在线免费观看| 久久国产精品网站| www.日韩av.com| 欧美激情区在线播放| 欧美亚洲在线观看| 日韩av在线高清| 国产免费观看久久黄| 日韩视频第一页| 97色在线观看| 日韩亚洲欧美中文在线| 中文字幕日韩欧美在线视频| 欧美理论电影在线观看| 久久人人爽人人爽人人片av高清| 亚洲片av在线| 姬川优奈aav一区二区| 亚洲欧美日韩一区二区三区在线| 欧美极品少妇xxxxⅹ裸体艺术| 久久久这里只有精品视频| 成人精品网站在线观看| 91欧美视频网站| 欧美日本高清视频| 国产男人精品视频| 国产不卡精品视男人的天堂| 亚洲精品一区二区三区婷婷月| 深夜福利国产精品| 激情懂色av一区av二区av| 亲爱的老师9免费观看全集电视剧| 九色成人免费视频| 欧美性生交xxxxx久久久| 大桥未久av一区二区三区| 97成人精品区在线播放| 色综合久久精品亚洲国产| 国产精品极品美女粉嫩高清在线| 午夜精品www| 国产精品欧美日韩| 欧美激情视频一区二区| 久久精品视频在线| 亚洲国产一区二区三区在线观看| 欧美极品在线视频| 欧美另类暴力丝袜| 欧美激情视频一区| 国模吧一区二区| 日韩在线观看免费全集电视剧网站| 91免费国产视频| 日韩小视频网址| 欧美贵妇videos办公室| 神马久久桃色视频| 国产精品一区二区3区| 一个人www欧美| 国产精品久久久久av| 亚洲天堂免费在线| 91免费精品国偷自产在线| 国产精品久久99久久| 91成人在线观看国产| 亚洲一区www| 欧美国产在线电影| 麻豆精品精华液| 久久91亚洲精品中文字幕| 日韩成人激情影院| 日本sm极度另类视频| 最近2019年好看中文字幕视频| 亚洲天堂av电影| 亚洲欧美激情视频| 成人性生交大片免费观看嘿嘿视频| 精品福利樱桃av导航| 日韩欧美在线视频观看| 日韩av在线最新| 日韩在线视频国产| 亚洲国产精品视频在线观看| 欧美国产乱视频| 成人在线小视频| 国产一区二区三区视频在线观看| 亚洲日本aⅴ片在线观看香蕉| 国产婷婷97碰碰久久人人蜜臀| 亚洲成av人影院在线观看| 亚洲人成在线电影| 久久久人成影片一区二区三区观看| 国产精品久久国产精品99gif| 国产精品精品国产| 高清一区二区三区四区五区| 黄网动漫久久久| 国产精品免费一区| 亚洲欧美色图片| 国产亚洲视频在线观看| 国产成人午夜视频网址| 国产激情综合五月久久| 国产精品第3页| 日韩亚洲成人av在线| 成人激情春色网| 国产精品成人久久久久| 亚洲国产婷婷香蕉久久久久久| 中文字幕亚洲欧美日韩2019| 亚洲国产成人久久综合| 久久久久久91| 中文精品99久久国产香蕉|