asp 信息发布条数限制

abdurehim 2010-04-29 12:52:35

一个房产公司网站，公司经纪人可以在公司网站发布自己的房源。
网站内经纪人没有级别之分，所有经纪人必须限制为每人总共只允许发布20条数据，超过20条就有提示。
思路我大概有，现在就是得在写入数据库的那个页面加一点儿代码先做出判断是否达到最大发布限制条数，如果到了就不让发布并给出提示，如果没满20条则可以继续发。
提交表单的页面，经纪人的表单名为man ,数据库里相应的项也为man
现在的代码如下


<%
dim rs,sql,pb,house_ms,bh
bh=replace(now(),left(now(),2),"")
bh=replace(bh,"-","")
bh=replace(bh,":","")
bh=replace(bh," ","")
bh="cs" & bh
pb=request("pb")
pb=replace(pb," "," ")
pb=replace(pb,chr(13)&chr(10),"<Br>")
house_ms=request("house_ms")

sql="select * from [house_sell]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew

rs("bh")=bh
rs("house_ms")=house_ms
rs("man")=request("man")
rs("tel")=request("tel")
rs("date")=now()
rs.update
%>
<SCRIPT LANGUAGE=javascript>

</SCRIPT>

希望能给出详细的写法，不要随便给个思路。。我现在脑子乱的进入死胡同了。。。
希望高手能给出的是整页的代码怎么改的，非常感谢。

...全文

111 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

hqudicky 2010-04-30

打赏
举报

敢问LZ 你的"end if" 跑哪里去了? 不用加end if 吗

wqjywyg2009 2010-04-29

打赏
举报

上楼正解!!!

mz48602 2010-04-29

打赏
举报

统计经纪人所发的信息条数，如果大于20则弹出提示！方法同上

abdurehim 2010-04-29

打赏
举报

<%
dim rs,sql,strsql,pb,house_ms,bh
%>
<%
strSql="select * from [house_sell] where man="&request.Form("man")
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
%>
<%
If "&rs.RecordCount&">20 Then
response.write"<script>alert('您已经发布了20条信息!规定每用户最多只能发布20条!')</script>"
else
%>

<%
bh=replace(now(),left(now(),2),"")
bh=replace(bh,"-","")
bh=replace(bh,":","")
bh=replace(bh," ","")
bh="cs" & bh
pb=request("pb")
pb=replace(pb," "," ")
pb=replace(pb,chr(13)&chr(10),"<Br>")
house_ms=request("house_ms")

sql="select * from [house_sell]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
rs.addnew

rs("bh")=bh
rs("house_ms")=house_ms
rs("man")=request("man")
rs("tel")=request("tel")
rs("date")=now()
rs.update
%>
<SCRIPT LANGUAGE=javascript>

</SCRIPT>

自己试着改了下到这个，但是提示错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。

指的是我发的这个代码的第八行的：
rs.open strSql,conn,3,3