<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/connect.asp" -->
<%
Username=Checkstr(request.querystring("Username"))
if Username="" then
response.end()
end if
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLArticle where ArticleID is null"
rs.open sql,cn,1,3
rs.addnew
rs("Username")=Username
rs("Topic")=request.form("topic")
rs("SysGroupID")=request.form("articlesysgroup")
rs("GroupID")=request.form("articlegroup")
rs("Content")=request.form("content")
rs.update
rs.close
set rs=nothing

set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ArticleSysGroup where GroupID="&request.form("articlesysgroup")&""
rs.open sql,cn,1,3
rs("ArticleNum")=rs("ArticleNum")+1
rs.update
rs.close
set rs=nothing
response.redirect("articlelist.asp?Username="&Username&"")
%>
