view.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="top.asp"-->
<SCRIPT src="ybbcode.js"></SCRIPT>
<!--#include file="ubbcode.asp" -->
<%Function showuserpic(picurl,picwidth,picheight) 
  Const	const_FaceHeight="20|150"
  Const	const_FaceWidth="20|150"
	dim width_xx,height_xx 
	If 	picwidth>150 Then  
		width_xx="width=150" 
	Elseif picwidth>0 then 
		width_xx="width="&picwidth 
	ElseIf picwidth=0 Then 
		width_xx="" 
	End If 
 
	If picheight>Int(Split(const_Faceheight,"|")(1)) Then 
		height_xx="height="&Split(const_FaceWidth,"|")(1) 
	ElseIf picheight>0  Then 
		height_xx="height="&picheight 
	ElseIf picheight=0 Then 
		height_xx="" 
	End If 
	IF lcase(Left(picurl,5))="http:" then 
		Response.Write "<img name='faceimg' border=0 src='" + picurl + "'"  & width_xx & " " & height_xx  & " onload=""javascript:if(this.width>150)   this.width=150"">" 
	ElseIf picurl<>"" and (not isnull(picurl)) Then 
		Response.Write("<img name='faceimg'  border=0 src=../"&picurl + " " & width_xx & " " & height_xx & " onload=""javascript:if(this.width>150)   this.width=150"">") 
	End If 
End Function
dim bm,lb,type2,bbsid,view,god,df,usern
bm=request.QueryString("bm")
id=request.QueryString("id")
lb=request.QueryString("lb")
usern=request.QueryString("usern")
df=request.QueryString("df")
type2=request.QueryString("type2")
bbsid=request.QueryString("bbsid")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")
set rt=conn.execute ("select lbname from bbslb where lbid = "&lb&"")%>
<center>
<TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 cellPadding=0 
width="778" align=center bgColor=#f9f8f2 border=1>
  <TBODY>
  <TR>
    <TD width="63%">&nbsp;&nbsp;<IMG src="image/fle.gif" border=0> 你的位置：<A href="../index.asp"><%Set rf=conn.execute ("select sitename from siteinfo")
response.write rf(0)
rf.close%>首页</A> － <a href="index.asp">学校论坛</a> － <a href="index.asp"><%=rt("lbname")%></a> － <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><%=rs("bmname")%></a> － 查看帖子</TD>
    <TD width="37%"> 　 <a href="search3.asp">论坛搜索</a> | <a href="search.asp">我发表的帖子</a> | <a href="search2.asp">我参与的帖子</a></TD>
</TR></TBODY></TABLE>
<BR>
 <%rs.close
rt.close
set rt= nothing
set rs= nothing
Select Case type2
	Case "del":
		 call del
		 Case "del2":
		 call del2
  Case "savehf":
		Call savehf
	Case "top":
		Call top
	Case "good":
		Call good
	Case Else:
		call show
End Select
sub show
dim cur
cur=request.form("cur")
if cur="" or cur=1 then
call cs
call ca
else
call ca
end if%>
<BR>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#f9f8f2 cellSpacing=0 
cellPadding=0 width="778" align=center border=1>
  <TBODY><FORM name=topic action=?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>&type2=savehf method=post>
  <TR>
    <TD class=td1 width="100%" background=image/lbg.gif bgColor=#799ae8 
    height=28>&nbsp;<IMG src="image/gl.gif" border=0><font color=#000000>发表帖子</font></TD></TR>
  <TR>
    <TD width="100%">
      <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 
      width="100%" border=1>
        <TBODY>
		 <TR>
          <TD bgColor=#f9f8f2>
            <P style="MARGIN: 5px; LINE-HEIGHT: 150%">　<B>你的表情：</B> <BR>
              ·放在帖子前面。</P></TD>
          <TD>
            <P style="MARGIN: 5px; LINE-HEIGHT: 150%">
            <SCRIPT>
for(i=1;i<=18;i=i+1) {
if (i==10){document.write("<p style='line-height: 150%; margin: 5'>")}
if (i==1){document.write("<input type=radio name=face checked value=face"+i+".gif><img border=0 src=face/face"+i+".gif>")}
else {document.write("<input type=radio name=face value=face"+i+".gif><img border=0 src=face/face"+i+".gif>")}
}
        </SCRIPT>
            </P></TD></TR>
        <TR>
          <TD bgColor=#f9f8f2>
            <P style="MARGIN: 5px"><B>帖子UBB标签：</B></P></TD>
 <TD>
            <P style="MARGIN: 5px; LINE-HEIGHT: 150%"><IMG onclick=fly() alt=飞行字 
            src="image/fly.gif" border=0> <IMG onclick=move() alt=移动字 
            src="image/move.gif" border=0> <IMG onclick=light() alt=发光字 
            src="image/glow.gif" border=0> <IMG onclick=ying() alt=阴影字 
            src="image/shadow.gif" border=0> <IMG onclick=Cbold() alt=粗体字 
            src="image/bold.gif" border=0> <IMG onclick=Citalic() alt=斜体字 
            src="image/italicize.gif" border=0> <IMG onclick=Cunder() alt=下划线 
            src="image/underline.gif" border=0> <IMG onclick=center() alt="居中" 
            src="image/center.gif" border=0> <IMG onclick=image() alt=图片 
            src="image/image.gif" border=0> <IMG onclick=Cdir() 
            alt=Shockwave文件 src="image/Shockwave.gif" border=0> <IMG 
            onclick=Crm() alt=realplay视频文件 src="image/rm.gif" border=0> <IMG 
            onclick=Cwmv() alt="Media Player视频文件" src="image/mp.gif" border=0> 
            <IMG onclick=Curl() alt=超连接 src="image/url1.gif" border=0> <IMG 
            onclick=Cemail() alt="Email连接" src="image/ubb_email.gif" border=0> 
            <IMG onclick=Csound() alt=插入背景音乐 src="image/csound.gif" border=0> 
            <IMG onclick=Cra() alt=real音频文件 src="image/ra.gif" 
        border=0></P></TD></TR>
        <TR>
          <TD height="135" vAlign=top bgColor=#f9f8f2>
            <P style="MARGIN: 5px; LINE-HEIGHT: 150%"><B>帖子内容：</B><BR>
            </P></TD>
          <TD vAlign=top><P style="MARGIN: 5px; LINE-HEIGHT: 150%"><TEXTAREA style="FONT-SIZE: 9pt; FONT-FAMILY: ??ì?" name=content rows=9 cols=85></TEXTAREA> 
            </P></TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD align=middle bgColor=#f9f8f2 height=50><%  If session("wzname")="" Then%>
<font color=red>只有登录才能发帖!</font>
<%else%>
<INPUT class=submit type=submit value=OK_！发表 name=B1>
      &nbsp;&nbsp; 
      <INPUT class=submit type=reset value=NO_！重写 name=B2>
 <%End If%></TD>
</TR></FORM></TBODY></TABLE>
  <%end sub
  sub cs
set rs=conn.execute ("select * from bbs where bbsid = "&bbsid&"")
if rs.eof then
response.Write("此帖不存在，可能已经被删除！")
exit sub
end if
view=rs("view")+1
set rt=conn.execute ("update bbs set view=view+1 where bbsid = "&bbsid&"")
%>
<DIV align=center>
<CENTER>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=28 
cellSpacing=0 cellPadding=0 width="778" border=0>
  <TBODY>
  <TR>
    <TD width="26%" bgColor=#f9f8f2><a href="hf.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><IMG 
      src="image/fabiao.gif" border=0></A>&nbsp; <a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&cz=good"><IMG 
      src="image/good.gif" border=0></A></TD>
    <TD width="30%">&nbsp;</TD>
    <TD width="44%">
	      <div align="center">
	        帖子管理<%god=rs("top")
	if god<>2 then%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=top&df=2">总置顶</A>·
	      <%else%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=top&df=0">取消总置顶</A>·
	      <%end if
	if god=0 then%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=top&df=1">置顶</A>·
	      <%else
	 if god=1 then%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=top&df=0">取消置顶</A>·
	      <%end if
	 end if%>
          <%god=rs("good")
	if god=0 then%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&usern=<%=rs("username")%>&type2=good&df=1">精华</A>·
	      <%else%>
	      <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&usern=<%=rs("username")%>&type2=good&df=0">取消精华</A>·
	      <%end if%>
          <A href="?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=del&usern=<%=rs("username")%>" onClick="return confirm('真的要删除？')">删除</A>·
      </div></TD>
  </TR></TBODY></TABLE>
</CENTER></DIV><BR>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#f9f8f2 cellSpacing=0 
cellPadding=0 width="778" align=center border=1>
  <TBODY>
  <TR>
    <TD width="100%">
      <TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 
      cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD class=td1 width="25%" background=image/lbg.gif bgColor=#799ae8 
          height=28>&nbsp; <IMG src="image/gl.gif" border=0> <font color=#000000>作者信息及帖子信息：</font></TD>
          <TD class=td1 background=image/lbg.gif 
            bgColor=#799ae8>&nbsp;<font color=#000000>你是本帖的第 <%=""&view&""%> 位读者</font>&nbsp; </TD></TR></TBODY></TABLE></TD></TR>
  <TR>
    <TD width="100%">
      <TABLE 
      style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all; BORDER-COLLAPSE: collapse" 
      cellSpacing=0 cellPadding=0 width="100%" border=1>
        <TBODY>
        <TR>
          <TD vAlign=top align=middle width="25%" bgColor=#f9f8f2>
            <TABLE style="BORDER-COLLAPSE: collapse" cellSpacing=0 cellPadding=0 
            width="100%" border=0>
              <TBODY>
              <TR>
                <TD width="99%" height=28><div align="center"><A href="../datum.asp?username=<%=rs("username")%>">
				  <FONT color=blue><B>
	  <%
	set rt=conn.execute ("select name,money,homepage,bbscount,userface,bbsjob,width,height,joindate from user where username = '"&rs("username")&"'")%>
	  <%=rt("name")%></B></FONT></A></div></TD></TR>
              <TR>
                <TD width="89%"><div align="center"><A href="../datum.asp?username=<%=rs("username")%>"><%=showuserpic(rt("userface"),rt("width"),rt("height"))%></A></div></TD></TR>
              <TR>
                <TD width="89%">
                <P 
                  style="MARGIN: 4px; LINE-HEIGHT: 120%">金钱：<%=rt("money")%>元<BR>帖数：<%=rt("bbscount")%><BR>职业：<%=rt("bbsjob")%><BR>注册：<%=rt("joindate")%></P></TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top width="75%" bgColor=#ffffff>
            <TABLE style="BORDER-COLLAPSE: collapse" height=28 cellSpacing=0 
            cellPadding=0 width="100%" bgColor=#f9f8f2 border=0>
              <TBODY>
              <TR>
                <TD style="BORDER-BOTTOM: 1px solid" width="80%">
                  <P style="MARGIN: 4px">&nbsp;<A href="../datum.asp?username=<%=rs("username")%>"><IMG 
                  src="image/info.gif" border=0> 资 料</A> &nbsp; <a href="../mail.asp?type2=add&uer=<%=rs("username")%>"><IMG 
                  src="image/newmail.gif" border=0> 短 信 </A> &nbsp; <A 
                  title=访问作者主页 href="http://<%=rt("homepage")%>" target=_blank><IMG 
                  src="image/home.gif" border=0> 主 页</A> &nbsp; <A 
                  href="edit.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=edit&out=1"><IMG 
                  src="image/edit.gif" border=0> 编 辑</A> </P></TD>
                <TD style="BORDER-BOTTOM: 1px solid" align=right width="20%">楼　主　</TD>
              </TR></TBODY></TABLE>
            <BLOCKQUOTE><IMG src="face/<%=rs("face")%>" border=0> <B><%=rs("title")%></B>
              <P style="LINE-HEIGHT: 125%"><%
		   content=rs("content")
		   CONTENT=htmlcode(CONTENT)
		   CONTENT=UBBCODE(CONTENT)
		   
		   'content=replace(content,chr(13),"<br>")
		   'content=replace(content,chr(32),"&nbsp;")
		   Response.Write(content)
		   %></P></BLOCKQUOTE></TD></TR>
        <TR>
          <TD align=middle width="25%" bgColor=#f9f8f2 height=28><IMG src="image/ip.gif" align=absMiddle 
            border=0>&nbsp; <FONT color=#799ae8>IP：<%=rs("ip")%></FONT></TD>
          <TD width="75%" bgColor=#f9f8f2>&nbsp;<IMG src="image/xie.gif" 
            border=0><%=rs("date")%></TD>
        </TR></TBODY></TABLE>
		
	<%	rs.close