edit.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,out
bm=request.QueryString("bm")
bbsid=request.QueryString("bbsid")
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&"")%>
<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 "edit":
		 call edit
  Case "saveedit":
		Call saveedit
  Case "saveedit2":
		Call saveedit2
	Case Else:
		 Response.Write("大兄弟，你操作错了")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color='#FF0000'>回头吧</font></a>")
End Select
sub edit
out=request.QueryString("out")%>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#f9f8f2 cellSpacing=0 
cellPadding=0 width="778" align=center border=1>
  <TBODY><%if out=1 then
set rs=conn.execute ("select * from bbs where bbsid = "&bbsid&"")%>
<FORM name=topic action=?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&type2=saveedit&bbsid=<%=""&bbsid&""%> method=post>
<%else
set rs=conn.execute ("select * from bbs2 where id = "&id&"")%>
<FORM name=topic action=?lb=<%=""&lb&""%>&bm=<%=""&bm&""%>&bbsid=<%=rs("bbsid")%>&type2=saveedit2&id=<%=rs("id")%> method=post>
<%end if%>
  <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>
       <% if out=1 then%>
<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" value="<%=rs("title")%>" size=40 maxLength=17>
            <FONT color=red>*</FONT>主题不要超过15个汉字</TD>
        </TR>
<%end if%>
		 <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><%=rs("content")%></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 saveedit
set rr=conn.execute ("select * from bbs where bbsid="&bbsid&" and username='"&session("wzname")&"'")
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and rr.eof and Session("sitejob")<>3 then
	%>
                           哈哈，刚才是不是以为这是系统的漏洞？<br>
						   这只不过是我给你点惊讶而已<br>
<a href='javascript:history.go(-1)'><font color="#FF0000">回去吧，孩子</font></a>
<%exit sub
end if
  dim title,content
  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 bbsid="&bbsid&"",conn,1,3
		rs("title")=title
		rs("content")=content
		rs("face")=face
		rs("lastdate")=now()
		rs("lastuser")=Session("wzname")
	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
  sub saveedit2
  set rr=conn.execute ("select * from bbs2 where id="&id&" and username='"&session("wzname")&"'")
set rh=conn.execute ("select * from bbsbm where bmid="&bm&" and bmadmin='"&session("wzname")&"'")
	IF rh.eof and rr.eof and Session("sitejob")<>3 then
	%>
                           哈哈，刚才是不是以为这是系统的漏洞？<br>
						   这只不过是我给你点惊讶而已<br>
<a href='javascript:history.go(-1)'><font color="#FF0000">回去吧，孩子</font></a>
<%exit sub
end if
  dim content
  face=request.form("face")
  content=request.form("content")
	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 bbs2 where id="&id&"",conn,1,3
		rs("content")=content
		rs("face")=face
	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" -->
</center>
</BODY></HTML>