editbbs2.asp

网页分为两部分：新闻管理系统和新闻发布系统。使用ASP技术创建新闻界面

		Do Until rs.EOF                                                                          
		if rs("first")=0 then                                                                          
			ren="主题"                                                                          
			tcolor="#CCFFFF"                        
			dealway="修改"                 
			deal="change"                                                                        
		else                                                                          
			ren="回复"                                                                          
			tcolor="#FFFFCC"                        
			dealway="删除"                
			deal="delone"                                                                          
		end if                              
                                                                         
		dim mtitle                             
		dim muser                                      
		mtitle = rs("title")                             
		muser=rs("user")                               
		response.write "<tr><td width='48%' bgcolor='"&tcolor&"'>&nbsp;"&ren&"："                                      
                                      
 		if strLength(mtitle) > 33 then                             
 			response.write "<font color='#FF0000'><a title='"&server.htmlencode(mtitle)&"'>"                                                    
			response.write server.htmlencode(left(mtitle,strLen(mtitle,32)))&"..</font>"                                            
 		else                                                    
 			response.write "<font color='#FF0000'>"&server.htmlencode(mtitle)&"</font>"                                                    
 		end if                             
		response.write "</td>"                                      
		response.write "<td width='17%' bgcolor='"&tcolor&"'>&nbsp;"                                                                          
		if strLength(muser) > 12 then                           
			response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"' title='"&server.htmlencode(mtitle)&"'>"                                
			response.write server.htmlencode(left(muser,strLen(muser,11)))&".."                               
		else                            
			response.write "<a href='mailto:"&server.htmlencode(rs("mail"))&"'>"                                            
			response.write server.htmlencode(muser)                                          
		end if                             
		response.write "</a></td>"                     
		response.write "<td width='7%' bgcolor='"&tcolor&"'><p align='center'><a href='dealbbs.asp?deal="&deal&"&first="&request.querystring("id")&"&type="&request.querystring("type")&"&id="&rs("id")&"'>"&dealway&"</a></p></td>"                                         
		response.write "<td width='28%' bgcolor='"&tcolor&"'><p align='center'>"&rs("bbstime")&"</p></td></tr>"                                      
		response.write "<tr><td width='100%' colspan='4'><BLOCKQUOTE><pre><br>"&server.htmlencode(rs("detail"))&"</pre></BLOCKQUOTE></td></tr>"                        
                           
		rs.MoveNext                                      
		Loop                             
		response.write "</table>"                             
	end if                                       
                                   
%>                                        
<br>                                      
<br>                                                                                                                                                              
<form method="POST" action="bbsview2.asp">                                                                                                                                                               
                                                                                                 
<div align="center">                                                                                                                                         
  <table border="0" width="580" cellspacing="1">                                                                         
  <tr>                                                                                                                
      <td width="80"></td>                                                                                                                
      <td align="right"></td>                                                                                                                
    </tr>                                                                                                                                    
    <tr>                                                                                                                                         
      <td width="80" align="right">用户姓名：</td>                                                                                                                                                                         
      <td align="left"><input type="text" name="user" size="22" class="input_a">&nbsp;&nbsp;                                                                                   
        电子邮件：<input type="text" name="mail" size="24" class="input_a"><input type="hidden" name="type" size="2" value="<%=Request.querystring("type")%>"><input type="hidden" name="id" size="2" value="<%=Request.querystring("id")%>">                                                                                                                                                                                                                                               
	</tr>                                                                                                                                                                                                                 
    <tr>                                                                                                                                                                                                                 
      <td width="80" align="right">回复主题：</td>                                                                                                                                                                                                                                                  
	  <td>                                                                                                               
        <input type="text" name="title" value="" size="59" class="input_a">                                                                                                          
      </td>                                                                                                                                                                                                                                     
    </tr>                                                                                                                                                                                                                 
    <tr>                                                                                                                                                                                                              
      <td width="80" align="right">详细内容：</td>                                                                                                                                                                                                                                              
	  <td>                                                                                                              
        <textarea rows="4" name="detail" cols="74" wrap="hard" style="font-size: 9pt" class="input_a"></textarea></td>                                                                                                                                                                                                                                             
	</tr>                                                                                                                                                                                                             
    <tr>                                                                                                                                                                                                             
      <td width="80">                                                                                                             
       </td>                                                                                                                                                                                                              
      <td> <input type="submit" value=" 提交 " name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value=" 重置 " name="B2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:history.go(-1)">返回上页</a></td>                                                                                                                                                                                                                  
    </tr>                                                                                                                                                                                                                
</table>                                                                                                                                                                                                                
</div>                                                                                                                                                                                                                                         
</form>                                                                                                                                                                                                                
<%                                                                                                                                                                                                                
end if                                                    
rs.close                                                                                                                                                               
set rs=nothing                           
conn.close                                                        
set conn=nothing                          
%>                                                                                                                                                                                                               
<p>　</p>                                                                                                        
</body>                                                                                                                                                                                                                          
</html>                              
<%                             
end if                             
%>