繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 简单的浮点论坛
- ASP
- 开辟一条自由ASP快车道
- 用XML结合数据库，给服务器减负。
- 纯编码实现数据库的建立或压缩
- 多个表单和多个图片一起上传完美解决方案
- 列表项可上下移动的Multiple列表
- 模拟QQ的下拉列表选择图象
- 利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)
- 二级域名原理以及程序，申请即可开通.
- 利用ASP+XML架设在线考试系统
- ASP项目中的通用条件查询模块
- 一个为字符串中的网址加上链接的程序例子
- 用Agent+ASP技术制作语音聊天室
- 多表单域无组件文件上传的例子
- 使用xmlhttp为网站增加股市行情查询功能
- 用ASP开发WEB日期选择器
- javascript+HTML仿造VB里的MonthView控件
- 使用xmlHttp结合ASP，实现网页的异步调用
- 调用DirectX的组件实现的时钟
- 在ASP页里面注册DLL的VBScript CLASS
- ASP程序界面的多语言支持
ASP 中的 简单的浮点论坛
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 45 ::
收藏到网摘: n/a
-----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">
</t
评论 (0) All
