wm.sys_plus.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Plus") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Dim ID, Title,AdminLink
ID = WRMPS.CheckStr(Request("ID"),1)
Call DBConnBegin()
Select Case Request("Action")
  Case "Del"
    Conn.Execute("Delete From WM_Plus Where WM_ID = "&ID)
    Response.Write "<script>parent.left.document.location.reload();</script>"
	Call WRMPS.ErrView("·插件删除成功<meta http-equiv=refresh content='1;URL=WM.Sys_Plus.asp'>",1)
	
  Case "Save"
    Title = WRMPS.CheckStr(Request("Title"),0)
    Author = WRMPS.CheckStr(Request("Author"),0)
    AdminLink = WRMPS.CheckStr(Request("AdminLink"),0)
    If Title = "" Or AdminLink = "" Then Call WRMPS.ErrView("·请插件名称及管理地址<meta http-equiv=refresh content='1;URL=WM.Sys_Plus.asp'>",0)
	If ID <> "" Then
      Conn.Execute("Update WM_Plus Set WM_Title = '"&Title&"',WM_AdminLink = '"&AdminLink&"',WM_Author = '"&Author&"' Where WM_ID="&ID)
	Else
      Conn.Execute("Insert into WM_Plus(WM_Title,WM_AdminLink,WM_Author)values('"&Title&"','"&AdminLink&"','"&Author&"')")
	End If
    Response.Write "<script>parent.left.document.location.reload();</script>"
	Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=WM.Sys_Plus.asp'>",1)
    
  Case "Add"
    If ID <> "" Then
	  Set Rs = Conn.Execute("Select * From WM_Plus Where WM_ID="&ID)
      If Not Rs.Eof Then
	    Title = Rs("WM_Title")
        AdminLink = Rs("WM_AdminLink")
		Author = Rs("WM_Author")
	  End If
	  Rs.Close
	  Set Rs = Nothing
	End If
    Content = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
    Content = Content & "<form method=POST action='?Action=Save&ID="&ID&"'>" & vbCrLf
    Content = Content & "<tr><td colspan=2 class=td4><strong>添加插件</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td width='35%'><strong>插件名称</strong></td>" & vbCrLf
    Content = Content & "<td width='65%'><input name=Title type=text style='width:150' value="""&WRMPS.CheckStr(Title,3)&"""></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>插件作者</strong></td>" & vbCrLf
    Content = Content & "<td><input name=Author type=text style='width:150' value="""&WRMPS.CheckStr(Author,3)&"""></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td><strong>插件管理中心地址</strong></td>" & vbCrLf
    Content = Content & "<td><input name=AdminLink type=text style='width:350' value="""&AdminLink&"""></td></tr>" & vbCrLf
    Content = Content & "<tr class=td2><td></td>" & vbCrLf
    Content = Content & "<td><input type=submit value='确定修改'></td></tr>" & vbCrLf
    Content = Content & "</form>" & vbCrLf
    Content = Content & "</table>" & vbCrLf

  Case Else
	Content = "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
    Content = Content & "<tr><td colspan=4 class=td4><strong>插件管理</strong></td></tr>" & vbCrLf
    Content = Content & "<tr class=td3 align=center><td width='15%'>插件名称</td>" & vbCrLf
    Content = Content & "<td width='45%'>插件管理中心地址</td>" & vbCrLf
    Content = Content & "<td width='20%'>作者</td>" & vbCrLf
    Content = Content & "<td width='20%'>操作</td></tr>" & vbCrLf
	Set Rs = Conn.Execute("Select * From WM_Plus Order By WM_ID Desc")
	  Do While Not Rs.Eof
        Content = Content & "<tr class=td2><td>"&Rs("WM_Title")&"</td>" & vbCrLf
        Content = Content & "<td>"&Rs("WM_AdminLink")&"</td>" & vbCrLf
        Content = Content & "<td align=center>"&Rs("WM_Author")&"</td>" & vbCrLf
        Content = Content & "<td align=center><a href=?Action=Add&ID="&Rs("WM_ID")&">修改</a> | <a href=?Action=Del&ID="&Rs("WM_ID")&" onclick=""return confirm('确定删除？');"">删除</a></td></tr>" & vbCrLf
	  Rs.MoveNext
	  Loop
	Rs.Close
	Set Rs = Nothing
    Content = Content & "</table>" & vbCrLf
End Select
Call DBConnEnd()
Call ClassEnd()
Response.Write Content
Call GetBottom()
%>