<%
Head()
Select Case Lcase(request.querystring("Action"))
Case"agreement"
CheckString "42"
agreement()
Case"editplacard"
CheckString "03"
EditPlacard()
Case"sayplacard"
CheckString "03"
SayPlacard()
Case"allsms"
CheckString "34"
AllSms
End select
Footer()
Sub agreement()
Dim Temp,objFSO,objname
Set objFSO = Server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
Set objName=objFSO.OpenTextFile(Server.MapPath("inc/agreement.html"))
Temp=objName.readall
objName.close
Set objFSO=nothing
Response.Write""
End sub
Sub SayPlacard()
Dim ID,Caption,Content,Title,name,AddTime,Hits,B_ID
Title="发布公告"
AddTime=MNBoard.NowBBSTime
Name=MNBoard.GetMemor("Admin","AdminName")
Hits=0
ID=Request("ID")
B_ID=0
If ID<>"" Then
Set Rs=MNBoard.execute("select BoardID,Caption,Content,AddTime,Name,hits from [i_Placard] where ID="&ID&"")
IF Not rs.eof Then
Title="编辑公告"
B_ID=Rs(0)
Caption=Rs(1)
Content=Rs(2)
AddTime=Rs(3)
Name=Rs(4)
Hits=Rs(5)
Else
Goback"","找不到记录，可能已经删除了。"
End If
End If
Response.Write""
End Sub
Sub AllSms
Response.Write""
End Sub
%>