ASP留言板（在一页里实现所有功能）

很久没发贴了，因为这些时间又在做ＡＳＰ的页面，没用dotnet，有时真有点过意不去了。唉！中国现状呀！
发一个ＡＳＰ留言板，当资料存着，自己写的，很简单。把留言功能，删除功能，回复留言功能都写到一个页面里的，用的ＡＣＣＥＳＳ数据库，数据库结构直接看源代码出能分板出来了。

<% dim newConn,pwd,pagenum

pwd="aowind"

pagenum=5

set newconn=Server.CreateObject("ADODB.Connection")

dbpath= server.mappath("data/langzhong.mdb")

newconn.open = "provider=microsoft.jet.oledb.4.0; data source =" & dbpath %>

dim t_pwd,t_id,t_answer

t_pwd=request("pwd")

t_id=request("id")

t_answer=request("answer")

if t_id<>"" and t_pwd=pwd and t_answer="" then

sqlcmd="delete from guest where id="&t_id&""

newconn.execute sqlcmd

end if

if t_id<>"" and t_pwd=pwd and t_answer<>"" then

set rs = Server.CreateObject("ADODB.recordset")

sqlcmd="select * from guest where id=" & t_id

rs.open sqlcmd, newconn,3,2

rs("answer")=t_answer

rs.update

rs.close

end if

dim t_name,t_form,t_email,t_cont,t_ip,t_attime,t_qq,t_teleno

t_qq=request("qq")

t_teleno=request("teleno")

if t_teleno="" then t_teleno=" "

t_name=request("name")

t_form=request("form")

if t_form="" then t_form=" "

t_email=request("email")

if t_email="" then t_email=" "

t_cont=Server.HTMLEncode(request("cont"))

t_ip=request.servervariables("Remote_addr")

t_attime=cstr(year(now))&"/"&cstr(month(now))&"/"&cstr(day(now))&"-"&cstr(hour(now))&":"&cstr(minute(now))&":"&cstr(second(now))

if t_name<>"" and t_cont<>"" and t_qq<>"" then

sqlcmd="insert Into guest(name,qq,teleno,form,email,cont,ip,attime) values ('"&t_name&"','"&t_qq&"','"&t_teleno&"','"&t_form&"','" & t_email & "','" & t_cont & "','" & t_ip & "','" & t_attime & "')"

newconn.Execute sqlcmd

end if

<HTML>

<HEAD>

<TITLE>langzhong.com.cn 阆中＝朗忠服务器虚拟主机网站推广网站制作合租计划服务器直销</TITLE>

<style>

<!--

td { font-size: 9pt }

table {WORD-BREAK: break-all;}

-->

</style>

</HEAD>

<tr>

<TR>

</TR>

<TR>

　</TD>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<tr>

if request.querystring("del") <> "" then

t_id=request.querystring("del")

<tr>

<td>

请输入管理员密码：

</form></td>

</tr>

</table>

</center>

</div>

<% else

if request.querystring("id") <> "" then

t_id=request.querystring("id")

<tr>

<td>

输入答复：

<textarea name="answer" cols="40" id="answer" rows="1">必须输入，否则会删除此留言</textarea>

<br>

请输入管理员密码：

</form></td>

</tr>

</table>

</center>

</div>

<%else%>

<%set rs = Server.CreateObject("ADODB.recordset")

sqlcmd="select * from guest order by id desc"

rs.open sqlcmd, newconn,1,1

rs.pagesize=pagenum

if request.querystring("page") <> "" then

page=Clng(request.querystring("page"))

end if

if page < 0 then

page = 0

else

if page => rs.pagecount then

page=rs.pagecount-1

end if

u=page+1

t=page*pagenum

f=T+pagenum

if t <> 0 then

for i=1 to t

rs.movenext

end if

for i= 1 to pagenum

</tr>

<tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<td width="100%" height="25"> Email：<%=rs("email")%></td>

</tr>

</table>

</td>

</tr>

<tr>

</tr>

<% if rs("answer")<>"" then %>

<tr>

    <%=rs("answer")%></td>

</tr>

<% end if %>

</table>

</center>

</div>

<br>

rs.movenext

if rs.eof then exit for

next %>

<tr>

<td align="center">共<%=rs.recordcount %>条留言每页<%=pagenum%>条第

<% =u %>

<% =rs.pagecount %>

页 <a href="guest.asp?page=0">首页</a> <a href="guest.asp?page=<%=(page-1)%>">上一页</a>

</tr>

</table>

rs.close

%><form name="form1" method="post" action="guest.asp">

<p align="center"><font color="#FF0000">*</font>号为必填项，否则不能提交成功</p>

<tr>

</tr>

<tr>

</tr>

<tr>

<td>

</tr>

<tr>

</tr>

<tr>

<td height="26" align="center" bgcolor="#CCCCCC">Email：</td>

</tr>

<tr>

</tr>

</tr>

</table>

</center>

</div>

</form>

<%end if

end if%>

newconn.close

</td>

</tr>

<tr>

<td width="100%" height="25" align="center"> <font color="#000000">相关证书及授权印件：</font><a href="tup/021icp.jpg" style="text-decoration: none"><font color="#FF0000">ICP证书</font></a><font color="#FF0000"> 

</font> <a href="tup/sq.jpg" style="text-decoration: none"><font color="#FF0000">申网授权</font></a><font color="#FF0000"> 

</font> <a href="tup/sy1.jpg" style="text-decoration: none"><font color="#FF0000">企业会员证</font></a><font color="#FF0000"> 

</font> <a href="tup/yyzz.jpg" style="text-decoration: none"><font color="#FF0000">营业执照</font></a><font color="#FF0000">

<a href="icp.html" style="text-decoration: none"> <font color="#FF0000">ICP备案</font></a></font></td>

</tr>

<tr>

<font color="#000000">About us</font></a> | <a href="money.html" style="TEXT-DECORATION: none">

<font color="#000000">朗忠淘宝店</font></a></font> | <a href="dl.htm" style="text-decoration: none">

</tr>

<tr>

<td width="100%" height="25" align="center"> <font face="宋体" color="#000000">服务器租用QQ即时交谈　租用客服1号</font><font face="宋体" color="#4A4A4A"><a target="blank" href="http://wpa.qq.com/msgrd?V=1&Uin=415846053&Site=www.langzhong.com.cn&Menu=yes"><font color="#000000"><img border="0" SRC=http://wpa.qq.com/pa?p=1:415846053:5 alt="点击这里给我发消息"></font></a></font><font face="宋体" color="#000000">

租用客服2号</font><font face="宋体" color="#4A4A4A"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=6235700&Site=www.langzhong.com.cn&Menu=yes><font color="#000000"><img border="0" SRC=http://wpa.qq.com/pa?p=1:6235700:5 alt="点击这里给我发消息"></font></a></font></td>

</tr>

</table>

</TD>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

</TR>

<TR>

<tr>

</tr>

<tr>

</tr>

<tr>

<option value="-1">无效

<option value="365">一年

<option value=1>一天

<option value=2>两天

<option value=7>一周

<option value=31>一月

</select>  

</tr>

<tr>

<td width="100%" colspan="2" height="25">[<a href=../User/UserGetPass.asp><font color="#4A4A4A">忘记密码了</font></a>]　[<a href=../User/UserJoin.asp><font color="#4A4A4A">新用户注册</font></a>]</td>

</tr>

<tr>

</tr>

<tr>

</td>

</tr>

<tr>

沪ICP：B2-20040587 </a>

</td>

</tr>

<tr>

</tr>

<tr>

赣ICP备05000434号</td>

</tr>

<tr>

</tr>

</table>

</center>

</div>

</TD>

</TR>

</TABLE>

</div>

</BODY>

</HTML>

转载于:https://www.cnblogs.com/aowind/archive/2005/07/14/192534.html

ASP留言板（在一页里实现所有功能）相关推荐

asp留言板源码-XYCMS留言板 v8.0
简介: XYCMS留言板是以asp+access进行开发的asp留言板源码. 功能介绍: 查看留言:后台现在可以设置前台留言分页显示条数添加留言:添加留言加入了验证码,防止被灌水,同时也加入防简单的 ...
php留言板上传图片,thinkphp3.2.3留言板带管理没有后台ajax上传图片功能
[实例简介] 本系统来自[深入体验PHP项目开发].谭贞军第一章贝斯留言本功能: 浏览留言不需要注册发表留言登录管理员管理留言(删除,回复/编辑,置顶,显示/隐藏) 系统管理(内容保存在一个文 ...
分享111个ASP留言日记源码，总有一款适合您
分享111个ASP留言日记源码,总有一款适合您 111个ASP留言日记源码下载链接:https://pan.baidu.com/s/1RCYso_g1VRpPlJnnNg6RRw?pwd=wcjx ...
php制作留言板ppt,学习制作PHP.MYSQL留言板.ppt
<学习制作PHP.MYSQL留言板.ppt>由会员分享,可在线阅读,更多相关<学习制作PHP.MYSQL留言板.ppt(7页珍藏版)>请在人人文库网上搜索. 1.第11讲)学习 ...
使用JavaScript备份QQ空间的留言板数据
内容转载自我的博客文章目录 1. 目标网站 2. 保存浏览器调试窗口的变量到本地文件 3. 编写代码 4. 备份完成 5. 后记 1. 目标网站此代码是专门为了备份本人的QQ空间留言板的数据而编写 ...
xycms留言板 php 1.5,XYCMS留言板PHP版源码下载 v1.7
XYCMS留言板是以php+MySQL进行开发的php留言板源码,软件为普通的留言板可广泛应用于企业网站等需要留言板的网站中进行使用. 安装路径:/install 后台路径:/system/ 后台默认 ...
零代码一条链接开启你自己的留言板 message-board
MessageBoard 笔者空闲时间搞了一个留言板,加了一个通用的功能,使得第三方可以一条链接就开启属于你自己的留言板特性支持markdown 支持emoji 支持代码高亮支持实时预览支持插 ...
ASP.NET：Repeater 留言板
在学习DataGrid控件和DataList控件后,我们知道,DataGrid控件对数据输出格式是自动生成HtmlTable标记的,DataList控件也是这样,它根据数据内容来生成数据控制表格.而R ...
asp.net ajax 源码,asp.net+jquery+ajax简单留言板 v1.2
asp.netC#+jquery1.4.1 +ajax留言板程序说明采用asp.net C#+ jquery1.4.1 +ajax的实现主要用aspx文件请求还可以用ashx处理 ajax返回类 ...

ASP留言板（在一页里实现所有功能）

ASP留言板（在一页里实现所有功能）相关推荐

最新文章

热门文章