editbbsboard.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="editbbsboard.asp">
<input type="hidden" name="SubmitFlag" value=yes>
<table width="779" border="0" align="center" cellspacing="8">
  <tr><td>  <b> 同学录论坛==添加版面</b>||<b><a href="managebbsboard.asp">版面管理</a></b>
	</td></tr><tr><td>
<%
If Request("SubmitFlag") <> "" Then
		Addbbsboards
		Exit Function
Else
		DisplayBBSSet
End If
%>
</td></tr><tr><td height="40" 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
dim rs
set rs=conn.execute ("select * from boards where boardid="&Request.QueryString("boardid"))
%>
		
<table width="779" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=140>论坛版面编号:</td>
    <td width="570"><input name="BoardID" type="text" class=fminpt id="BoardID" onkeyup='this.value=this.value.replace(/\D/gi,"")' value="<%=rs("boardid")%>" size="12" maxlength="12" readonly> 
      <font color=gray>(数字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>论坛排序编号：</td>
    <td><input name="orderid" type="text" class=fminpt id="orderid" value="<%=rs("orderid")%>" size="12" maxlength="12" onkeyup='this.value=this.value.replace(/\D/gi,"")'> 
      <font color=gray>(数字，用来排列论坛顺序，数字越小越排前)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>论坛版面名称:</td>
    <td><input name="boardName" type="text" class=fminpt id="boardName" value="<%=rs("boardname")%>" size="30" maxlength="50"> 
      <font color=gray>(论坛版面名称，50字，支持html，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>版面简单描述:<br>
      可以使用HTML</td>
    <td><textarea name="boardintro" cols="30" class="fminpt" id="boardintro"><%=rs("boardintro")%></textarea> 
      <font color=gray>(最长250字，必填)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>最后发表时间:</td>
    <td> <input name="lastwritetime" type="text" class=fminpt id="lastwritetime" value="<%=rs("lastwritetime")%>" size="30" maxlength="20"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td height="26">论坛总主题数:</td>
    <td> <input name="topicnum" type="text" class=fminpt id="topicnum2" value="<%=rs("topicnum")%>" size="30" maxlength="12" ></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>论坛总帖子数:</td>
    <td> <input name="AnnounceNum" type="text" class=fminpt id="AnnounceNum" value="<%=rs("AnnounceNum")%>" size="30" maxlength="12" ></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9>
    <td>论坛版主列表:</td>
    <td><input name="masterlist" type="text" class=fminpt id="masterlist" value="<%=rs("masterlist")%>" size="30" maxlength="255">
      <font color=gray>(多个斑竹用,隔开，斑竹为已注册用户的<font color="#FF0000">用户名</font>,否则无效或出错)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>论坛公告:<br>
      (<font color="#FF0000">HTML支持</font>) </td>
    <td><textarea name="bbsnotic" cols="60" rows="5" class="fminpt" id="bbsnotic"><%=rs("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
			OpenDatabase
			Dim sql,rs
			sql="select * from boards where  boardid="&frm_BoardID
			set rs=server.CreateObject("adodb.recordset")
			rs.open sql,conn,1,3
			if  rs.eof then
				errmsg=errmsg&"<li>没有编号为"&frm_BoardID&"的论坛版面，请重新选择编号！</li>"
				flag=0
			else
					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("AnnounceNum")=frm_AnnounceNum
					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
%>