⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 showperson.asp

📁 完整的九洲问吧。优秀的问答网站。由ASP+Access开发。
💻 ASP
字号:
<!--#include file=conn.asp-->
<!--#include file=html.asp-->
<!--#include file=postubb.asp-->
<!--#include file="config.asp"-->
<%
if not IsNumeric(request("id")) then
		Response.Write ("<script>alert('友情提示!\n\参数错误!');history.back();</script>")
		Response.end
	end if
%>
<%if request("id")="" and request("name")="" then
	response.write"<script>alert('用户参数错误!');history.back();</script>"
	else
	if request("id")<>"" then
	id=CLNG(request("id"))
	lei="id="&id
    rs.open"select * from person where id="&id,conn,1,1
	elseif request("name")<>"" then
	name=request("name")
	lei="name="&name
	rs.open"select * from person where name='"&name&"'",conn,1,1
	end if
	if rs.eof then
	response.write"<script>alert('没有所查找的用户!');history.back();</script>"
	else
	%>
<html><head><title>用户信息中心</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
.*{font-family:宋体; }
.zhtable{word-wrap:break-word;table-layout:fixed;}
td{font-size: 12px; line-height: 18px; font-family:arial;}
.p3	{font-size:13px; line-height: 24px}
.pad10L	{padding-left:10px}
a.cy:link		{color: #7777cc; text-decoration: underline}
a.cy:visited		{color: #7777cc; text-decoration: underline}
a.headTit:link{color:#0000cc;font-size:13px; line-height: 24px;}
a.headTit:visited{color:#0000cc;font-size:13px; line-height: 24px;}
.headTitB{font-weight:bold;font-size:13px; line-height: 24px;font-family: "Arial";}
.TopMgn6{margin-top:6px}
.cBaidu{color:#777777}
a.bluelink:link{color:#0033cc;}
a.bluelink:hover{color:#0033cc;}
a.bluelink:visited{color:#800080;}
.f14{font-size:14px;line-height:20px;}
.p14{font-size:14px;}
.pb{font-weight:bold;}
.greenBG{background-color:#D9F0F0;}
.yellowBG{background-color:#D9F0F0}
.tbPad10{padding-top:6px;padding-bottom:6px;}
.tdLine{border-top:1px solid #56BEBE}
.f14ln20	{font-size: 14px; line-height: 20px;}
.ln28		{height:28px; border-top:1px solid #E1E1E1; padding-left:6px;}
.bgpagLn	{ font-family: arial;BORDER:#D9F0F0 1px solid; background-color: #FFFFFF;font-size: 14px;}
.tdline28{border-bottom:1px solid #e1e1e1; height:28px; padding-left:10px;}
</style>
</head>
<body text=#000000 vlink=#261cdc link=#261cdc bgcolor=#FFFFFF topmargin=0 bottommargin=0>
<table width="100%" border=0 align="center">
<tr height=60>
<td width=150 valign="top" height="69"><a href="<%=weburl%>"><img src="img/logo-zhidao1.gif" border="0"></a></td>
<td valign="bottom">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="24" class="greenBG">&nbsp;<b class="p14">用户信息中心</b></td>
<td height="24" class="greenBG">
<div align="right" class="p14">&nbsp;</div></td>
</tr>
<tr>
<td height="20" class="p2" colspan="2"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="100%" valign="top"><table width="100%"  border="0" cellpadding="0" cellspacing="0" class="greenBG">
<tr>
<td height="24" class="pad10L"> <font class="p14 pb" id="titName"><%if request("lei")="" then%>用户资料</font><%elseif request("lei")="jifen" then%>问吧积分<%elseif request("lei")="da" then%>问吧回答<%end if%> </td>
<td align="right">&nbsp;</td>
</tr>
</table>
<br>
<%if request("lei")="" then%>
<table width="100%"  border="0" cellspacing="4" cellpadding="0" class=zhtable>
<tr>
<td width="110" class="pad10L">用户名:&nbsp;&nbsp;</td>
<td><%=rs("name")%></td>
</tr>
<tr>
<td class="pad10L">E-mail:&nbsp;&nbsp;</td>
<td><%=rs("email")%></td>
</tr>
<tr>
<td class="pad10L">注册时间:&nbsp;&nbsp;</td>
<td><%=rs("time")%></td>
</tr>
<tr>
<td class="pad10L">上次登录时间:&nbsp;&nbsp;</td>
<td><%=rs("logintime")%></td>
</tr>
<tr>
<td valign="top" class="pad10L">自我简介:&nbsp;&nbsp;</td>
<td></td>
</tr>
<tr>
<td valign="top" class="pad10L" colspan="2">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="20"> </td>
                            <td width="96%"><%=HTMLcode(rs("jianjie"))%></td>
                          </tr>
                        </table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr class="pad10L">
<td width="120">&nbsp;</td>
<td height="30"><a href="showperson.asp?<%=lei%>&lei=jifen" target="_blank" class="f14">问吧积分</a>  · <a href="showperson.asp?<%=lei%>&lei=da" target="_blank" class="f14">问吧回答</a>       
 </td>
</tr>
</table>
<br></td>
</tr>
<tr>
<td valign="bottom"><div class="greenBG" style="height:24px; " id="title"></div>
</td>
</tr>
</table>
<br>
<%elseif request("lei")="jifen" then
rs2.open"select sum(shang) as shangfen from question where sender='"&rs("name")&"'",conn,1,1
if rs2.eof then
shangfen="0"
else
shangfen=rs2("shangfen")
end if
rs2.close
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr valign="top"> 
    <td width="470" nowrap class="f14"><img src="img/icon_honor.gif" width="14" height="14" border="0" alt="网友专家"> <span class="f14B"><%=rs("name")%></span>     
      (<%=rs("jifen")%>) <%=rs("touxian")%></td>    
    <td width="160" align="right" nowrap class="f14"><a href="userexpert.asp" target="_blank">什么是专精分类</a></td>
    <td align="right" nowrap class="f14">&nbsp;</td>
  </tr>
</table>
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          
          <td width="180" valign="top"><table width="160"  border="0" cellpadding="3" cellspacing="1" bgcolor="#DBDBDB">
              <tr> 
                <td nowrap bgcolor="#FFFFFF" class="pad10L"><div align="center"><span class="f14"><strong>积分明细</strong></span></div></td>
              </tr>
              <tr bgcolor="#ffffff"> 
                <td height="60" valign="middle" class="pad10L tbPad10"><table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr> 
                      <td width="100"><div align="right">总分: </div></td>
                      <td width="52"><%=rs("jifen")%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">回答得分:</div></td>
                      <td><%=rs("replynum")%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">悬赏付出:</div></td>
                      <td>-<%=shangfen%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">处罚:</div></td>
                      <td><%=rs("fa")%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">其他扣除:</div></td>
                      <td><%=rs("qtfa")%> </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
          <td width="180" valign="top"><table width="166"  border="0" cellpadding="3" cellspacing="1" bgcolor="#DBDBDB">
              <tr> 
                <td nowrap bgcolor="#FFFFFF" class="pad10L" width="147"><div align="center"><span class="f14"><strong>回答统计</strong></span></div></td>
              </tr>
              <tr bgcolor="#ffffff"> 
                <td height="60" valign="middle" class="pad10L tbPad10" width="147"><table width="100%" border="0" cellspacing="0" cellpadding="3">
                    <tr> 
                      <td width="100"><div align="right">回答总数: </div></td>
                      <td width="52"><%=rs("replynum")%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">回答被采纳:</div></td>
                      <td><%=rs("helpnum")%></td>
                    </tr>
                    <tr> 
                      <td><div align="right">回答被采纳率:</div></td>
                      <td><%if rs("helpnum")=0 then baifenbi=0 else baifenbi=(rs("helpnum")/rs("replynum"))*100 end if%><%=round(baifenbi,2)%>% </td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
	<td width="180" valign="top"><table width="160"  border="0" cellpadding="3" cellspacing="1" bgcolor="#DBDBDB">
              <tr> 
                <td nowrap bgcolor="#FFFFFF" class="pad10L"><div align="center"><span class="f14"><strong>专精分类</strong></span></div></td>
              </tr>
              <tr bgcolor="#ffffff"> 
                <td height="60" valign="middle" class="pad10L tbPad10"><table width="100%" border="0" cellspacing="0" cellpadding="3">
                <tr> 
<td width="75" align="center">分  类</td>
<td width="75" align="center">得  分</td>
</tr>
                <%rs2.open"select * from zhuanjia where user='"&rs("name")&"'order by fljifen desc",conn,1,1

	if rs2.eof then%>未有专家称号<%else
	while not rs2.eof
	rs1.open"select * from assort where id="&rs2("flid")&"",conn,1,1
	flname=rs1("topic")
	rs1.close
	%>
<tr> 
<td width="75"><div align="right"><a href="assort1.asp?id=<%=rs2("flid")%>" target="_blank"><%=flname%></a>: </div></td>
<td width="75" align="center"><%=rs2("fljifen")%></td>
</tr>
<%
rs2.movenext
	  wend
rs2.close
end if
%>
                  </table></td>
              </tr>
            </table></td>

          <td valign="top">&nbsp; </td>
        </tr>
      </table>
      <br>
<%elseif request("lei")="da" then
rs2.open"select * from reply where replyer='"&rs("name")&"'",conn,1,1
if rs2.eof then%>暂时没有回答任何问题!<%else%>
        <table width="98%" border="0" align="center" cellspacing="0" class="zhtable">
          <tr align=center>
            <td width="43%" height="30" class="padL6">  <strong>标题</strong></td>
            <td width="7%" nowrap class="padL6"><strong>回答数</strong></td>
            <td width="6%" nowrap class="padL6"><strong>状态</strong></td>
<td width="6%" nowrap class="padL6"><strong>被采纳答案</strong></td>
            <td width="16%" nowrap class="padL6"><strong>提问时间</strong></td>
          </tr>
          <%maxnum=rs2.recordcount
		rs2.pagesize=UserMaxPerPage
		maxpage=rs2.pagecount
		if request("pages")="" then
		pages=1
		else
		pages=cint(request("pages"))
		end if
		if pages>maxpage then
		pages=maxpage
		end if
		if pages=0 then
		pages=1
		end if
		if pages<>1 then
		rs2.move (pages-1)*rs2.pagesize
		end if
		for i=1 to rs2.pagesize
		rs3.open"select * from question where id="&rs2("replyid"),conn,1,1
	    %>
		    <tr>
    <td class="ln28 f14ln20">·<a href=showquestion.asp?id=<%=rs2("replyid")%> target="_blank"><%=rs3("title")%></a></td>
    <td align="center" valign="middle" class="ln28"><font color="#333333"><%=rs3("replys")%></font></td>
    <td align="center" valign="middle" class="ln28"><%if rs3("jie")=0 then %><img src=img/icn_time.gif  alt=待解决问题><%elseif rs3("jie")=1 or rs3("jie")=3 then%><img src=img/icn_ok.gif  alt =已解决问题><%elseif rs3("jie")=2 then%><img src=img/icn_cancel.gif  alt =问题已关闭><%elseif rs3("jie")=4 then%><img src=img/icn_vote.gif  alt =投票中问题><%end if%></td>
    <td align="center" valign="middle" class="ln28"><%if rs2("isdeal")=1 then %><img src=img/icn_best.gif  alt=被采纳为最佳答案><%else%>&nbsp;<%end if%></td>
    <td align="center" valign="middle" class="ln28"><%=rs3("sendtime")%></td>  
  </tr>
  <%rs3.close
		rs2.movenext
		if rs2.eof then exit for
		next
		end if
		rs2.close%>
        </table>        
        <br>

        <table width="86%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td class="bgpagLn"><div align="center">共回答<font color=red><%=maxnum%></font>个问题,每页显示<%=UserMaxPerPage%>个问题,共<font color=red><%=maxpage%></font>页,当前第<font color=red><%=pages%></font>页                                         
		<a href=showperson.asp?<%=lei%>&lei=da&pages=1>首页</a>       
		<a href=showperson.asp?<%=lei%>&lei=da&pages=<%=pages-1%>>上页</a>                                                
		<a href=showperson.asp?<%=lei%>&lei=da&pages=<%=pages+1%>>下页</a>                                                
		<a href=showperson.asp?<%=lei%>&lei=da&pages=<%=maxpage%>>尾页</a></div></td>    
          </tr>
        </table>
<table>
<tr>
<td valign="bottom"><div class="greenBG" style="height:24px; " id="title"></div>
</td>
</tr>

	<%
		end if
	end if
	rs.close
	end if%>
<br>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="clear:both;">  <tr>    <td height="30" align=center><!--#include file=end.asp--></td>
  </tr>
</table>
</body>
















⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -