<% Dim Action Dvbbs.LoadTemplates("") Dvbbs.Stats = "发表帖子" Dvbbs.Nav() Dvbbs.Head_var 0,0,Plus_Popwan.Program,"plus_popwan_post.asp" Dvbbs.ActiveOnline() action = Request("action") Page_main() If action<>"frameon" Then Dvbbs.Footer End If Dvbbs.PageEnd() '页面右侧内容部分 Sub Page_Center() If Not (Dvbbs.master Or Dvbbs.GroupSetting(70)="1") Then Dvbbs.AddErrcode(28) Dvbbs.ShowErr() End If %>
  <%=Application(Dvbbs.CacheName&"_boardlist").documentElement.selectSingleNode("board[@boardid='"&Dvbbs.BoardID&"']/@boardtype").text%>  发表帖子
用户名:   点击 (填写表单) 可快速填写表单
主题标题:  *不得超过 <%=Dvbbs.Board_Setting(45)%> 个汉字
当前心情
上一页 发帖表情 下一页
文件上传 类型
高级设置: 签名: 回帖通知:
  选项:帖子锁定  帖子固顶  帖子总固顶
 
<% End Sub Function GetFormID() Dim i,sessionid sessionid = Session.SessionID For i=1 to Len(sessionid) GetFormID=GetFormID&Chr(Mid(sessionid,i,1)+97) Next End Function %>