📄 wm.company.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="WM.Sys_Cook.asp"-->
<%
Dim ID,N,i,Table,Word
Dim WM_Estate,Estate,eSql
Dim rFlag,UserName,Action
Dim TestCon,AreaIDName
Dim WM_Hit,WM_Re,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_ThinkGo,WM_IsGo
Dim Company,Address,Phone,Mobile,Tags,Code,Coordinate,Fax,BusinessTime,IsCard,Depot,BusRoute,Marker,Web,Intro,ClassDir
Dim DCountOut,DIntegral,WM_Commend,WM_Key,DomKey,Domain,WM_Eng
Dim WM_aZTop,WM_aTop,WM_aTitColor,WM_aBgColor,WM_aBold,WM_aProp,WM_aTColor,WM_aBColor
Dim aKey,aCommend,aZTop,aTop,aTColor,aBColor,aTitColor,aBgColor,aBold,aProp1,aProp2

ChannelID = 6
ID = WRMPS.CheckStr(Request("ID"), 0)
Page = WRMPS.CheckStr(Request("page"),1)
Table = WRMPS.CheckStr(Request("Table"), 0)
Word = WRMPS.CheckStr(Request("Word"), 0)
DomKey = WRMPS.CheckStr(Request("DomKey"),1)
If DomKey = "" Then DomKey = 1
Estate = WRMPS.CheckStr(Request("Estate"),1)
If Estate = "" Then Estate = 1
Action = WRMPS.CheckStr(Request("Action"), 0)
If (Estate = 3 Or Estate = 5) and Action = "" Then Action="IsRz"
Select Case Action
  Case "DelRz","Rz","Work","IsRz","DelR"
    If CheckAdminFlag("ComRz") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
  Case "AddSave","AddTwo","Add"
    If CheckAdminFlag("ComPost") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
  Case Else
    If CheckAdminFlag("Com") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
End Select
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set Rso = Server.CreateObject("ADODB.RecordSet")

Function ContentTop()
    ContentTop = ContentTop & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
    ContentTop = ContentTop & "<tr class=td2><form name=form1 method='get'><td width='10%'>&nbsp;"
    ContentTop = ContentTop & "<select name=Estate align=absmiddle onChange='javascript:submit()'>"
    ContentTop = ContentTop & "<option value=1 " & WRMPS.GetCheckVer("1", WRMPS.CheckStr(Estate,1), 0) & ">已审核店铺</option>"
    ContentTop = ContentTop & "<option value=0 " & WRMPS.GetCheckVer("0", WRMPS.CheckStr(Estate,1), 0) & ">待审核店铺</option>"
    ContentTop = ContentTop & "<option value=4 " & WRMPS.GetCheckVer("4", WRMPS.CheckStr(Estate,1), 0) & ">已推荐店铺</option>"
    ContentTop = ContentTop & "<option value=2 " & WRMPS.GetCheckVer("2", WRMPS.CheckStr(Estate,1), 0) & ">已锁定店铺</option>"
    ContentTop = ContentTop & "<option value=3 " & WRMPS.GetCheckVer("3", WRMPS.CheckStr(Estate,1), 0) & ">已认领店铺</option>"
    ContentTop = ContentTop & "<option value=5 " & WRMPS.GetCheckVer("5", WRMPS.CheckStr(Estate,1), 0) & ">等审核认领</option>"
    ContentTop = ContentTop & "<option value=6 " & WRMPS.GetCheckVer("6", WRMPS.CheckStr(Estate,1), 0) & ">已使用道具店铺</option>"
    ContentTop = ContentTop & "<option value=7 " & WRMPS.GetCheckVer("7", WRMPS.CheckStr(Estate,1), 0) & ">已标注地图</option>"
    ContentTop = ContentTop & "</select> "
    ContentTop = ContentTop & "</td></form>"
	ContentTop = ContentTop & "<form name=form1 method=get><td width='90%'>&nbsp;<input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Word, 0) & "'> "
    ContentTop = ContentTop & "<select name=Table align=absmiddle>"
    ContentTop = ContentTop & "<option value=WM_Company " & WRMPS.GetCheckVer("WM_Company", Table, 0) & ">店铺名称</option>"
    ContentTop = ContentTop & "<option value=WM_ID " & WRMPS.GetCheckVer("WM_ID", Table, 0) & ">店铺ID</option>"
    ContentTop = ContentTop & "<option value=WM_CheckUser " & WRMPS.GetCheckVer("WM_CheckUser", Table, 0) & ">登记人</option>"
    ContentTop = ContentTop & "<option value=WM_ClaimUser " & WRMPS.GetCheckVer("WM_ClaimUser", Table, 0) & ">所有人</option>"
    ContentTop = ContentTop & "<option value=WM_Tags " & WRMPS.GetCheckVer("WM_Tags", Table, 0) & ">标签</option>"
    ContentTop = ContentTop & "<option value=WM_Address " & WRMPS.GetCheckVer("WM_Address", Table, 0) & ">详细地址</option>"
    ContentTop = ContentTop & "<option value=WM_Intro " & WRMPS.GetCheckVer("WM_Intro", Table, 0) & ">店铺介绍</option>"
    ContentTop = ContentTop & "</select> <input type=submit name='Submit' value=' 查询 ' >"
    ContentTop = ContentTop & "</td></form>"
    ContentTop = ContentTop & "</tr></Table>" & vbCrLf
End Function

Select Case Action
  Case "Save"
	ID = Replace(ID,"&nbsp;","")
    If ID <> "" Then
      ID = Split(ID, ",")
      Call WRMPS.FsoBegin()
	  For i = 0 To UBound(ID)
         Select Case Request("Work")
		   Case "Key"
             Set Rs = Conn.Execute("Select WM_Key,WM_CheckUser,WM_Company From WM_Company Where WM_ID = "&Int(ID(i)))
			 If Not Rs.Eof Then
			   If Rs(0) < 1 Then
			     rFlag = WRDB.GetUserFlag(Rs(1))
				 Call WRDB.SaveConsume(0,Rs(1),0,Int(Split(Split(rFlag,"§")(1),"|")(2)),Int(Split(Split(rFlag,"§")(1),"|")(1)),0,"登记店铺“"&Rs(2)&"”通过审核")
	             Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum + 1")
	             Conn.Execute("Update WM_Member Set WM_CompanyNum = WM_CompanyNum + 1 Where WM_UserName = '"&Rs(1)&"'")
	             Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") + 1)
			   End If
			 End If
			 Rs.Close
		     Conn.Execute("Update WM_Company Set WM_Key=1 Where WM_ID="&Int(ID(i)))
		   Case "Comm"
             Set Rs = Conn.Execute("Select WM_CheckUser,WM_ClaimUser,WM_RZBL,WM_Company From WM_Company Where WM_ID = "&Int(ID(i)))
			 If Not Rs.Eof Then
			   If Rs(2) < 1 Then
			     rFlag = WRDB.GetUserFlag(Rs(0))
			     Call WRDB.SaveConsume(0,Rs(0),0,Int(Split(Split(rFlag,"§")(1),"|")(7)),Int(Split(Split(rFlag,"§")(1),"|")(6)),0,"店铺“"&Rs(3)&"”获推荐")
			   Else
			     rFlag = WRDB.GetUserFlag(Rs(1))
			     Call WRDB.SaveConsume(0,Rs(1),0,Int(Split(Split(rFlag,"§")(1),"|")(7)),Int(Split(Split(rFlag,"§")(1),"|")(6)),0,"店铺“"&Rs(3)&"”获推荐")
			   End If
			 End If
			 Rs.Close
		     Conn.Execute("Update WM_Company Set WM_Commend=1 Where WM_ID="&Int(ID(i)))
		   Case "NoComm"
		     Conn.Execute("Update WM_Company Set WM_Commend=0 Where WM_ID="&Int(ID(i)))
		   Case "Lock"
		     Conn.Execute("Update WM_Company Set WM_Key=2 Where WM_ID="&Int(ID(i)))
		   Case "NoLock"
		     Conn.Execute("Update WM_Company Set WM_Key=1 Where WM_ID="&Int(ID(i)))
		   Case "Del"
             Set Rs = Conn.Execute("Select WM_Key,WM_CheckUser,WM_ClaimUser From WM_Company Where WM_ID = "&Int(ID(i)))
			 If Not Rs.Eof Then
			     If Rs(0) > 0 Then
	               Conn.Execute("Update WM_Config Set WM_CompanyNum = WM_CompanyNum - 1 where WM_CompanyNum > 0")
	               Conn.Execute("Update WM_Member Set WM_CompanyNum = WM_CompanyNum - 1 Where WM_CompanyNum > 0 and WM_UserName = '"&Rs(1)&"'")
	               If Rs(2) <> "" and IsNull(Rs(2)) = False Then Conn.Execute("Update WM_Member Set WM_ComID=0 Where WM_UserName='"&Rs(2)&"'")
	               Call WRMPS.SCache("CompanyNum",WRMPS.GetCache("CompanyNum") - 1)
				 End If
			 End If
			 Rs.Close
             Conn.Execute("Delete From WM_CompanyProduct where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_Coupon where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_CompanyFeedback where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_CompanyPhoto where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_CompanyRe where WM_ParentID="&Int(ID(i)))
             Conn.Execute("Delete From WM_CompanyRevert where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_CompanyTemp where WM_ComID="&Int(ID(i)))
             Conn.Execute("Delete From WM_Company where WM_ID="&Int(ID(i)))
			 Call WRMPS.FsoDel("Dir","../Co/"&Int(ID(i))&"/")
			 Call WRMPS.FsoDel("Dir",WR_Setting(3)&WR_UpLoad(0)&"/"&WR_UpLoad(47)&"/Co/"&Int(ID(i))&"/")
		 End Select
      Next
	  Call WRMPS.FsoEnd()
	  Set Rs = Nothing
    End If
	Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"'>",1)
  
  Case "DelRz"
      MailBody = Request.Form("Content")
	  If MailBody = "" Or IsNull(MailBody) Then MailBody = WR_Mail(14)
	  Sql = "Select B.WM_Email,A.WM_BLPic,B.WM_UserName From WM_Company A Inner Join WM_Member B on A.WM_ClaimUser = B.WM_UserName where A.WM_ID = "&ID&" and A.WM_RZBL=0"
      Set Rs = Conn.Execute(SQL)
	  If Not Rs.Eof Then
	    Email = Rs(0)
		BLPic = Rs(1)
		UserName = Rs(2)
	    If WR_Mail(5) <> "NO" Or Int(WR_Mail(17)) > 0 Then
		  Subject = "对不起，您在"&WR_Setting(0)&"的店铺营业执照认领未通过！"
  	      If WR_Mail(5) <> "NO" Then Call WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WRTemp.SiteLabel(WR_Setting(0)),WRTemp.SiteLabel(Subject),Email)
	      If Int(WR_Mail(17)) > 0 Then
		    Call WRDB.SendMessage(UserName,Null,"对不起，您的店铺营业执照认领未通过！",WRTemp.SiteLabel(WRMPS.CheckStr(MailBody,2)))
	      End If
	    End If
        Conn.Execute("Update WM_Company Set WM_BLPic=Null,WM_ClaimUser=Null,WM_RZBL=0 where WM_ID = "&ID&"")
        Call WRMPS.FsoBegin()
		Call WRMPS.FsoDel("File",WRMPS.CheckStr(BLPic,5))
		Call WRMPS.FsoEnd()
	  End If
	  Rs.Close
	  Set Rs = Nothing
	  Call WRMPS.ErrView("·取消申请成功<meta http-equiv=refresh content='1;URL=?Action=IsRz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",1)

  Case "Rz"
    Dim Temp_Dir
	Set Rs = Conn.Execute("Select WM_ClaimUser From WM_Company where WM_ID = "&ID)
	If Not Rs.Eof Then
	  'Set Rso = Conn.Execute("Select Top 1 WM_Dir From WM_TempCom Order By WM_Default Desc")
	  'If Not Rso.Eof Then
	'	Temp_Dir = Rso(0)
	  'End If
	  'Rso.CLose
	  Set Rso = Conn.Execute("Select WM_Flag,WM_Email,WM_UserName From WM_Member where WM_UserName = '"&Rs("WM_ClaimUser")&"'")
	  If Not Rso.Eof Then
	    rFlag = Rso(0)
	    Email = Rso(1)
	    UserName = Rso(2)
		Call WRDB.SaveConsume(0,UserName,0,Int(Split(Split(rFlag,"§")(1),"|")(5)),Int(Split(Split(rFlag,"§")(1),"|")(4)),WR_Faith(2),"店铺认领(营业执照认证)成功")
		Conn.Execute("Update WM_Company Set WM_RZBL = 1,WM_ClaimTime = "&ConnTime&",WM_EndTime='"&Now()+365&"',WM_Eng='"&ID&"' Where WM_ID = "&ID&"")
        Conn.Execute("Update WM_Member Set WM_ComID = "&ID&" Where WM_UserName = '"&UserName&"'")
	    If WR_Mail(5) <> "NO" Or Int(WR_Mail(17)) > 0 Then
          MailBody = WR_Mail(13)
		  Subject = "恭喜您，您在"&WR_Setting(0)&"的店铺营业执照认领已通过！"
  	      If WR_Mail(5) <> "NO" Then Call WRMPS.SendMail(WRTemp.SiteLabel(MailBody&vbCrLf&vbCrLf&WR_Mail(4)),WRTemp.SiteLabel(WR_Setting(0)),WRTemp.SiteLabel(Subject),Email)
	      If Int(WR_Mail(17)) > 0 Then
		    Call WRDB.SendMessage(UserName,Null,"恭喜您，您的店铺营业执照认领已通过！",WRTemp.SiteLabel(MailBody))
	      End If
	    End If
	  End If
	  Rso.Close
	  Set Rso = Nothing
	End If
	Rs.CLose
	Call WRMPS.ErrView("·店铺营业执照认证成功<meta http-equiv=refresh content='1;URL=?Action=IsRz&ID=" & ID & "&Page=" & Page & "&Table=" & Table & "&Word=" & Word&"&Estate="&Estate&"'>",0)

  Case "Work"
      Dim RZBL,BLPic
	  Sql = "select WM_ID,WM_RZBL,WM_BLPic,WM_Company from WM_Company where WM_ID = "&ID&""
      Set Rs = Conn.Execute(SQL)
	  If Not Rs.Eof Then
		RZBL = Rs(1)
		BLPic = Rs(2)
		Company = Rs(3)
	  End If
	  Rs.Close
	  Set Rs = Nothing
      Content = Content & ContentTop()
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
12 3 4 5 下一页
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -