addtalkear.asp

又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用

<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%if WS_S.MemberPriv("WS_SystemSettalkear")<>1 then response.Write "<script>alert('对不起,您的权限不够!');window.close();</script>":response.end
action=request("action"):SubjectId=request("SubjectId"):ColumnName="":Tablename="HX_Talkear":Tablename1="HX_Department"
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="回复帖子"
else
 Orderby="":menutitle="发表新帖"
 set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
end if
if action="send" then
rs.addnew:rs("WS_TalkEarName")=LOGINUSERNAME:rs("WS_TalkEarSubject")=request("title"):rs("WS_TalkEarSendTime")=now:rs("WS_TalkEarcontent")=WS_S.UBBCode(request("content")):rs("WS_TalkEarPic")=request("pictureid"):rs("WS_TalkEarMan")=request("DepartmentName")
if SubjectId<>"" and isnumeric(SubjectId) then
 rs("WS_TalkEarSubjectId")=SubjectId
 conn.execute("update HX_Talkear set WS_TalkEarSendTime=#"&now&"# where WS_TAID="&SubjectId)