user_rl.asp

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

<!--#include file="Cook.asp" -->
<%
Dim N,i,Table,Word
Dim WM_Estate,WM_BLPic
Dim Money,Area,Fax,PostalCode,CieTime,DealinAdd,Intro,Corporation,Tags,Tag,rFlag,GroupID,GroupMoney,UserName
Dim BizType,Company,Address,CompanyClassID,BusinessRole,Seller,Buyer,Serer,Web,TrueName,Sex,Duty,QQ,Phone1,Phone2,Phone3,Phone,Mobile
Dim Estate,eSql
ID = WRMPS.CheckStr(Request("ID"), 1)
Page = WRMPS.CheckStr(Request("page"),1)
Table = WRMPS.CheckStr(Request("Table"), 0)
Word = WRMPS.CheckStr(Request("Word"), 0)
Estate = WRMPS.CheckStr(Request("Estate"),1)
Call DBConnBegin()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Set Rso = Server.CreateObject("ADODB.RecordSet")

Set Rs = Conn.Execute("Select A.WM_ComID,B.WM_EndTime From WM_Member A Inner Join WM_Company B on A.WM_ComID = B.WM_ID Where A.WM_ID = "&MemID&" and B.WM_RZBL=1")
If Not Rs.Eof Then
  EndTime = Rs(1)
  If EndTime >= Now() Then Call WRMPS.ErrView("·您最多只能认领一个店铺<meta http-equiv='refresh' content='1;URL=User_Company.asp?Action=My'>", 0)
End If
Rs.Close

Set Rs = Conn.Execute("Select WM_BLPic,WM_ID From WM_Company Where WM_ClaimUser='"&MemName&"' and WM_RZBL = 0")
If Not Rs.Eof Then
  WM_BLPic = Rs(0) 
  If WM_BLPic <> "" Then
    Call WRMPS.ErrView("·您已经认领了一个店铺，请等待管理员审核通过！<meta http-equiv='refresh' content='1;URL=User_Company.asp'>", 0)
  Else
    If Request("Action") <> "RL" Then     Call WRMPS.ErrView("·您已经认领了一个店铺，请尽快上传您的店铺营业执照！<meta http-equiv='refresh' content='1;URL=?Action=RL&ID="&Rs(1)&"'>", 0)
  End If
End If
Rs.Close

Select Case Request("Action")
  Case "RL"
     Content = Content & PageTop()
     Content = Content & UserPath(",<a href=User_RL.asp>店铺认领</a>")
	 Content = Content & "<table border=0 cellspacing=0 cellpadding=0 align=center class=td1>"
     Content = Content & "<tr><td height=500 width='400'>"
	 Content = Content & "<div id=up><iframe src=""../Plus/UpLoad/Index.asp?Type=5&User=3&Rz="&ID&""" width=""320px""  height=""100px"" frameborder=0 scrolling=no></iframe></div>"
	 Content = Content & "<br><br>请上传一张您店铺营业执照的扫描图片。要求：<br>1，图片要能清晰辨认文字及编号等，图片模糊将不能被通过<br>2，营业执照上的店铺名称必须和您店铺资料中的公司名称一至，否则不能被通过，营业执照认证后您的部分店铺资料将不能被修改"
	 Content = Content & "</td></tr></table>"
	 Content = Content & PageButtom()
	 
  Case "View"
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_RL.asp>店铺认领</a>")
   
      If (Word = "" Or IsNull(Word) Or Table = "" Or IsNull(Table)) And (ID = "" Or IsNull(ID)) Then Call WRMPS.ErrView("·请输入搜索条件", 0)
	  Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr><td colspan=3 class=td4><strong>店铺认领</strong></td></tr>" & vbCrLf
	  Content = Content & "<tr align=center class=td3>" & vbCrLf
      Content = Content & "<td>店铺名称(点击查看)</td>" & vbCrLf
      Content = Content & "<td width='40%'>所在地址</td>" & vbCrLf
      Content = Content & "<td width='10%'>操作</td></tr>" & vbCrLf
	  If ID <> "" Then
        Set Rs = Conn.Execute("Select WM_RZBL,WM_BLPic From WM_Company Where WM_ID="&ID&" and WM_EndTime > "&ConnTime&"")
        If Not Rs.Eof Then
          If Rs(0) = 0 and IsNull(Rs(1)) = False and Rs(1) <> "" Then Call WRMPS.ErrView("·此店铺已被认领，正在等待审核中！", 0)
          If Rs(0) = 1 Then Call WRMPS.ErrView("·此店铺已被认领！", 0)
        End If
        Rs.Close
	    SQL = "WM_ID="&ID
	  Else
	    If Table = "WM_ClaimUser" Or Table = "WM_CheckUser" Then
	      SQL = Table & " = '" & Word & "'"
	    Else
	      SQL = Table & " like'%"&Word&"%'"
	    End If
	  End If 
      Sql = "Select WM_ID,WM_Company,WM_Address,WM_BLPic,WM_RZBL from WM_Company Where WM_Key = 1 and (WM_RZBL = 0 or WM_EndTime < "&ConnTime&") and "&SQL&" order by WM_ID desc"
	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr><td colspan=8></td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 20
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          Do While Not Rs.EOF And i < ListNum
		    WM_BLPic = Rs(3)
			If WM_BLPic <> "" And IsNull(WM_BLPic) = False and Rs(4)=0 Then Exit Do
            Content = Content & "<tr align=center class=td2><td align=left><a href="&WRMPS.GetCompanyUrl(Rs(0))&" target=_blank>"&Rs(1)&"</a></td>" & vbCrLf
	        Content = Content & "<td>"&Rs(2)&"</td>" & vbCrLf
	        Content = Content & "<td><a href='?Action=RL&ID="&Rs(0)&"'>认领</a>" & vbCrLf
	        Content = Content & "</td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "Table=" & Table & "&Word=" & Word&""
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 align=center><tr><td align=right class=td5>" & vbCrLf
          Content = Content & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></table>" & vbCrLf
        End If
	  Rs.Close
	  Set Rs=Nothing
      
	  Content = Content & PageButtom()
  Case Else
    Content = Content & PageTop()
    Content = Content & UserPath(",<a href=User_RL.asp>店铺认领</a>")
    
	Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
    Content = Content & "<tr><td colspan=8 class=td4><strong>店铺认领</strong></td></tr>" & vbCrLf
	  Content = Content & "<form name=form1 method=post>"
	  Content = Content & "<tr class=td1 align=center><td height=200px>请输入店铺搜索条件，已认领的店铺将不能被搜索到：<br><br><input name='Word' type='text' style='width:180' maxlength='50' value='" & WRMPS.CheckStr(Request("Word"), 0) & "'> "
      Content = Content & "<input type=hidden name=Action value=View><select name=Table align=absmiddle>"
      Content = Content & "<option value=WM_Company " & WRMPS.GetCheckVer("WM_Company", Table, 0) & ">店铺名称</option>"
      Content = Content & "<option value=WM_CheckUser " & WRMPS.GetCheckVer("WM_CheckUser", Table, 0) & ">登记人</option>"
      Content = Content & "<option value=WM_ClaimUser " & WRMPS.GetCheckVer("WM_ClaimUser", Table, 0) & ">所有人</option>"
      Content = Content & "<option value=WM_Tags " & WRMPS.GetCheckVer("WM_Tags", Table, 0) & ">产品</option>"
      Content = Content & "<option value=WM_Address " & WRMPS.GetCheckVer("WM_Address", Table, 0) & ">详细地址</option>"
      Content = Content & "<option value=WM_Intro " & WRMPS.GetCheckVer("WM_Intro", Table, 0) & ">店铺介绍</option>"
      Content = Content & "</select> <input type='submit' name='Submit' value=' 查询 ' >"
      Content = Content & "</td></tr></form>"
    Content = Content & "</Table>" & vbCrLf
    
	Content = Content & PageButtom()
End Select
Set Rso=Nothing
Call DBConnEnd()
Call ClassEnd()
Response.write Content
%>