📄 showquestion.asp
字号:
%>
<%end if
rs2.close
end if
end if%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="zhtable"><%if session("person")<>"" then%>
<tr>
<td class="f14">您好：<%=session("person")%> </td>
</tr>
<tr>
<td><%rs2.open"select * from person where name='"&session("person")&"'",conn,1,1%>
<a href="help.asp#n5" target=_blank><%=rs2("touxian")%></a> ( <%=rs2("jifen")%> )</td>
</tr>
</table>
<table cellSpacing=0 cellPadding=0 width="100%" border=0>
<tr>
<td height=22>• <a href="user.asp?lei=mywen" target=_blank>我的提问</a></td>
<td>• <a href="user.asp" target=_blank>个人中心</a></TD>
</tr>
<tr>
<td>• <a href="user.asp?lei=myda" target=_blank>我的回答</a></td>
<td>• <a href="exit.asp">退出</a><%rs2.close%></td>
</tr>
<%end if%><%if session("person")="" then%><tr><form method=post action=showquestion.asp?id=<%=id%>><td align="center" valign="top">
<p>用 户: <input name="name" type="text" id="name" size="12"><br>密 码: <input name="pwd" type="password" id="pwd" size="12"><br>验证码:<input type="text" size=3 maxlength=4 name=verifycode> <%Call GetSafeCode%><br><FONT color=#666666>(请输入图中数字)</FONT><br><input name="login" type="submit" id="login" value="登录">
<a href="reg.asp">注册</a>
</td></form><%end if%></tr>
</table>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <td class="bgtle" nowrap>同类热点问题</td></tr>
<tr> <td class="bgcntLn">
<%
rs2.open"select top 5 * from question where fenleiid="&rs("fenleiid")&" order by views desc",conn,1,1
%>
<table width="152" border="0" cellpadding="0" cellspacing="0" style="table-layout:fixed;word-wrap:break-word;"><%while NOT rs2.EOF%>
<tr><td width=10 valign="top">• </td>
<td><a href="showquestion.asp?id=<%=rs2("id")%>" target="_blank"><%=rs2("title")%></a></td></tr>
<%
rs2.movenext
wend
rs2.close
%>
<tr><td> </td><td height="22" ><a href="assort1.asp?id=<%=rs("fenleiid")%>&topic=<%=rs("topic")%>" class="lmore">更多>></a></td></tr></table>
</td></tr></table>
<br>
<%if gx=1 then%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="14">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="bgtle" nowrap>本类共享资料</td>
</tr>
<tr>
<td class="bgcntBor3">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table class="zhtable" cellSpacing="0" cellPadding="0" width="152" border="0">
<tbody>
<%rs3.open"select top 5 * from Share where flid="&rs("fenleiid")&"",conn,1,1
if rs3.eof then%>本类暂时没有共享资料
<%rs3.close
else
while NOT rs3.EOF
%>
<tr>
<td class="ln23"><a href=sharev.asp?id=<%=rs3("id")%> target=_blank><%=rs3("ftitle")%></a></td>
</tr>
<%rs3.movenext
wend
rs3.close
end if%>
</tbody>
</table>
<a class=lmore href=share.asp?id=<%=rs("fenleiid")%> target=_blank>更多>></a> <a href="userupfile.asp" target="_blank">我要上传</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="15"></td>
</tr>
</table>
</td>
</tr>
</table>
<%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> <td class="bgcntBor4"><%rs2.open"select top 5 * from gonggao where flid=3 order by time desc",conn,1,1
if rs2.eof then%>暂时没有公告<%else
while not rs2.eof
%> <%=rs2("text")%><hr size="1" color="#999999">
<%rs2.movenext
wend
end if
rs2.close%>
</td>
</tr></table>
</td></tr></table>
<%
if rs("jie")=0 or rs("jie")=4 then
dim tempt,bbryear,bbrmonth,bbrday,bbrhour,bbrminute,bbrsecond,bbrstate
tempt=rs("overtime")
bbryear=year(tempt)
bbrmonth=month(tempt)
bbrday=day(tempt)
bbrhour=hour(tempt)
bbrminute=minute(tempt)
bbrsecond=second(tempt)
bbrstate=rs("jie")
if bbrstate="0" or bbrstate="4" then
bbrstate=0
else
bbrstate=1
end if
Response.Write"<script>setInterval('JSTime("& bbryear &", "& bbrmonth &", "& bbrday &", "& bbrhour &", "& bbrminute &", "& bbrsecond &", "& bbrstate &")',1000);</script>" & vbcrlf
end if
%>
<script language="javascript" src="jstime.js"></script>
<table width="588" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="bgtle" nowrap><%if rs("jie")=1 or rs("jie")=3 then%>已解决<%elseif rs("jie")=0 then%>待解决<%elseif rs("jie")=2 then%>已关闭<%elseif rs("jie")=4 then%>投票中<%end if%></td>
</tr>
<tr><td class="bgcntBor3">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class=zhtable>
<tr>
<td class="f14B"><%=rs("title")%></td>
</tr>
<tr>
<td valign="top"><span class="f12rd"><img src="img/icn_point.gif" width="16" height="16" align="absmiddle"> 悬赏分：<%=rs("shang")%></span> - <span class="f12gy"><%if rs("jie")=0 or rs("jie")=4 then%>离问题结束还有：<span id=time>正在计算...</span><%else%>提问时间：<%=rs("sendtime")%><%end if%><%if rs("jie")=2 then%> <A href="help.asp#问题为何被关闭" target=_blank>问题为何被关闭</A><%end if%></span></td>
</tr>
<tr>
<td class="f14"><%=ubb(rs("content"))%><br><span id="suplycontent"><%if rs("bu")<>"" then%><b>问题补充：</b><%=ubb(rs("bu"))%></span><%end if%></td>
</tr>
<tr>
<td align="right" class="f12gy">提问者：<%if rs("niming")=1 then%>匿名<%else%><a href=showperson.asp?name=<%=rs("sender")%> target=_blank><%=rs("sender")%></a> - <a href="help.asp#n5" target=_blank><%=touxian%></a><%end if%>
<%if session("person")=rs("sender") and rs("jie")<>2 then%>
<tr>
<td class="f14"><%if rs("jie")=0 then%>• <a onclick="window.open('buchong.asp?id=<%=id%>','','width=450,height=250')" href="#">问题补充</a>：可以对您的提问补充细节，以得到更准确的答案；<br>• <a href="tigao.asp?id=<%=id%>">提高悬赏</a>：提高悬赏分，以提高问题的关注度；<br>
<%rs3.open"select * from reply where replyid="&id&"",conn,1,1
dashu=rs3.recordcount
rs3.close
if dashu>=2 then
%>• <a href="fatoupiao.asp?id=<%=id%>">发起投票</a>：不知道哪个回答最好时，可让网友投票来选出最佳答案；<br>
<%
end if
end if%><%if rs("jie")=0 or rs("jie")=3 then%>• <a href="wudaan.asp?id=<%=id%>">无满意答案</a>：没有满意的回答，还可直接结束提问，关闭问题。<%end if%></td>
</tr><%end if%>
</td></tr>
<tr><td><%if rs("jie")=0 and session("person")<>rs("sender") then%><input type=button value="我来回答" onClick="location.href='#reply';"> <%end if%></td> </tr></table>
</td>
</tr>
</table>
<br>
<%if rs("jie")=4 then
rs1.open"select * from toupiao where wenid="&id&" order by datime desc",conn,1,1
toumax=rs1.recordcount
%>
<table width="588" border="0" cellpadding="0" cellspacing="0" class=zhtable>
<tr><td height="25" class="bgtle">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td class="f14weB" nowrap>投票备选答案</td><td><div align="right" class="f12we">共 <%=toumax%> 条</div></td>
</tr></table>
</td></tr>
<tr>
<td class="bgcntLn">
<%while not rs1.eof
rs3.open"select * from person where name='"&rs1("dauser")&"'",conn,1,1
touxian3=rs3("touxian")
rs3.close
%>
<div class="f14"><%=ubb(rs1("daco"))%></div>
<div align="right" class="f12gy">回答者：
<a href="showperson.asp?name=<%=rs1("dauser")%>" target=_blank><%=rs1("dauser")%></a> - <a href="help.asp#n5" target=_blank><%=touxian3%></a> <%=rs1("datime")%></div>
<%if session("person")="" then%><div><input type=button value=投他一票 class=bnsrh onclick="javascript:window.open('login.asp','');"></div><%elseif rs1("dauser")<>session("person") then%><div><input type=button value=投他一票 class=bnsrh onClick="window.open('toupiao.asp?id=<%=id%>&daid=<%=rs1("daid")%>','','width=450,height=250')"></div><%end if%>
<div style="padding-top:5px;padding-bottom:5px;"><hr size="1" color="#999999"></div>
<%rs1.movenext
wend%>
<a href="#" onClick="window.open('toupiao.asp?id=<%=id%>','','width=450,height=250')" class="f14">查看投票结果</a>
</td>
</tr>
</table>
<br>
<%rs1.close
end if%>
<%if rs("jie")=1 then
rs2.open"select * from reply where replyid="&id&" and isdeal=1 order by id desc",conn,1,1
jiaid=rs2("id")
rs3.open"select * from pj where jiaid="&id&"",conn,1,1
if rs3.eof then
pjmax=0
haomax=0
huaimax=0
rs3.close
else
pjmax=rs3.recordcount
rs1.open"select * from pj where jiaid="&id&" and hao=1",conn,1,1
haomax=rs1.recordcount
rs1.close
rs1.open"select * from pj where jiaid="&id&" and huai=1",conn,1,1
huaimax=rs1.recordcount
rs1.close
rs3.close
zongping=haomax+huaimax
haoping=(haomax/zongping)*100
end if
if now>rs2("jiatime")+30 or zongping>200 then
if round(haoping,2)>80 then
rs3.open"select * from person where name='"&rs2("replyer")&"'",conn,1,3
rs3("jifen")=rs3("jifen")+hpdadf
if rs3("jifen")+hpdadf<fen1 then
rs3("touxian")=""&ji1&" 一级"
elseif rs3("jifen")+hpdadf>=fen1 and rs3("jifen")+hpdadf<fen2 then
rs3("touxian")=""&ji1&" 一级"
elseif rs3("jifen")+hpdadf>=fen2 and rs3("jifen")+hpdadf<fen3 then
rs3("touxian")=""&ji2&" 二级"
elseif rs3("jifen")+hpdadf>=fen3 and rs3("jifen")+hpdadf<fen4 then
rs3("touxian")=""&ji3&" 三级"
elseif rs3("jifen")+hpdadf>=fen4 and rs3("jifen")+hpdadf<fen5 then
rs3("touxian")=""&ji4&" 四级"
elseif rs3("jifen")+hpdadf>=fen5 and rs3("jifen")+hpdadf<fen6 then
rs3("touxian")=""&ji5&" 五级"
elseif rs3("jifen")+hpdadf>=fen6 and rs3("jifen")+hpdadf<fen7 then
rs3("touxian")=""&ji6&" 六级"
elseif rs3("jifen")+hpdadf>=fen7 and rs3("jifen")+hpdadf<fen8 then
rs3("touxian")=""&ji7&" 七级"
elseif rs3("jifen")+hpdadf>=fen8 and rs3("jifen")+hpdadf<fen9 then
rs3("touxian")=""&ji8&" 八级"
elseif rs3("jifen")+hpdadf>=fen9 and rs3("jifen")+hpdadf<fen10 then
rs3("touxian")=""&ji9&" 九级"
elseif rs3("jifen")+hpdadf>=fen10 then
rs3("touxian")=""&ji10&" 十级"
end if
rs3.update
rs3.close
end if
end if
rs3.open"select * from person where name='"&rs2("replyer")&"'",conn,1,1
touxian1=rs3("touxian")
rs3.close
%>
<table border="0" width="588" cellspacing="0" cellpadding="0">
<tr>
<td nowrap class="bgtle"><img src="img/icn_best.gif" align="absmiddle">最佳答案</td>
</tr>
<tr>
<td class="bgcntLn">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class=zhtable>
<tr>
<td class="f14"><%=ubb(rs2("replycontent"))%><%if rs2("ck")<>"" then%><br><br><SPAN style="COLOR: #666666">参考资料：<%=ubb(rs2("ck"))%></SPAN><%end if%></td>
</tr>
<tr>
<td>
<div align="right" class="f12gy">回答者：<a href=showperson.asp?name=<%=rs2("replyer")%> target=_blank><%=rs2("replyer")%></a> -<a href="help.asp#n5" target=_blank> <%=touxian1%></a> <span class="f12gy"><%=rs2("replytime")%></span></div></td>
</tr>
</table>
<%
rs3.open"select * from pj where jiaid="&id&"",conn,1,1
if rs3.eof then
pjmax=0
haomax=0
huaimax=0
rs3.close
else
pjmax=rs3.recordcount
rs1.open"select * from pj where jiaid="&id&" and hao=1",conn,1,1
haomax=rs1.recordcount
rs1.close
rs1.open"select * from pj where jiaid="&id&" and huai=1",conn,1,1
huaimax=rs1.recordcount
rs1.close
rs3.close
zongping=haomax+huaimax
end if
if request("submitpj")="好" then
if session("person")="" then
response.redirect "login.asp"
end if
if session("person")=rs2("replyer") then
Response.Write ("<script>alert('友情提示!\n\您不能对自己的答案进行评价!');history.back();</script>")
Response.end
end if
if not IsNumeric(request("id")) or request("id")="" then
Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
Response.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -