<%
''==================================================================================
''软件名称：OASK问答系统（仿百度知道程序）
''官方网站：http://www.oask.com.cn
''销售客服：天津聚问网络 杨先生
''联系方式：(Email)softgold@163.com (QQ)59570352
''郑重声明:
'' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'' ②、任何个人或组织未经许可不得私自修改或删除本软件中的版权信息，不得转售他人从中盈利；
'' ③、天津聚问网络 保留此软件的法律追究权利
''请保留上述信息，不影响软件运行速度
''==================================================================================
dim L_act,L_qid,L_cid,isaudit,msg,s
L_act=LCase(request.QueryString("act"))
if L_act="" then Response.End
L_qid=request.QueryString("qid") : if L_qid<>"" and IsNumeric(L_qid) then L_qid=clng(L_qid) else L_qid=0 end if
L_cid=request.QueryString("cid") : if L_cid<>"" and IsNumeric(L_cid) then L_cid=clng(L_cid) else L_cid=0 end if
select case L_act
case "u_new"
case "u_del"
case "u_change"
case "q_add"
isaudit=Request.QueryString("isaudit")
if isaudit="1" then
msg="恭喜，您的提问已经提交成功！"
else
msg="您的提问已经提交成功，但尚未审核。
"
msg=msg&webname&" 的编辑将会以最快的速度审核您的提问，请稍候！"
end if
msg=msg&"
建议您去看看别的网友的问题，回答过程中可以增长知识帮助他人，还可以增加积分哟！"
msg=msg&"
友情提示：
"
if CloseQuestionDays>0 then
msg=msg&"请在"&CloseQuestionDays&"日以内处理您的问题，"
end if
msg=msg&"选择最佳答案就是对回答者的最好鼓励。 如何处理问题"
Call DisplyMessage("问题提交成功！",msg,isaudit="1",L_qid,L_cid)
case "q_buchong"
case "q_tigao"
case "q_close"
case "q_del"
case "q_deal"
Call SaveQuestionPage(L_qid)
Call Cache.DelQuestionCache()
Call Cache.DelCache("UserPaiList")
msg="谢谢您选择最佳答案，这是对回答者的最好鼓励。"
msg=msg&"
建议您去看看别的网友的问题，回答过程中可以增长知识帮助他人，还可以增加积分哟！"
Call DisplyMessage("答案采纳成功！",msg,True,L_qid,L_cid)
case "r_add"
isaudit=Request.QueryString("isaudit")
if isaudit="1" then
msg="恭喜，您的回答已经提交成功！"
else
msg="您的回答已经提交成功，但尚未审核。
"
msg=msg&webname&" 的编辑将会以最快的速度审核您的回答，请稍候！"
end if
msg=msg&"
建议您再去看看别的问题，回答过程中可以增长知识帮助他人，还可以增加积分哟！"
msg=msg&"
友情提示：
如果您有什么问题需要别人帮忙，也可以在此提问哦"
Call DisplyMessage("回答提交成功！",msg,True,L_qid,L_cid)
case "r_change"
Call SaveQuestionPage(L_qid)
Call Cache.DelCache("UserPaiList")
msg="恭喜，您的回答已经修改成功！"
msg=msg&"
建议您再去看看别的问题，回答过程中可以增长知识帮助他人，还可以增加积分哟！"
msg=msg&"
友情提示：
如果您有什么问题需要别人帮忙，也可以在此提问哦"
Call DisplyMessage("回答提交成功！",msg,True,L_qid,L_cid)
case "r_del"
case "pl"
Call SaveQuestionPage(L_qid)
msg="亲爱的用户：您的评论已经添加成功！"
Call DisplyMessage("评论添加成功！",msg,True,L_qid,L_cid)
end select
sub DisplyMessage(title,msg,q_have,qid,cid)
dim rs,sql,rsArr
if qid<>0 and cid=0 then
call ask.OpenRS(rs,"select top 1 fenleiID from oask_Question where id="&qid,rsRead)
if rs.eof then cid=0 else cid=rs(0)
rs.close
end if
rsArr=""
if cid=0 then
sql="select top 10 id,title,shang,fenleiid,topic,makeUrl from oask_Question where jie=0 and id<>"&qid&" order by id"
else
sql="select top 10 id,title,shang,fenleiid,topic,makeUrl from oask_Question where jie=0 and fenleiid="&cid&" and id<>"&qid&" order by id"
end if
call ask.OpenRS(rs,sql,rsRead)
if rs.eof then
rs.close
set rs=nothing
sql="select top 10 id,title,shang,fenleiid,topic,makeUrl from oask_Question where jie=0 and id<>"&qid&" order by id"
call ask.OpenRS(rs,sql,rsRead)
end if
if not rs.eof then rsArr=rs.GetRows(-1)
rs.Close
Set rs=nothing
dim t,sBlock,sItem1,sItem2,i
set t=LoadTemplate("t_result")
sBlock=t.GetBlock("QuestionList")
sItem1=t.GetBlock("QuestionItem")
if sBlock="" then
sTemplateError="未发现标签 QuestionList 或 QuestionItem"
elseif IsArray(rsArr) then
for i=0 to UBound(rsArr,2)
sItem2=sItem1
t.SetBlockVar sItem2,"mod2",i mod 2
t.SetBlockVar sItem2,"qid",rsArr(0,i)
t.SetBlockVar sItem2,"qurl",QUrl2(rsArr(0,i),rsArr(5,i))
t.SetBlockVar sItem2,"qTitle",rsArr(1,i)
t.SetBlockVar sItem2,"shang",rsArr(2,i)
t.SetBlockVar sItem2,"cid",rsArr(3,i)
t.SetBlockVar sItem2,"cname",rsArr(4,i)
t.SetBlockVar sItem2,"curl",ask.GetQustionClasses(rsArr(3,i))
t.SetBlockVar sItem2,"fenlei",ask.GetQustionClasses(rsArr(3,i))
t.AddBlockItem sBlock,"QuestionItem",sItem2
next
t.SubmitBlockToBody "QuestionList",sBlock
else
t.SubmitBlockToBody "QuestionList",""
end if
if q_have and qid<>0 then
sBlock=t.GetBlock("ShowQuestionButton")
if sBlock<>"" then t.SubmitBlockToBody "ShowQuestionButton",sBlock
end if
if cid>0 then
sBlock=t.GetBlock("ShowClassButton")
if sBlock<>"" then t.SubmitBlockToBody "ShowClassButton",sBlock
end if
t.SetTopAd clsAD.Old_GetADString("adoTop","")
t.SetVar "ad_right",clsAD.Old_GetADString("adoRight","")
Call t.RemoveBlockHtml()
t.SetVar "NavPos",""&webname&" > "&title
t.SetVar "UserBar",ask.GetUserBar
t.SetVar "title",title
t.SetVar "Jifen",User.UserJifen
t.SetVar "msg",msg
t.SetVar "qid",qid
t.SetVar "cid",cid
t.SetVar "CurrentCid",cid
if sMakeUrl="" then
t.SetVar "qurl",QUrl(qid)
else
t.SetVar "qurl",QUrl2(qid,sMakeUrl)
end if
Response.Write t.Body
set t=nothing
Call FreeAll()
End Sub%>