viewtheme.asp

在线考试系统

		end if
		
		if uid=rs("author") then
			if bShowAdmin=0 then
				Response.Write " | 管理： <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & iId & "&action=delete'>"
				Response.Write "<img border='0' src='images/delete.gif'> 删除主题" & "</a> " & vbcrlf
			end if
			if bLock=1 then
				Response.Write "<img border='0' src='images/edit.gif'><Font color='#AAAAAA'> 编辑" & "</font></a> " & vbcrlf
			else
				Response.Write " <a href='edit.asp?areaid=" & iArea & "&ParentId=" & iId & "&tId=" & rs("ThemeId") & "'>"
				Response.Write "<img border='0' src='images/edit.gif'> 编辑" & "</a> " & vbcrlf
			end if
		end if
		
		rsa.close

		dim iHit
		
		'//Add theme hits
		if bCanAdd=1 then
			
			iHit=clng(rs("Hit"))+1
			rs("Hit")=iHit
			rs.Update
			rs.close

			'//update RECENT
			rs.Open "SELECT * FROM tRecent WHERE ThemeID=" & iId ,connf,1 ,3
			if not(rs.BOF and rs.EOF) then
				rs("Hit")=iHit
				rs.Update
			end if
			
		end if
		%>
	  </td>
    </tr>
  </table>
  </center>
</div>
<% 
	end if 
rs.Close

%>




<!-- reply blocks -->

<%
	Const ListCount=8
	rs.Open "SELECT * FROM tcontent WHERE ParentID=" & iId & " ORDER BY writetime",connf,1 ,1

	if rs.BOF and rs.EOF then
		'
	else
		rs.PageSize =ListCount
		if iChildPage>rs.PageCount then iChildPage=rs.PageCount
		rs.AbsolutePage  = iChildPage

		dim iRowCount
		iRowCount=ListCount

		Response.Write "<div align='center'>"
		Response.Write "<center>"
		Response.Write "<table border='0' width='760' bgcolor='#C0C0C0' cellspacing='1'>"

  		do

			rsa.Open "SELECT * FROM tmember WHERE uid='" & rs("author") & "'" ,connm,1 ,1

			dim bgcolor
			if iRowCount mod 2=0 then
				bgcolor="E7E7E7"
			else
				bgcolor="F5F5F5"
			end if
			%>
			<tr>
			<td width="146" bgcolor="#<%=bgcolor%>" valign="top">
			<%

			if rsa("lock")=1 then
				Response.Write "<p>&nbsp; <img border='0' src='images/lock.gif' alt='该用户已经被封锁'>"
			end if

			Response.Write "<a href='viewinfo.asp?uid=" & rs("author") & "'>"
			Response.Write "<b>" & rs("author") & "</b> "
			Response.Write "</a><br>"

			Response.Write "<img border='0' src='images/level/level" & rsa("level") & ".gif'>"

			if rsa("userportrait")<>"" then
				Response.Write "<p>&nbsp; <img border='0' src='" & rsa("userportrait") & "'>"
			else
				if rsa("portrait")<>"" then
					Response.Write "<p>&nbsp; <img border='0' src='images/portrait/" & rsa("portrait") & "'>"
				else
					Response.Write "<br>&nbsp;"
					Response.Write "<TABLE height='100' cellSpacing=1 width='100' border=0 bgcolor='#DDDDDD'>"
					Response.Write "<TR><TD bgcolor='#EFEFEF' align='center'>未设定图片。</TD></TR></TABLE>"
				end if
			end if

		%>
		<p></p>
      </td>
      <td width="600" bgcolor="#<%=bgcolor%>" valign="bottom"><br>
        <%

			sTmp=rs("content")
			call transtext(stmp)
			call transtag(sTmp,4)
			if rsa("level")>=2 then
				call transtag(sTmp,1)
				call transtag(sTmp,2)
				call transtag(sTmp,3)
			end if

			Response.Write sTmp & "<br>"

			if rsa("sign")<>"" then
				sTmp=rsa("sign")
				call transtext(stmp)
				call transtag(sTmp,4)
				if rsa("level")>=2 then
					call transtag(sTmp,1)
					call transtag(sTmp,2)
					'//call transtag(sTmp,3)
				end if

				response.Write "<br><hr width='200' noshade size='1' color='#CCCCCC' align='left'><br>"
				response.Write  sTmp
			end if

		%>
        </td>
    </tr>
    <tr>
      <td width="146" bgcolor="#<%=bgcolor%>"><img border="0" src="images/post.gif" width="12" height="13" alt="发表时间">
        <%=rs("writetime") %></td>
      <td width="600" bgcolor="#<%=bgcolor%>" align="right">
		<%
			if rsa("homepage")<>"" then
				Response.Write "<a href='" & rsa("homepage") & "'>"
				Response.Write "<img border='0' src='images/homepage.gif' width='14' height='14' alt='" & rsa("homepage") & "'>"
				Response.Write "</a> "
				Response.Write vbcrlf
			end if

			if rsa("email")<>"" then
				Response.Write "<a href='mailto:" & rsa("email") & "'>"
				Response.Write "<img border='0' src='images/email.gif' width='24' height='11' alt='" & rsa("email") & "'>"
				Response.Write "</a> "
				Response.Write vbcrlf
			end if

			if rsa("qq")<>"" then
				Response.Write "<a href='http://search.tencent.com/cgi-bin/friend/user_show_info?ln=" & rsa("qq") & ">"
				Response.Write "<img border='0' src='images/oicq.gif' width='16' height='16' alt='" & rsa("qq") & "'>"
				Response.Write "</a> "
				Response.Write vbcrlf
			end if

			if rsa("msn")<>"" then
				Response.Write "<img border='0' src='images/msn.gif' width='16' height='16' alt='" & rsa("msn") & "'> "
				Response.Write vbcrlf
			end if

			if bShowAdmin=1 then
				Response.Write " | 管理： <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & rs("ThemeId") & "&action=delete'>"
				Response.Write "<img border='0' src='images/delete.gif'> 删除回复" & "</a> " & vbcrlf
			end if
			
			if uid=rs("author") then
				if bShowAdmin=0 then
					Response.Write " | 管理： <a href='modifytheme.asp?areaid=" & iArea & "&tid=" & rs("ThemeId") & "&action=delete'>"
					Response.Write "<img border='0' src='images/delete.gif'> 删除回复" & "</a> " & vbcrlf
				end if
				if bLock=1 then
					Response.Write "<img border='0' src='images/edit.gif'><Font color='#AAAAAA'> 编辑" & "</font></a> " & vbcrlf
				else
					Response.Write " <a href='edit.asp?areaid=" & iArea & "&ParentId=" & iId & "&tId=" & rs("ThemeId") & "'>"
					Response.Write "<img border='0' src='images/edit.gif'> 编辑" & "</a> " & vbcrlf
				end if
			end if

			Response.Write "</td>"
			Response.Write "</tr>"

			rsa.close
			rs.MoveNext
			iRowCount = iRowCount - 1
		loop until (rs.EOF) or (iRowCount <= 0)
		%>
	</table>
  </center>
</div>

<% end if %>

<p> </p>
<table border="0" width="760" cellspacing="0">
  <tr>
    <td width="64%">&nbsp;</td>
    <td width="36%"></td>
  </tr>
  <tr>
    <%
    if rs.PageCount >1 then
		Response.Write "<td width='64%' align='center'>分页: "

		for i=1 to rs.PageCount
			Response.Write "<a href='viewtheme.asp?area=" & iArea & "&lstsort=" & iSort & "&lstday=" & iDay & "&page=" & iPage & "&id=" & iId & "&childpage=" & i & "'>"
			Response.Write "[" & i & "]</a>&nbsp; "
		next
		Response.Write "</td>"
		Response.Write "<td width='36%'>"
		Response.Write "<p align='right'>页码：" & iChildPage & "/" & rs.PageCount & "</td>"
	else
		Response.Write "<td width='100%' colspan='2'></td>"
	end if
	%>
  </tr>
</table>

</center>


<%
	rs.Close

	'//update Member Read times
	if uid<>"" and bCanAdd=1 then

		dim lScore
		dim lReadTimes
		dim lLevel

		rs.Open  "SELECT * FROM tmember WHERE uid='" & uid & "'" ,connm,1 ,3

		lReadTimes=clng(rs("readtimes"))
		lReadTimes=lReadTimes+1
		lScore=clng(rs("score"))
		lScore=lScore+2

		if lScore>= 0 and lScore<100 then
			lLevel=1
		elseif lScore>= 100 and lScore<500 then
			lLevel=2
		elseif lScore>= 500 and lScore< 1000 then
			lLevel=3
		elseif lScore>= 1000 and lScore< 1500 then
			lLevel=4
		elseif lScore>= 1500 and lScore< 2500 then
			lLevel=5
		elseif lScore>= 2500 and lScore< 3000 then
			lLevel=6
		elseif lScore>= 3000 and lScore< 3500 then
			lLevel=7
		elseif lScore>= 3500 and lScore< 4000 then
			lLevel=8
		elseif lScore>= 4000 and lScore< 5000 then
			lLevel=9
		elseif lScore>= 5000 then
			lLevel=10
		end if

		if lScore>=10000 then lscore=10000

		rs("score")=lScore
		rs("readtimes")=lReadTimes
		rs("level")=lLevel
		rs.Update
		rs.Close
	end if

	set rs=nothing
	set rsa=nothing
	call closeconnf
	call closeconnm

%>

<p> </p>

<SCRIPT language=JavaScript src="../include/buttom.inc" type=text/javascript></SCRIPT>

</body>