◥◣★asp如何限制会员发布信息的条数呢？★◢◤ - 编程论坛

#2

adam11032007-09-02 23:29

我只知道用判断语句

先对身份进行判断

如果是普通会员则对发布的信息进行判断大于5则跳转到限制的页面

如果是会员则直接跳出

代码我不会写

那位高手会写帮帮忙

让我这个初学者也看看....

#3

天涯听雨2007-09-03 14:02

在用户信息表用上两个字段来作判断。。。一个用户的类型，是普通还是VIP 另加一个字段来记录用户发布的信息数

UserType int 0-普通 1-Vip 用户类型

UserMesInt int 默认0

登陆后，如进入发布信息页 UserAddMes.asp

--------------------------------------------------
在这个页写这些代码

<%
rs.Conn.exeCute("Select top 1 UserType,UserMesInt from [dbuser] where UserName='"&Session("UserName")&"'")

if rs.eof then
response.write"<script language=JavaScript>alert('读取信息失败，请联系我们!');history.back(-1)</script>"
response.end
end if

if rs("UserType")=0 then
if rs("UserMesInt")>5 then
response.write"<script language=JavaScript>alert('对不起，您是普通用户，最多只能发布五条信息，开通VIP用户将不受限制!');history.back(-1)</script>"
response.end
end if
end if
%>

#4

天涯听雨2007-09-03 14:04

在用户信息表用上两个字段来作判断。。。一个用户的类型，是普通还是VIP 另加一个字段来记录用户发布的信息数

UserType int 0-普通 1-Vip 用户类型

UserMesInt int 默认0

登陆后，如进入发布信息页 UserAddMes.asp

--------------------------------------------------
在这个页写这些代码

<%
rs.Conn.exeCute("Select top 1 UserType,UserMesInt from [dbuser] where UserName='"&Session("UserName")&"'")

if rs.eof then
response.write"<script language=JavaScript>alert('读取信息失败，请联系我们!');history.back(-1)</script>"
response.end
end if

if rs("UserType")=0 then
if rs("UserMesInt")>5 then
response.write"<script language=JavaScript>alert('对不起，您是普通用户，最多只能发布五条信息，开通VIP用户将不受限制!');history.back(-1)</script>"
response.end
end if
end if
%>

#5

xinjiang5182007-09-03 16:38

回复：（天涯听雨）在用户信息表用上两个字段来作判断...

为什么显示：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'rs'

#6

想象力2007-09-04 09:49

你设的变量就不是rs喽，仔细看看conn里面的代码，是不是rs，或者是其他的

#7

天涯听雨2007-09-04 10:16

<%
rs.Conn.exeCute("Select top 1 UserType,UserMesInt from [dbuser] where UserName='"&Session("UserName")&"'")

if rs.eof then
response.write"<script language=JavaScript>alert('读取信息失败，请联系我们!');history.back(-1)</script>"
response.end
end if

if rs("UserType")=0 then
if rs("UserMesInt")>5 then
response.write"<script language=JavaScript>alert('对不起，您是普通用户，最多只能发布五条信息，开通VIP用户将不受限制!');history.back(-1)</script>"
response.end
end if
end if
%>

红色部份写代代码(写快点，没有注意到)，抱歉，改成如下：
----------------------------------------------------------------

rs=Conn.exeCute("Select top 1 UserType,UserMesInt from [dbuser] where UserName='"&Session("UserName")&"'")