asp留言本源码及论文 第9页
和代码如下:
<%response.buffer=true%>
<%response.expires=0%>
这两名话的作用是打开内存中的缓冲区。
<script language="javascript">
function presub(f) {
if(f.usname.value=="")
{
alert("请输入用户名");
return false;}
else if(f.uspas.value=="")
{
alert("请输入密码");
return false;}
else
return true;
}
</script>
以上这段程序的功能是利用JAVA脚本进行本地验证,当管理员输入的用户名和密码为空值或者不正确值的时候给出相应的提示
4.5 管理员回复与删除留言模块
此模块的功能是管理员可以进入,并且可以进行增加和删除等功能,(此模块的缩略图如3.4)具体的实现方和代码如下:
(图4.5)
当用户点删除时,弹出提示,询问是否删除,如果确定点是,否则点取消。
<%response.buffer=true%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from lyb","dsn=stu;"
%>
<%set cn=server.createobject("adodb.connection")
cn.open"dsn=stu;"
%>
定义缓冲区和连接数据源。
<!--#include file="conn.asp"-->
<%
username=request.querystring("username")
if trim(username)<>"" then
sql="delete from lyb where 昵称='"& username & "'"
cn.execute sql
end if
%>
<%'***************************************显示数据库表stu中的信息***************************************
sql="select * from lyb "
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn,1
numzhuce=rs.RecordCount
page=request.querystring("page") '接收上一页、下一页的页号
if len(page)>0 and isnumeric(page) then
page=int(page)
else
page=1
end if
if not rs.eof then
size=7
rs.PageSize=size '每页记录数
TotlePage=rs.PageCount '总页数
TotlePage=int(numzhuce/size)
if (numzhuce mod size)>0 then TotlePage=TotlePage+1 '总页数
if page<1 or page>TotlePage then
page=1
rs.AbsolutePage=page '当前页
else
rs.AbsolutePage=page '当前页
end if
num=1 '循环变量初值
%>
把总页数和每页的内容分别赋给变量。
<% ' ****************************删除确认******************************************%>
<script language=javascript>
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
asp留言本源码及论文 第9页下载如图片无法显示或论文不完整,请联系qq752018766