这样 *** 作起来不太方便,建议你在用户表格〔比如User〕中添加一个字段AddedNum,当用户添加一条新闻后自动增加1个纪录:
<%
'插入新闻代码省略
……
Sql="insert into [news]()values()"
……
'加入一个纪录:
Conn.execute("Update [User] set AddedNum=AddedNum+1 where UserID="&session("UserID")&"")
Response.write"添加成功"
%>
然后在发布新闻页面前添加一个判断
<%
Dim chkRs
Set chkRs=conn.execute("select * from [User] where ID="&Session("id")&"")
if chkRs("AddedNum")>30 then
Response.write"<script language='javascript'>alert('你只能添加30条纪录')window.close()</script>"
else
插入新闻代码(即上面第一段代码)
end if
Set chkRs=nothing
%>
当然 如果你不愿意更改表结构,坚持把username放在news中来区分,也是可以的:
<%
Dim userAddNum
userAddNum=Conn.execute("select count(*) from [News] where username='"&Session("Username")&"'",0,1)(0)
if UserAddNum>30 then
Response.write"<script language='javascript'>alert('你只能添加30条纪录')window.close()</script>"
else
……
end if
%>
装个.net开发环境,要么就装一个虚拟机!直接用iis就可以,,要么就装一个vs,只是不知道你那个.net是什么版本的,,要是1.1的就装一个vs2003要是2.0的就装一个vs2005就可以了!欢迎分享,转载请注明来源:内存溢出
评论列表(0条)