addtalkear.asp

一个比较完整的oa系统

<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%
action=request("action"):SubjectId=request("SubjectId"):ColumnName="":Tablename="HX_Talkear"
if SubjectId<>"" and isnumeric(SubjectId) and action<>"send" then
Orderby=" where WS_TAID="&SubjectId
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if rs.recordcount>0 then
 msg="回复："&rs("WS_TalkEarSubject")
 menutitle="回复帖子"
end if
else
Orderby="":menutitle="发表新帖"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
end if
if action="send" then
rs.addnew
rs("WS_TalkEarName")=LOGINUSERNAME