📄 wm.company.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
	Rs.Close
	Rs.Open "Select Top 1 WM_ID From WM_Company Where WM_ID <> "&ID&" and WM_Company ='"&Company&"' and WM_AreaID="&AreaID&" and WM_ClassID="&ClassID&"",Conn,1,1
	  If Not Rs.Eof Then
	    Call WRMPS.ErrView("·店铺已存在",0)
	  End If
	Rs.Close
    
	Rs.Open"Select WM_AreaID,WM_ClassID,WM_ClassDir,WM_Company,WM_Address,WM_Phone,WM_Mobile,WM_Tags,WM_Coordinate,WM_Fax,WM_BusinessTime,WM_IsCard,WM_Depot,WM_BusRoute,WM_Marker,WM_Web,WM_Intro,WM_Hit,WM_Re,WM_ReSer,WM_RePrice,WM_All,WM_Consume,WM_ThinkGo,WM_IsGo,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_TempID,WM_RZBL,WM_Domain,WM_Eng From WM_Company Where WM_ID = "&ID&"",Conn,1,3
    If Not Rs.Eof Then
	  Rs(0) = AreaID
	  Rs(1) = ClassID
	  Rs(2) = ClassDir
	  Rs(3) = Company
	  Rs(4) = Address
	  Rs(5) = Phone
	  Rs(6) = Mobile
	  Rs(7) = Tags
	  Rs(8) = Coordinate
	  Rs(9) = Fax
	  Rs(10) = BusinessTime
	  Rs(11) = IsCard
	  Rs(12) = Depot
	  Rs(13) = BusRoute
	  Rs(14) = Marker
	  Rs(15) = Web
	  Rs(16) = Intro
	  Rs(17) = WM_Hit
	  Rs(18) = WM_Re
	  Rs(19) = WM_ReSer
	  Rs(20) = WM_RePrice
	  Rs(21) = WM_All
	  Rs(22) = WM_Consume
	  Rs(23) = WM_ThinkGo
	  Rs(24) = WM_IsGo
	  Rs(25) = DB1
	  Rs(26) = DB2
	  Rs(27) = DB3
	  Rs(28) = DB4
	  Rs(29) = DB5
	  Rs(30) = DB6
	  Rs(31) = DB7
	  Rs(32) = DB8
	  Rs(33) = DB9
	  Rs(34) = DB10
	  Rs(35) = DB1T
	  Rs(36) = DB2T
	  Rs(37) = DB3T
	  Rs(38) = DB4T
	  Rs(39) = DB5T
	  Rs(40) = DB6T
	  Rs(41) = DB7T
	  Rs(42) = DB8T
	  Rs(43) = DB9T
	  Rs(44) = DB10T
	  Rs(45) = TempID
	  Rs(47) = Domain
	  Rs(48) = WM_Eng
	  RZBL = Rs(46)
	  Rs.Update
	End If
	Rs.Close
	Conn.Execute("Update WM_CompanyRevert Set WM_Company='"&Company&"',WM_AreaID="&AreaID&" Where WM_ComID="&ID)
	Call WRMPS.CreTextToImg(ID,2,Fax,Phone,Mobile,AddRess)
	Call WRMPS.ErrView("·店铺修改成功<meta http-equiv='refresh' content='1;URL=?Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"&Page="&Page&"'>",1)

  Case "EditTwo"
    Content = Content & ContentTop()
    ClassID = WRMPS.CheckStr(Request.form("CompanyClassID"),0)
	If ClassID = "" Then ClassID = WRMPS.CheckStr(Request.form("ClassID_"),1)
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
	If AreaID = "" Then  AreaID = WRMPS.CheckStr(Request.form("AreaID_"),1)
    Rs.Open"Select * From WM_Company Where WM_ID = "&ID&"",Conn,1,1
    If Not Rs.Eof Then
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=EditSave&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"' name=myform method=POST>" & vbCrLf
	  Content = Content & "<input type=hidden name=AreaID value="&AreaID&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ClassID value="&ClassID&">" & vbCrLf
	  Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	  Content = Content & "<tr Class=td4><td colspan=2><strong>修改店铺</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td3><td colspan=2><strong>基本资料</strong> (打 <strong><font color=#FF0000>*</font></strong> 为必填项)</td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td width='20%'><strong>店铺名称</strong></td><td width='80%'><input name=Company type=text Style='width:200px' value='"&Rs("WM_Company")&"' maxlength=50> <strong><font color=#FF0000>*</font></strong></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>详细地址</strong></td><td><input name=Address value='"&Rs("WM_Address")&"' type=text Style='width:300px' maxlength=50> <strong><font color=#FF0000>*</font></strong></td></tr>" & vbCrLf
      Set Rso = Server.CreateObject("ADODB.RecordSet")
	  Rso.Open "Select WM_DB from WM_CompanySort Where WM_ID="&ClassID, Conn, 1, 1
	  If Not Rso.Eof Then
	    TestCon = Rso(0)
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1$]",Rs("WM_DB1"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]",Rs("WM_DB2"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]",Rs("WM_DB3"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]",Rs("WM_DB4"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]",Rs("WM_DB5"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]",Rs("WM_DB6"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]",Rs("WM_DB7"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]",Rs("WM_DB8"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]",Rs("WM_DB9"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]",Rs("WM_DB10"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1("&Rs("WM_DB1")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2("&Rs("WM_DB2")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3("&Rs("WM_DB3")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4("&Rs("WM_DB4")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5("&Rs("WM_DB5")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6("&Rs("WM_DB6")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7("&Rs("WM_DB7")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8("&Rs("WM_DB8")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9("&Rs("WM_DB9")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10("&Rs("WM_DB10")&")$]","selected")
		If TestCon <> "" and Isnull(TestCon)=False Then Content = Content & "<tr Class=td2><td><strong>相关选项</strong></td><td>"&TestCon&"</td></tr>" & vbCrLf  
	  End If
	  Rso.Close
	  Set Rso = Nothing
	  Content = Content & "<tr Class=td2><td><strong>电话</strong><br>请加上区号，多个请用"",""隔开</td><td><input name=Phone type=text Style='width:150px' maxlength=50 value='"&Rs("WM_Phone")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>手机</strong><br>多个请用"",""隔开</td><td><input name='Mobile' type='text' Style='width:150px' maxlength=50 value='"&Rs("WM_Mobile")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>产品标签</strong><br>多个请用"",""隔开</td><td><input name='Tags' type='text' Style='width:300px' maxlength=200 value='"&Rs("WM_Tags")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>标注地图</strong><br>标注后，店铺将定位到电子地图上。</td><td><input name=Coordinate type=hidden value='"&Rs("WM_Coordinate")&"'><a href=javascript:ShowDialog('../Plus/Map/"&WR_Other(12)&"/?Action=Add&input=Coordinate&xy='+document.myform.Coordinate.value+'',600,400) class=red><img src='img/icon_qi.gif' align='absmiddle' border='0'><span id=Add>修改地图位置</span></a></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td3><td colspan=2><strong>补充资料</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>传真</strong><br>请加上区号，多个请用"",""隔开</td><td><input name='Fax' type='text' Style='width:150px' maxlength='50' value='"&Rs("WM_Fax")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>营业时间</strong></td><td><input name='BusinessTime' type='radio' value='日常营业'"&WRMPS.GetCheckVer(Rs("WM_BusinessTime"),"日常营业",1)&">日常营业 <input name='BusinessTime' type='radio' value='午后营业'"&WRMPS.GetCheckVer(Rs("WM_BusinessTime"),"午后营业",1)&">午后营业 <input name='BusinessTime' type='radio' value='夜店'"&WRMPS.GetCheckVer(Rs("WM_BusinessTime"),"夜店",1)&">夜店 <input name='BusinessTime' type='radio' value='24小时营业'"&WRMPS.GetCheckVer(Rs("WM_BusinessTime"),"24小时营业",1)&">24小时营业 <input name='BusinessTime' type='radio' value='不详'"&WRMPS.GetCheckVer(Rs("WM_BusinessTime"),"不详",1)&">不详</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>可否刷卡</strong></td><td><input name='IsCard' type='radio' value='可刷卡'"&WRMPS.GetCheckVer(Rs("WM_IsCard"),"可刷卡",1)&">可刷卡 <input name='IsCard' type='radio' value='不能刷卡'"&WRMPS.GetCheckVer(Rs("WM_IsCard"),"不能刷卡",1)&">不能刷卡 <input name='IsCard' type='radio' value='不详'"&WRMPS.GetCheckVer(Rs("WM_IsCard"),"不详",1)&">不详</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>附近公交车站</strong><br>多个请用"",""隔开</td><td><input name='Depot' type='text' Style='width:300px' maxlength=50 value='"&Rs("WM_Depot")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>公交线路</strong><br>多个请用"",""隔开</td><td><input name='BusRoute' type='text' Style='width:300px' maxlength=50 value='"&Rs("WM_BusRoute")&"'</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>附近标志物</strong><br>多个请用"",""隔开</td><td><input name='Marker' type='text' Style='width:300px' maxlength=50 value='"&Rs("WM_Marker")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>店铺网址</strong></td><td><input name='Web' type='text' Style='width:200px' maxlength=50 value='"&Rs("WM_Web")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>店铺介绍</strong><br>1000字以内</td><td><textarea name='Intro' cols='50' rows='5'>"&WRMPS.CheckStr(Rs("WM_Intro"),7)&"</textarea></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td3><td colspan=2><strong>其它资料</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>点击</strong></td><td><input name='WM_Hit' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_Hit")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>点评</strong></td><td><input name='WM_Re' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_Re")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>服务总分</strong></td><td><input name='WM_ReSer' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_ReSer")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>价格总分</strong></td><td><input name='WM_RePrice' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_RePrice")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>综合总分</strong></td><td><input name='WM_All' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_All")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>人均消费</strong></td><td><input name='WM_Consume' type='text' Style='width:100px' maxlength=5 value='"&Rs("WM_Consume")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>想来本店会员</strong><br>1000字以内</td><td><textarea name='WM_ThinkGo' cols='50' rows='5'>"&Rs("WM_ThinkGo")&"</textarea></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>已来过本店会员</strong><br>1000字以内</td><td><textarea name='WM_IsGo' cols='50' rows='5'>"&Rs("WM_IsGo")&"</textarea></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>第一点评人</strong></td><td>"&Rs("WM_FiRstRE")&"</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>最后点评人</strong></td><td>"&Rs("WM_LastRE")&"</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>个性二级域名</strong></td><td><input name='WM_Eng' type='text' Style='width:200px' maxlength=50 value='"&Rs("WM_Eng")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>绑定顶级域名</strong></td><td><input name='WM_Domain' type='text' Style='width:200px' maxlength=50 value='"&Rs("WM_Domain")&"'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>模板选择</strong></td><td>"&TempSelect(Rs("WM_TempID"),48,ChannelID,"TempID")&"</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td></td><td><input type=submit value='提交修改' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
    End If
    Rs.Close
	
  Case "Edit"
    Content = Content & ContentTop()
    Rs.Open"Select WM_AreaID,WM_ClassID From WM_Company Where WM_ID = "&ID&"",Conn,1,1
    If Not Rs.Eof Then
      AreaIDName = WRDB.GetClassName("WM_Area",Rs(0))
      ClassName = WRDB.GetClassName("WM_CompanySort",Rs(1))
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=EditTwo&Estate=" & Estate & "&Table=" & Table & "&Word=" & Word&"' name=myform method=POST>" & vbCrLf
	  Content = Content & "<input type=hidden name=AreaID_ value="&Rs(0)&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ClassID_ value="&Rs(1)&">" & vbCrLf
	  Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	  Content = Content & "<tr Class=td4><td colspan=2><strong>修改店铺</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td><strong>所属地区</strong></td>" & vbCrLf
	  Content = Content & "<td>"&AreaIDName&"　<font onclick='Edit2(b1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2 id=b1 style='display:none'><td><strong>修改地区</strong></td>" & vbCrLf
	  Content = Content & "<td><script src='../Inc/Js/AreaSelect.Js'></Script></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td width='20%'><strong>所属分类</strong></td>" & vbCrLf
	  Content = Content & "<td width='80%'>"&ClassName&"　<font onclick='Edit(a1)' style='cursor:pointer' color=blue>修改请点击</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2 id=a1 style='display:none'><td><strong>修改分类</strong></td>" & vbCrLf
	  Content = Content & "<td><script src='../Inc/Js/CompanySelect.Js'></Script></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td></td><td><input type=submit value='下一步'></td></tr>" & vbCrLf
	  Content = Content & "</form>" & vbCrLf
	  Content = Content & "</table>" & vbCrLf
    End If
    Rs.Close
	
  Case "AddSave"
	AreaID = WRMPS.CheckStr(Request.form("AreaID"),1)
	ClassID = WRMPS.CheckStr(Request.form("ClassID"),1)
	If AreaID = "" Or IsNull(AreaID) Or ClassID = "" Or IsNull(ClassID) Then Call WRMPS.ErrView("·操作错误。<meta http-equiv=refresh content='1;URL=WM_Company.asp?Action=Add'>",0)
	Company = WRMPS.CheckStr(Request.form("Company"),0)
	If Company = "" Or IsNull(Company) Then Call WRMPS.ErrView("·请填写店铺名称<meta http-equiv=refresh content='1;URL=?Action=AddTwo&AreaID="&AreaID&"&ClassID="&ClassID&"'>",0)
	Address = WRMPS.CheckStr(Request.form("Address"),0)
	If Address = "" Or IsNull(Address) Then Call WRMPS.ErrView("·请填写店铺详细地址<meta http-equiv=refresh content='1;URL=?Action=AddTwo&AreaID="&AreaID&"&ClassID="&ClassID&"'>",0)
	Phone = WRMPS.CheckStr(Request.form("Phone"),0)
	If Phone = "" Or IsNull(Phone) Then Phone = Null
	Mobile = WRMPS.CheckStr(Request.form("Mobile"),0)
	If Mobile = "" Or IsNull(Mobile) Then Mobile = Null
	Tags = WRMPS.CheckStr(Request.form("Tags"),0)
	If Tags = "" Or IsNull(Tags) Then Tags = Null
	Coordinate = WRMPS.CheckStr(Request.form("Coordinate"),0)
	If Coordinate = "" Or IsNull(Coordinate) Then Coordinate = Null
	Fax = WRMPS.CheckStr(Request.form("Fax"),0)
	If Fax = "" Or IsNull(Fax) Then Fax = Null
	BusinessTime = WRMPS.CheckStr(Request.form("BusinessTime"),0)
	If BusinessTime = "" Or IsNull(BusinessTime) Then BusinessTime = Null
	IsCard = WRMPS.CheckStr(Request.form("IsCard"),0)
	If IsCard = "" Or IsNull(IsCard) Then IsCard = Null
	Depot = WRMPS.CheckStr(Request.form("Depot"),0)
	If Depot = "" Or IsNull(Depot) Then Depot = Null
	BusRoute = WRMPS.CheckStr(Request.form("BusRoute"),0)
	If BusRoute = "" Or IsNull(BusRoute) Then BusRoute = Null
	Marker = WRMPS.CheckStr(Request.form("Marker"),0)
	If Marker = "" Or IsNull(Marker) Then Marker = Null
	Web = WRMPS.CheckStr(Request.form("Web"),0)
	If Web = "" Or IsNull(Web) Then Web = Null
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

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

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