[心缘地方]同学录
首页 | 功能说明 | 站长通知 | 最近更新 | 编码查看转换 | 代码下载 | 常见问题及讨论 | 《深入解析ASP核心技术》 | 王小鸭自动发工资条VBA版
登录系统:用户名: 密码: 如果要讨论问题,请先注册。
发表人 主题:请求支援~~
魔幻屋
身份:user
发帖:36
登陆次数:24
1F 发表于 2005/8/11 17:50:03
站长,不好意思又麻烦你。有些留言很重要,需加精或置顶 不知能否编个程序????

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
2F 发表于 2005/8/12 8:46:58
班级留言?这个没想过,你自己加下吧,我们现在有项目,忙呀。
===============
留言表加个子段就行了,比如Y就是置顶,N就不置顶。
Update TBL_msg set xx=''Y'' where msgID=指定ID
就行了。

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
3F 发表于 2005/8/12 8:56:38
给你写一段吧:
================================
<%@ CODEPAGE="936"%>
<!--#include File="session.asp" -->
<!--#include File="conn.asp" -->
<%
if session("userLevel")<>"admin" then
    call showMsg("对不起,你无权进入此页面!")
end if
msgID=Trim(Request("msgID"))
if msgID="" or NOT IsNumeric(msgID) then
    call showMsg("参数错误。")
end if
sql="update TBL_Msg set isTop=''Y'' where msgID="&msgID
conn.execute sql
call closeConn()
response.redirect "msg_index.asp"
======================================================
把上边的代码保存为admin_msgTop.asp,
然后msg_index.asp里,查找“<HR align="center" size="1" noshade color="#CC3333">”,在他前面加:
<%if session("userLevel")="admin" then%>
<a href="admin_msgTop.asp?msgID=<%=rs("msgID")%>">置顶</a>
<%end if%>

===============================
最后数据库的TBL_msg加个子段,isTop,文本型,长度1。

完了。

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
4F 发表于 2005/8/12 8:59:09
可能还需要取消置顶,稍微麻烦些。
或者给admin_msgTop.asp多传一个参数,作为置顶或取消置顶的标志。
或者在admin_msgTop.asp里查询msgID的isTop,update成相反的。
你自己来写吧……

上边的我没有试,有问题再提吧。

ywd
身份:user
发帖:8
登陆次数:0
5F 发表于 2006/1/6 21:54:26
老大
最后数据库的TBL_msg加个子段,isTop,文本型,长度1。
这个怎么弄啊?
我怎么找不到tbl_msg 这个文件啊?

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
6F 发表于 2006/1/7 14:27:04
Data目录下,有个mdb文件(如果后缀是asp,改成mdb),打开,里面有个表,叫TBL_Msg,
设计视图,添加个字段就行了。

ywd
身份:user
发帖:8
登陆次数:0
7F 发表于 2006/1/7 17:37:19
老大回复真及时啊!
不过,我的Data目录只有一个abcd.asp文件,奇怪了
但是我的所有代码都是在这里下载的啊!
麻烦老大再帮我看看。谢谢了

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
8F 发表于 2006/1/7 17:56:46
恩,这个文件就是,把它改名为abcd.mdb就能打开了。
添加完字段后,再把名字改回去。

ywd
身份:user
发帖:8
登陆次数:0
9F 发表于 2006/1/9 20:02:37
已经安装老大的方法做了,也有了置顶的按键,但是按了以后显示:
 无法显示网页 
您要访问的网页有问题,无法显示。 
唉,可能是我比较笨吧。
老大能不能编译好给我下载?把置顶.加精和取消置顶都加上去?


嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
10F 发表于 2006/1/10 10:32:27
你已经参照3楼的代码,把那段保存为admin_msgTop.asp了吧。

sql="update TBL_Msg set isTop=''Y'' where msgID="&msgID


这句的isTop="Y" 两边应该只有一个单引号,这里帖的时候被替换了,所以不对。
你改成一个单引号就对了。

嘎嘎,是我
身份:admin
发帖:1435
登陆次数:3222
11F 发表于 2006/1/10 10:36:02
取消置顶,一样,update成N就行了。
加精和置顶一个原理,再加一个字段就好了。
===================
晕,这是留言本,又不是论坛,还要加入精华,呵呵,你真能搞。

 
标题:
消息图标:                                             
                                            
正文:



* UBB 代码开启

 
CopyRight © 心缘地方 2005-2999. All Rights Reserved