addbbsboard.asp

同学录的设计

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->

<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
OpenDatabase
txl_SiteHead const_txlname&"- 管理员"
BBSSET
CloseDatabase
SiteBottom
Response.End()
Function BBSSET
Dim Reqn,WriteN
ReqN = 0
WriteN = 0
%>

<form name="pollform3sdx" method="post" action="addbbsboard.asp">
<input type="hidden" name="SubmitFlag" value=yes>
  <table width="753" border="0" align="center" cellpadding="8" cellspacing="0">
	<tr>
	<td> <b> 同学录论坛==添加版面</b>||<b><a href="managebbsboard.asp">版面管理</a></b></td>
	</tr>
	<tr>
	<td align="center">
	<%
	If Request("SubmitFlag") <> "" Then
			Addbbsboards
			Exit Function
	Else
			DisplayBBSSet
	End If
	%>
	</td></tr>
	<tr>
	<td align="center">
	<input type=submit name=提交 value=提　交 class=fmbtn>　
	<input type=reset name=取消 value=取　消 class=fmbtn>
	</td>
	</tr>
</table>
</form>
<%

End Function

Function CheckLinkValue

	GetFormValue

End Function

Function DisplayBBSSet


%>
		
<table width="753" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=140 class="tar">论坛版面编号:</td>
    <td><input name="BoardID" type="text" class=fminpt id="BoardID" size="12" maxlength="12" onkeyup='this.value=this.value.replace(/\D/gi,"")'> 
    <font color=gray>(数字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9>
    <td class="tar">论坛排序编号：</td>
    <td><input name="orderid" type="text" class=fminpt id="orderid" value="0" size="12" maxlength="12" onkeyup='this.value=this.value.replace(/\D/gi,"")'>
      <font color=gray>(数字，用来排列论坛顺序，数字越大越排前)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">论坛版面名称:</td>
    <td><input name="boardName" type="text" class=fminpt id="boardName" size="30" maxlength="50">
      <font color=gray>(论坛版面名称，50字，支持html，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">版面简单描述:<br>
    可以使用HTML</td>
    <td><textarea name="boardintro" cols="30" class="fminpt" id="boardintro"></textarea>
      <font color=gray>(最长250字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">最后发表时间:</td>
    <td> <input name="lastwritetime" type="text" class=fminpt id="lastwritetime" value="<%=now()%>" size="30" maxlength="20"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td height="26" class="tar">论坛总主题数:</td>
    <td> <input name="topicnum" type="text" class=fminpt id="topicnum2" value="0" size="30" maxlength="12" readonly></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">论坛总帖子数:</td>
    <td> <input name="AnnounceNum" type="text" class=fminpt id="AnnounceNum" value="0" size="30" maxlength="12" readonly></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">论坛版主列表:</td>
    <td><input name="masterlist" type="text" class=fminpt id="masterlist" size="30" maxlength="255">
      <font color=gray>(多个斑竹用,隔开，斑竹为已注册用户的<font color="#FF0000">用户名</font>,否则无效或出错)</font></td>
  </tr>
    <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td class="tar">论坛公告:<br>
      (<font color="#FF0000">HTML支持</font>) </td>
    <td><textarea name="bbsnotic" cols="60" rows="5" class="fminpt" id="bbsnotic"></textarea> 
    </td>
  </tr>
</table>
		<%

End Function

Function GetFormValue

	dim thing
	for each thing in Request.Form
		Response.Write thing&"="&Request(thing)&"<br>"
	next

End Function

Function Addbbsboards
	Dim frm_BoardID,frm_boardintro,frm_boardName,frm_topicnum,frm_AnnounceNum,frm_masterlist,errmsg,flag
	flag=1
	errmsg="<ul><font color=red>"
	frm_BoardID=TRim(Request.Form("BoardID"))
	frm_boardintro=TRim(Request.Form("boardintro"))
	frm_boardName=TRim(Request.Form("boardName"))
	frm_topicnum=TRim(Request.Form("topicnum"))
	frm_AnnounceNum=TRim(Request.Form("AnnounceNum"))
	frm_masterlist=TRim(Request.Form("masterlist"))
	if frm_BoardID=""  then errmsg=errmsg&"<li>编号不能为空</li>":flag=0
	if not isnumeric(frm_BoardID) then errmsg=errmsg&"<li>编号必须为数字</li>":flag=0
	if frm_boardName=""  then errmsg=errmsg&"<li>论坛名称不能为空</li>":flag=0
	if len(frm_boardName)>50  then errmsg=errmsg&"<li>论坛名称不能超过50字</li>":flag=0
	if frm_boardintro=""  then errmsg=errmsg&"<li>论坛简介不能为空</li>":flag=0
	if len(frm_boardintro)>250  then errmsg=errmsg&"<li>论坛简介不能超过250字</li>":flag=0
	if frm_topicnum="" then frm_topicnum=0
	if frm_AnnounceNum="" then frm_AnnounceNum=0
		if isnumeric(frm_BoardID) and frm_BoardID<>"" then
			Dim sql,rs
			sql="select * from boards where  boardid="&frm_BoardID
			set rs=server.CreateObject("adodb.recordset")
			rs.open sql,conn,1,3
			if not rs.eof then
				errmsg=errmsg&"<li>已经有编号为"&frm_BoardID&"的论坛版面，请重新选择编号！</li>"
				flag=0
			else
				rs.addnew()
					rs("boardid")=frm_BoardID
					rs("boardname")=frm_boardname
					rs("boardintro")=frm_boardintro
					rs("topicnum")=frm_topicnum
					rs("masterlist")=frm_masterlist
					rs("orderid")=Trim(Request.Form("orderid"))
					rs("bbsnotic")=Request.Form("bbsnotic")
				rs.update()
				Response.Write("成功添加编号为<font color='red'>"&frm_boardid&"</font>的论坛版面！")
			end if
		end if
	errmsg=errmsg&"</font></ul>"
	if flag=0 then
		Response.Write("由于以下原因，设置没有成功，请<a href='javascript:history.back()'>返回</a>修改：<br>"&errmsg&"<br><button  onclick='javascript:history.back()'>返回修改</button>") 
	else
		
	end if	
End Function
%>