postdisplay.asp

单班同学录 一个非常漂亮的同学录 哦

                                                    <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=oicq%>" target="_blank"><img src="images/qq.gif" width="44" height="17" border="0"></a> 
                                                    <%end if%> 
                                                    <%if len(homepage)>0 then%> 
                                                    <a href="<%=homepage%>" target="_blank"><img src="images/zy.gif" width="44" height="17" border="0"></a> 
                                                    <%end if%> 
                                                    <div align="right"></div></td>
                                                </tr>
                                                <%
												  strsql="select bbs.*,user.realname,user.email,user.jifen,user.oicq,user.msn,user.homepage from bbs inner join [user] on user.username=bbs.postuser where ReplyID="&PostID
												  set rs=server.CreateObject("adodb.recordset")
												  rs.open strsql,conn,1,1
												  if not rs.eof then
													rs.PageSize =8 '每页记录条数
													result_num=rs.RecordCount '记录总数
													maxpage=rs.PageCount 
													page=request("page")
																						
													if Not IsNumeric(page) or page="" then
														page=1
													else
														page=cint(page)
													end if
													if page<1 then
														page=1
													elseif  page>maxpage then
														page=maxpage
													end if
													rs.AbsolutePage=Page
												  else
													result_num=0
													maxpage=0
													page=0
												  end if
												  if not rs.eof then 
													for i=1 to rs.PageSize 
												  %>
                                                <tr> 
                                                  <td align="center" valign="top" bgcolor="#F4F4EA"> 
												  <%if len(rs("oicq"))>0 then%><p align="center">
												  <img src="http://qqshow-user.tencent.com/<%=rs("oicq")%>/11/00/" width="70" height="113" border="0" class="1px-table"><BR> 
												  <%end if%> 
												  <b><%=rs("Realname")%></b><BR>积分:<%=rs("jifen")%></td>
                                                  <td bgcolor="#FAFAF5"><strong><%=rs("PostTitle")%> </strong><br> 
                                                  <%=ubbcode(rs("PostText"))%><br> <br> <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                                      <tr> 
                                                        <td><div align="right"> 
                                                            <%if rs("PostUser")=session("username") or session("usergroup")=3 then%>
                                                            <a href="postreply.asp?pid=<%=rs("ReplyID")%>&id=<%=rs("postid")%>"><img src="images/edit.gif" alt="修改" width="22" height="16" border="0"></a><a href='javascript:go("postdel.asp?id=<%=rs("postid")%>","您确定要删除?")'><img src="images/del.gif" alt="删除" width="22" height="16" border="0"></a> 
                                                            <%end if%>
                                                          </div></td>
                                                      </tr>
                                                    </table></td>
                                                </tr>
                                                <tr> 
                                                  <td valign="top" bgcolor="#F4F4EA"><%=formatdate(rs("PostTime"))%></td>
                                                  <td bgcolor="#F4F4EA"><a href="member.asp?id=<%=rs("postuser")%>"><img src="images/zl.gif" width="44" height="17" border="0"></a><a href="#" onClick="javascript:window.open('primsgsend.asp?id=<%=rs("PostUser")%>','','width=400,height=300,left=300,top=200')"><img src="images/dx.gif" width="44" height="17" border="0"></a><a href="mailto:<%=rs("email")%>"><img src="images/yj.gif" width="44" height="17" border="0"></a> 
                                                    <%if len(rs("oicq"))>0 then%> 
                                                    <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("oicq")%>" target="_blank"><img src="images/qq.gif" width="44" height="17" border="0"></a> 
                                                    <%end if%> 
                                                    <%if len(rs("homepage"))>0 then%> 
                                                    <a href="<%=rs("homepage")%>" target="_blank"><img src="images/zy.gif" width="44" height="17" border="0"></a> 
                                                    <%end if%> 
                                                    <div align="right"> </div></td>
                                                </tr>
                                                <% 
												rs.movenext
												if rs.EOF then Exit For
												next
												end if
												rs.close
												set rs=nothing
												%>
                                                <tr bgcolor="#F4F4EA"> 
                                                  <td colspan="2"> <div align="center"> 
                                                      <% call LastNextPage(maxpage,page,result_num) %>
                                                    </div></td>
                                                </tr>
                                              </table></td>
                                          </tr>
                                        </table>
                                        <form action="postreply.asp" method="post" name="post" id="post" onSubmit="return checkform()">
                                          <table width="380" border="0" cellpadding="2" cellspacing="1">
                                            <tr> 
                                              <td width="380" bgcolor="#666B52"><font color="#FFFFFF">快速回复主题</font></td>
                                            </tr>
											<tr>
											  <td><div align="center"> 
                                                  <input name="PostTitle" type="text" id="PostTitle" value="RE:<%=PostTitle%>" size="52" height=20>
										      </div></td>
											</tr>
                                            <tr> 
                                              <td align="center"><textarea name=MssgText cols=56 rows=10 class="input-box" id=textarea4></textarea></td>
                                            </tr>
                                            <tr align="center"> 
                                              <td align="center"> <input name="ReplyID" type="hidden" id="ReplyID" value="<%=PostID%>">
                                                <input type="submit" name="Submit" value="提交"> 
                                                <input type="reset" name="Submit2" value="重置"> 
                                              </td>
                                            </tr>
                                          </table>
                                        </form>
                                      </div></td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td><img src="images/n_foot.gif" width="400" height="10"></td>
                      </tr>
                    </table>
                  </div></td>
              </tr>
            </table></td>
          <td width="38" valign="top" background="images/right_b.gif"><img src="images/right_b.gif" width="38" height="5"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td colspan="3"><img src="images/z_f.gif" width="776" height="26"></td>
  </tr>
  <tr>
    <td colspan="3">　</td>
  </tr>
</table>                
</body>
</html>