hf.asp

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

<!--#include file="top.asp"-->
<SCRIPT src="ybbcode.js"></SCRIPT>
<%dim bm,lb,type2,rs,bbsid,view,face,sql,df
bm=request.QueryString("bm")
id=request.QueryString("id")
lb=request.QueryString("lb")
type2=request.QueryString("type2")
set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")
set rt=conn.execute ("select lbname from bbslb where lbid = "&lb&"")%>
<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>
 <%rs.close
rt.close
set rt= nothing
set rs= nothing
Select Case type2
	Case "saveadd":
		 call saveadd
  Case "saveedit":
		Call saveedit
	Case Else:
		 call show
End Select
sub show%>
<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&""%>&type2=saveadd 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 width="23%" bgColor=#f9f8f2>
            <P style="MARGIN: 5px; LINE-HEIGHT: 150%"><B> 帖子主题：</B></P></TD>
          <TD width="77%">&nbsp;<INPUT name=title id="title" size=40 maxLength=17>
            <FONT color=red>*</FONT>主题不要超过15个汉字</TD>
        </TR>
        <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>  <font color=red>
      <%  If session("wzname")="" Then%>
      只有登录才能发帖!</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 saveadd
  dim title,content
  If session("wzname")="" Then%>
<font color=red>你可能长时间没有活动，已经掉了，请重新登录吧</font>
 <%exit sub
 End If
  face=request.form("face")
  title=request.form("title")
  content=request.form("content")
  if title="" then
	Response.Write("你也真够懒的，连标题不想写")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color='#FF0000'>回头是岸</font></a>")
	exit sub
end if
	if content="" then
		Response.Write("这么害羞，有什么话就说吧，别空着")
		Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color='#FF0000'>回头是岸</font></a>")
	exit sub
	end if
  set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbs where 1=2",conn,1,3
Rs.addnew()
		rs("title")=title
		rs("content")=content
		rs("username")=Session("wzname")
		rs("face")=face
		rs("ip")=Request.ServerVariables("REMOTE_ADDR")
		rs("date")=now()
		rs("bbsbm")=bm
		rs("lastuser")=Session("wzname")
		rs("lastdate")=now()
	Rs.Update
	bbsid=rs("bbsid")
	rs.close
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from user where username='"&Session("wzname")&"'",conn,1,3
		rs("bbscount")=rs("bbscount")+1
		rs("money")=rs("money")+5
	Rs.Update
	rs.close
	set rs=nothing
	set rs=Server.CreateObject("Adodb.Recordset")
	rs.open "select * from bbsbm where bmid="&bm&"",conn,1,3
		rs("count")=rs("count")+1
		rs("lasttitle")=title
	rs("lastdate")=now()
	rs("lastuser")=Session("wzname")
		rs("lastbbsid")=bbsid
	Rs.Update
	Response.Write("<br>")
	response.Write("操作成功")
	Response.Write("<br>")
	set rs=conn.execute ("select * from bbsbm where bmid = "&bm&"")%>
	<a href="show.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>"><%=rs("bmname")%></A><br>
	<A href="view.asp?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=""&bbsid&""%>"> 返回刚才发布的帖子</A>
<%end sub%><!--#include file="../bottom.asp" -->
</BODY></HTML>