wm.sys_singlepage.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
Call WM_Content

Sub WM_Content()
  Dim WR_Content,i
  ChannelID = WRMPS.CheckStr(Request("ChannelID"), 1)
  If ChannelID = "" Then Call WRMPS.ErrView("·操作错误", 0)
  If CheckAdminFlag("Page_"&ChannelID) = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
  Call DBConnBegin()
  Set Rs = server.createobject("adodb.recordset")
  Set Rso = server.createobject("adodb.recordset")

  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "Save"
        For i = 1 To Request.Form("Content").Count
          WR_Content = WR_Content & Request.Form("Content")(i)
        Next
        WR_Content = WRMPS.CheckStr(WR_Content,4)
        If WR_Content = "" Then WR_Content = Null
        Rs.Open "select WM_ChannelID,WM_Content from WM_SinglePage Where WM_ChannelID=" & ChannelID, Conn, 1, 3
        If Rs.EOF Then
          Rs.AddNew
          Rs(0) = ChannelID
        End If
        Rs(1) = WR_Content
        Rs.Update
        Rs.Close
        Response.Redirect "?ChannelID=" & ChannelID

    Case Else
      Set Rso = Conn.Execute("Select WM_ChannelName from WM_Channel Where WM_ID=" & ChannelID & "")
      If Not Rso.EOF Then
        Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
        Content = Content & "<form name='addform' method='post' Action='?Action=Save&ChannelID=" & ChannelID & "'>" & vbCrLf
        Content = Content & "<tr Class=td4><td colspan=2><strong>" & Rso(0) & " 频道设置：：</strong></td></tr>" & vbCrLf
        Content = Content & "<tr Class=td2><td width='20%' valign=top><strong>频道内容</strong><br><br><font class=font2>换行请按Shift+Enter<br>另起一段请按Enter</font></td>" & vbCrLf
        Content = Content & "<td width='80%'>" & vbCrLf
        Set Rs = Conn.Execute("Select WM_Content From WM_SinglePage Where WM_ChannelID=" & ChannelID & "")
        If Not Rs.EOF Then
          Content = Content & "<INPUT type='hidden' name='Content'"
          WR_Content = Rs(0)
          If WR_Content <> "" Then
            Content = Content & " Value=""" & Server.HTMLEncode(WRMPS.CheckStr(WR_Content, 5)) & """>" & vbCrLf
          Else
            Content = Content & " Value=''>" & vbCrLf
          End If
        Else
          Content = Content & "<INPUT type='hidden' name='Content' value=''>" & vbCrLf
        End If
        Rs.Close
        Content = Content & "<IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&Tool=Edit' FRAMEBORDER=0 SCROLLING=no WIDTH=600 HEIGHT=500></IFRAME></td></tr>" & vbCrLf
        Content = Content & "</td></tr>" & vbCrLf
        Content = Content & "<tr Class=td2><td></td><td>　<input type=submit name='Submit' value='提 交'></td></tr>" & vbCrLf
        Content = Content & "</form></table>" & vbCrLf
      Else
        Call WM_Class.WM_AdminClew("·请选择相关频道", 1): Exit Sub
      End If
      Rso.Close

  End Select
  Set Rso = Nothing
  Set Rs = Nothing
  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
  Call GetBottom()
End Sub
%>