func_forummanage.asp

企业办公简单管理系统,可以发布信息以及论坛

<SCRIPT LANGUAGE="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	
	function showtable(tablename)
	{
		if (tablename.style.display == "") 
			tablename.style.display = "none";
		else
			tablename.style.display = "";
	}
	function DoSubmit0(value)
	{
		document.selectform.selectid.value=value;
		document.selectform.submit();
	}

	function DoSubmit1(value)
	{
		document.deleform.deleteid.value=value;
		document.deleform.submit();
	}
//-->
</SCRIPT>
<!-- #include file="func_verify.asp" -->
<%
function CheckInfo(str)
	dim i
	CheckInfo=""
	if not isnull(str) then 
		for i=1 to len(str)
			if mid(str,i,1)=" " then
				CheckInfo=CheckInfo&"&nbsp;"
			elseif mid(str,i,1)=chr(13) and mid(str,i+1,1)=chr(10) then
				CheckInfo=CheckInfo&"<br>"
				i=i+1
			else
				CheckInfo=CheckInfo&mid(str,i,1) 
			end if
		next
	end if
end function

dim sumcount,saveserial


set rs = Server.CreateObject("ADODB.Recordset")

if request("deleteflag")="1" then
	sql="delete from cci_forum where id=" & request("deleteid")
	ConnObj.execute(sql)
	msg="信息删除成功，编号为:" & request("deleteid")
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div>")
end if


if request("saveflag")<>"" then
	
	saveserial=1
	msg=""

	if trim(request("srcname"))="" then
		msg=msg & saveserial & "、请输入信息来源!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("title"))="" then
		msg=msg & saveserial & "、标题不能为空，请输入标题!<br>"
		saveserial=saveserial+1
	end if
	if trim(request("content"))="" then
		msg=msg & saveserial & "、内容不能为空，请输入内容!<br>"
		saveserial=saveserial+1
	end if
			
	if saveserial<=1 then
		if request("saveflag")="2" then
			sql="select * from cci_forum where id=" & request("id")
		else
			sql="select * from cci_forum"
		end if
		
		rs.open sql,connobj,3,3
		if request("saveflag")="1" then
			rs.addnew
		end if
		
		rs("typeid")=request("type")
		rs("sharetype")=request("sharetype")
		rs("srcname")=trim(request("srcname"))
		rs("title")=trim(request("title"))
		rs("intime")=now()
		if request("saveflag")="1" then
			rs("feedbacksum")=0
			rs("visitsum")=0
		end if	
		rs("lastsrc")=trim(request("srcname"))
		rs("lasttime")=now()
		rs("content")=request("content")
		rs.update
		rs.close
		msg="发布成功！" & site_title & "谢谢您提供信息!"
	end if
	
	response.Write("<div align=center><font color=#FF0000>" &msg & "</font></div><br>")
end if


SQL = "select count(*) as sumcount From cci_forum a,cci_forumtype b where a.typeid=b.id"
rs.Open Sql,connObj,1,1
if not rs.eof then
	sumcount=rs("sumcount")
else
	sumcount=0
end if 
rs.close

SQL = "select a.id,a.title,b.typename,a.content,a.intime From cci_forum a,cci_forumtype b where a.typeid=b.id order by a.typeid,a.intime desc"
Rs.Open Sql,connObj,1,1

%>				
<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableBorder1>
        <tr> 
		
    <th height="24" align="center"> <b><%=site_title%>论坛管理</b> </th>
        </tr>
       
        <tr> 
          <td  align="center" valign="top" bgcolor="#FFFFFF"> 
               
             <table width="100%" cellpadding=1 cellspacing=1 class=tableborder1>
              <tr align="center" height=25> 
                
          <td  class=TopLighNav>论坛标题</td>
  	      <td width="80"  class=TopLighNav>论坛类型</td>
          <td width="120"  class=TopLighNav>发布日期</td>
		  <td width="30"  class=TopLighNav>编辑</td>
		  <td width="30"  class=TopLighNav>删除</td>
              </tr>
              <%
				If (Not Rs.Eof) And (Not Rs.Bof) Then
					page_size = 5
					Rs.pagesize = page_size
					page_count = Rs.pagecount
					Page = Request.QueryString("page")
					If Isnull(Page) or (Not Isnumeric(Page)) Then
						aPage = 1
					Else
						aPage = Cint(page)
						If aPage < 1 Then
							aPage = 1
						ElseIf aPage > Cint(page_count) Then
							aPage = page_count
						End If
					End If
					Rs.Absolutepage = aPage
					Ars = Rs.Getrows(page_size)
			 
					For i = 0 To Ubound(Ars,2)
					'style="cursor:hand" onClick="showtable(table<%=Ars(0,i) style="display: none"
				%> 
              <tr bgcolor=#FFFFFF align="center"  height= 20> 
                <td><a href=foruminfo.asp?id=<%=ars(0,i)%>><%=Ars(1,i)%></a> </td>
                <td> <% = Ars(2,i) %> </td>
		<td > <% = Ars(4,i) %> </td>
		<td ><input type=radio name=abc <%if request("selectid")=cstr(ars(0,i)) then response.Write(" checked")%>  onclick="DoSubmit0(<%=trim(Ars(0,i))%>)"></td>
		<td ><input type=radio name=bcd onclick="DoSubmit1(<%=trim(Ars(0,i))%>)"></td>
	      </tr>
              <%
				Next
			Else
				Response.Write("<tr><td bgcolor=#FFFFFF align=center colspan=5>目前没有纪录任何公告!</td></tr>")
			End If
			rs.close
							
				%>
            </table>
			
                </td>
              </tr>
                <tr bgcolor="#FFFFFF"><form name="form1"> 
                  <td align="center" height="20"> 
                    <%
						If sumcount > 0 Then
					%>
                            [共有 
                            <% = sumcount %>
                            条记录 页: 
                            <% = aPage %>
                            / 
                            <% = page_count %>
                            ] 
<%
	if Cint(aPage) > 1 then	
%>
                            [<a href="forummanage.asp?page=<% = aPage - 1 %>">上一页</a>] 
<%
	else
	response.write "[上一页]"
	end if
	if (Cint(aPage) < Cint(page_count)) then
%>
                            [<a href="forummanage.asp?page=<% = aPage + 1 %>">下一页</a>] 
<%
	else
	response.write "[下一页]"
	end if
%>
                            跳到
							<select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
<%
		For i = 1 to page_count
		If i = aPage Then			
%>
		<option value="forummanage.asp?page=<% = i %>" selected><% = i %></option>
<%
		else
%>
		<option value="forummanage.asp?page=<% = i %>"><% = i %></option>
<%
		End If
		Next
%>
                            </select>页
<%
	Else
	Response.Write("&nbsp;")
	End If
%> 
                  </td></form>
                </tr>
             
          
      </table>

<%
	if request("selectflag")="1" then
		sql="select * from cci_forum where id=" & request("selectid")
		Rs.Open Sql,connObj,1,1
		if not rs.eof then
			editid=rs("id")
			edittitle=rs("title")
			edittype=rs("typeid")
			sharetype=rs("sharetype")
			editsoruce=rs("srcname")
			editcontent=rs("content")
		end if
		rs.close

	end if
%>

<table width="100%" align="center" cellpadding="1" cellspacing="1" class=tableborder1>
  <form name="theform" method="post" action="">
    <tr> 
      <td class=TopLighNav align="center" colspan="2"><b> 论坛录入栏</b></td>
    </tr>
    <tr> 
      <td class=tablebody1 width="150" align="right"><b>标题：</b></td>
      <td class=tablebody1><input name="title" type="text"  size="55" value="<%=edittitle%>">
        <input type="submit" name="Submit" value="发 布"> <input type=hidden name=id value="<%=editid%>"> </td>
    </tr>
    <tr> 
      <td class=tablebody1 align="right"><b>类型：</b></td>
      <td class=tablebody1><select name="type">
				<%
						sql="select * from cci_forumtype"
			Rs.Open Sql,connObj,1,1
			flag=0
			do while not rs.eof
				if edittype=rs("id") then
					flag=1
				 	response.Write "<option value=" & rs("id") & " selected>" & rs("TypeName") & "</option>"
				else
					response.Write "<option value=" & rs("id") & ">" & rs("TypeName") & "</option>"
				end if
				rs.movenext
			loop
		rs.close
		if flag<>1 then
			response.Write "<option selected></option>"
		else
			response.Write "<option></option>"		
		end if
			%>
              </select>
        发布人 
        <input name="srcname" type="text" id="srcname" value="<%
		if session("username")<>"" then 
		 	response.Write(session("username"))
		else
		  	response.Write("游客")
		end if
		%>" size="15"></td>
    </tr>
    <tr>
      <td class=tablebody1 align="right"><b>发表类型：</b></td>
      <td class=tablebody1> 
        <select name=sharetype>
		<% if sharetype=1 then
          		response.Write "<option value=1 selected>原创</option><option value=2>转载</option>"
		   else
		   		response.Write "<option value=1>原创</option><option value=2 selected>转载</option>"
		   end if
		 %> 
        </select> </td>
    </tr>
    <tr> 
      <td align="right" valign="top" class=tablebody1><b>内容:</b><br>
        在这里，您可以发表您的各种想法以及论调，为了一个良好的交流环境，大家一起来行动，说出来吧！ </td>
      <td valign="top" class=tablebody1><textarea name="content" cols="80" rows="15"><%=editcontent%></textarea></td>
    </tr>
<%
  if request("selectflag")="1" then
  	response.Write("<input type=hidden name=saveflag value=2>")
  else
  	response.Write("<input type=hidden name=saveflag value=1>")
  end if
  %>
</form>
  </table>

<form name=deleform action="" method=post>
<input type=hidden name=deleteid>
<input type=hidden name=deleteflag value="1">
</form>
<form name=selectform action="" method=post>
<input type=hidden name=selectid>
<input type=hidden name=selectflag value="1">
</form>