addtalkear.asp

来自「政府网站集成OA办公考勤新闻发布网站信息管理会员管理」· ASP 代码 · 共 34 行 · 第 1/2 页

<!--#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