wm.sys_note.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("Note") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
    Dim WM_Note, NoteNum, NoteContent, Path,N,i
    Call DBConnBegin()
	Set Rs = server.createobject("adodb.recordset")
    Select Case WRMPS.CheckStr(Request("Action"), 0)
      Case "Save"
         NoteNum = WRMPS.CheckStr(Request("NoteNum"), 1)
         For i = 1 To NoteNum
           If Request("Note" & i) <> "Del" Then WM_Note = WM_Note & "§§§" & Request("Note" & i)
         Next
         If Left(WM_Note, 3) = "§§§" Then WM_Note = Right(WM_Note, Len(WM_Note) - 3)

         If WM_Note = "" Then WM_Note = Null
		 WM_Note = Replace(WM_Note,"""","\""")
         Conn.Execute ("Update WM_Config Set WM_Note = '" & WM_Note & "'")
		 
         If WM_Note <> "" Then
           NoteContent = "tips = new Array({$Num});" & vbCrLf
           N = 0
           If InStr(WM_Note, "§§§") > 0 Then
             For i = 0 To UBound(Split(WM_Note, "§§§"))
                N = N + 1
                NoteContent = NoteContent & "tips[" & i & "] = """ & WRMPS.CheckStr(Split(WM_Note, "§§§")(i),6) & """;" & vbCrLf
             Next
           Else
             N = N + 1
             NoteContent = NoteContent & "tips[0] = """ & WRMPS.CheckStr(WM_Note,6) & """;" & vbCrLf
           End If
           NoteContent = Replace(NoteContent, "{$Num}", N)
           NoteContent = NoteContent & "index = Math.floor(Math.random() * tips.length);" & vbCrLf
           NoteContent = NoteContent & "document.write(tips[index]);"
         Else
           NoteContent = " "
         End If
         
         Call LabelNote()
		 Call WRMPS.ErrView("·每日帖士修改成功<meta http-equiv=refresh content='1;URL=WM.Sys_Note.asp'>",1)
         
      Case Else
         Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
         Content = Content & "<tr class=td4><td Colspan=2><strong>每日帖士管理</strong></td></tr>" & vbCrLf
         Content = Content & "<form name='addform' method='post' Action='?Action=Save'>" & vbCrLf
         Rs.Open "Select WM_Note From WM_Config", Conn, 1, 1
         N = 0
         If Not Rs.EOF Then
           WM_Note = Rs(0)
           If WM_Note <> "" Then
           If InStr(WM_Note, "§§§") > 0 Then
             WM_Note = Split(WM_Note, "§§§")
             For i = 0 To UBound(WM_Note)
               N = N + 1
               Content = Content & "<tr class=td2><td align=center><strong>第 " & N & " 帖</strong></td><td><textarea name=Note" & N & " cols=80 rows=3>" &  Replace(WM_Note(i),"\""","""") & "</textarea></td></tr>" & vbCrLf
             Next
           Else
             N = N + 1
             Content = Content & "<tr class=td2><td align=center><strong>第 " & N & " 帖</strong></td><td><textarea name=Note" & N & " cols=80 rows=3>" & Replace(WM_Note,"\""","""") & "</textarea></td></tr>" & vbCrLf
           End If
           End If
         End If
         Rs.Close
         Content = Content & "<tr class=td2><td align=center width='20%'><strong>第 " & N + 1 & " 帖</strong></td><td width='80%'><textarea name=Note" & N + 1 & " cols=80 rows=3>Del</textarea></td></tr>" & vbCrLf
         Content = Content & "<tr class=td3><td></td><td><input name=NoteNum type=hidden value=" & N + 1 & "><input type=submit name='Submit' value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
         Content = Content & "<tr class=td2><td colspan=2><b>注：</b><br>① 修改规则：支持HTML，如果想清除该帖士，请在对应的文本框中输入 Del ，注意大小写。</td></tr>" & vbCrLf
         Content = Content & "</form></table>" & vbCrLf
    End Select
  Set Rso = Nothing
  Set Rs = Nothing  
  Call DBConnEnd()
  Call WRMPS.Loading("")
  Call ClassEnd()
  Response.Write Content
  Call GetBottom()
End Sub

%>