Question

求简单ASP代码 提交用户发表文章总数

<!--#include file="mdb.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');this.location.href='login.asp';</script>")
response.end
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');this.location.href='login.asp';</script>")

response.end
end if
action=request("action")
memo=request("memo")
if memo="" then
memo="无"
end if
title=CheckStr(trim(request.form("title")))
username=request("username")
url=request("url")
if url="" then
url="无"
end if
yl_time=now()
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or username="" or leibie="" then
Response.Write ("<script language=javascript>alert('表单填写不完整！');this.location.href='login.asp';</script>")
Response.End
end if

set rs=server.createobject("adodb.recordset")
rs.open "select title from detail where title='"&title&"'",conn,1,1
if rs.eof and rs.bof then
'证明没重复
else
response.Write"<script language=javascript> alert(""非常感谢）"");history.go(-1)</script>"
end if
rs.close
set rs=nothing

if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("username")=username
rss("memo")=memo
rss("yl_time")=now()
rss("verity")=1
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title
Response.Write ("<script language=javascript>alert('你 的文章已经成功提交！感谢你的支持！');this.location.href='weishen.asp';</script>")
Response.End
end if
end if

%>

我想要的是，给该会员增加文章发表总数量+1在另一张表 “user” 里面，
大概是是这样的 我不懂怎么加 呵呵
rss.open "select * from user where username=会员名",conn,1,3
rss.addnew
rss("wzzs")=wzzs+1

请高手指点 谢谢了
麻烦给我一个直接能用的代码
不需要我修改
谢谢了
谢谢大家~~~
对不起 我还需要补充问题，
增加一语句为：
如果 该会员名 在 表 “user” 里面 不存在，则创建它 ，并将文章发表总数量+1

Answer 1

首先,说明一下:
你要必须保证 user这个表是存在的,并且表中有 wzzs 这个字段且是数值型的
还有,该表中的username字段跟detail表中的username字段是一致的

如果这些条件都满足,那么 把你提供的这最后一段代码改成

if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("username")=username
rss("memo")=memo
rss("yl_time")=now()
rss("verity")=1
rss.update
rss.close
set rss=nothing
Session("lastaddedwz")=title

Dim sqlwzzs, rswzzs
sqlwzzs = "select * from user where username='" & username & "'"
Set rswzzs = server.createobject("adodb.recordset")
rswzzs.Open sqlwzzs, Conn, 1, 3
If Not(rswzzs.BOF And rswzzs.EOF) Then
If rswzzs("wzzs") = "" Or IsNull(rswzzs("wzzs")) Then
rswzzs("wzzs") = 1
Else
rswzzs("wzzs") = rswzzs("wzzs") + 1
End If
rswzzs.Update
End If
rswzzs.Close
Set rswzzs = Nothing
Response.Write ("<script language=javascript>alert('你 的文章已经成功提交！感谢你的支持！');this.location.href='weishen.asp';</script>")
Response.End
end if
end if

Answer 2

wzzs这是统计文章数的吧
每次添加
rss.open " update user set wzzs=wzzs+1 where username=会员名",conn,1,3

但是要注意这个页面不能让别人刷新，要么他不发布也给加文章数了
也不能让用户直接进入这个页面
提交完就让他跳转
Response.Write ("<script language=javascript>alert('你 的文章已经成功提交！感谢你的支持！');this.location.href='weishen.asp';</script>")

还有加个从发表文章页面传个值，这个页面取不到就证明不是从发表文章的页面过来的，那就不给加文章篇数。

Answer 3

wzzs这是统计文章数的吧
每次添加
rss.open " update user set wzzs=wzzs+1 where username=会员名",conn,1,3

Response.Write ("<script language=javascript>alert('你 的文章已经成功提交！感谢你的支持！');this.location.href='weishen.asp';</script>")

Answer 4

<!--#include file="mdb.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
Response.Write ("<script language=javascript>alert('验证码不能为空！');this.location.href='login.asp';</script>")
response.end
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write ("<script language=javascript>alert('验证码输入有误请核对！');this.location.href='login.asp';</script>")

response.end
end if
action=request("action")
memo=request("memo")
if memo="" then
memo="无"
end if
title=CheckStr(trim(request.form("title")))
username=request("username")
url=request("url")
if url="" then
url="无"
end if
yl_time=now()
classname=request("classname")
leibie=request("leibie")
if action="add_wz" then
if title="" or username="" or leibie="" then
Response.Write ("<script language=javascript>alert('表单填写不完整！');this.location.href='login.asp';</script>")
Response.End
end if

set rs=server.createobject("adodb.recordset")
rs.open "select title from detail where title='"&title&"'",conn,1,1
if rs.eof and rs.bof then
'证明没重复
else
response.Write"<script language=javascript> alert(""非常感谢）"");history.go(-1)</script>"
end if
rs.close
set rs=nothing

if Session("lastaddedwz")<>title then
set rss=server.createobject("adodb.recordset")
rss.open "select * from detail",conn,1,3
rss.addnew
rss("title")=title
rss("url")=url
rss("classid")=leibie
rss("username")=username
rss("memo")=memo
rss("yl_time")=now()
rss("verity")=1
rss.update
rss.close
set rss=nothing

'============================================加入以下代码;
set rs_upnum=server.createobject("adodb.recordset")
rs_upnum.open "select * from user where username='"&username&"'"
If rs_upnum("wzzs") = "" Or IsNull(rs_upnum("wzzs")) Then
rs_upnum("wzzs") = 1
Else
rs_upnum("wzzs")=rs_upnum("wzzs")+1
end if
'============================================
Session("lastaddedwz")=title
Response.Write ("<script language=javascript>alert('你 的文章已经成功提交！感谢你的支持！');this.location.href='weishen.asp';</script>")
Response.End
end if
end if
%>