云南美食娱乐网..连锁加盟..餐饮连锁加盟信息..娱乐连锁加盟信息

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form3") Then MM_editConnection = MM_ylwdb_STRING MM_editTable = "khtj" MM_editRedirectUrl = "../yjok.htm" MM_fieldsStr = "textfield|value|textfield2|value" MM_columnsStr = "tjmail|',none,''|dymail|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_ylwdb_STRING Recordset1.Source = "SELECT ts FROM ct GROUP BY ts" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Rs_ylnews Dim Rs_ylnews_numRows Set Rs_ylnews = Server.CreateObject("ADODB.Recordset") Rs_ylnews.ActiveConnection = MM_ylwdb_STRING Rs_ylnews.Source = "SELECT ylnewstitle FROM yl_news ORDER BY YLID DESC" Rs_ylnews.CursorType = 0 Rs_ylnews.CursorLocation = 2 Rs_ylnews.LockType = 1 Rs_ylnews.Open() Rs_ylnews_numRows = 0 %> <% Dim Rs_whzynews Dim Rs_whzynews_numRows Set Rs_whzynews = Server.CreateObject("ADODB.Recordset") Rs_whzynews.ActiveConnection = MM_ylwdb_STRING Rs_whzynews.Source = "SELECT whhynewstitle FROM whzy_news ORDER BY whhy_newsID DESC" Rs_whzynews.CursorType = 0 Rs_whzynews.CursorLocation = 2 Rs_whzynews.LockType = 1 Rs_whzynews.Open() Rs_whzynews_numRows = 0 %> <% Dim Rs_msnews Dim Rs_msnews_numRows Set Rs_msnews = Server.CreateObject("ADODB.Recordset") Rs_msnews.ActiveConnection = MM_ylwdb_STRING Rs_msnews.Source = "SELECT MSnewstitle FROM ms_news ORDER BY MSID DESC" Rs_msnews.CursorType = 0 Rs_msnews.CursorLocation = 2 Rs_msnews.LockType = 1 Rs_msnews.Open() Rs_msnews_numRows = 0 %> <% Dim Rs_cdnews Dim Rs_cdnews_numRows Set Rs_cdnews = Server.CreateObject("ADODB.Recordset") Rs_cdnews.ActiveConnection = MM_ylwdb_STRING Rs_cdnews.Source = "SELECT * FROM cd_news ORDER BY cdID DESC" Rs_cdnews.CursorType = 0 Rs_cdnews.CursorLocation = 2 Rs_cdnews.LockType = 1 Rs_cdnews.Open() Rs_cdnews_numRows = 0 %> <% Dim Rs_mr Dim Rs_mr_numRows Set Rs_mr = Server.CreateObject("ADODB.Recordset") Rs_mr.ActiveConnection = MM_ylwdb_STRING Rs_mr.Source = "SELECT * FROM mr_news ORDER BY mrID DESC" Rs_mr.CursorType = 0 Rs_mr.CursorLocation = 2 Rs_mr.LockType = 1 Rs_mr.Open() Rs_mr_numRows = 0 %> <% Dim Rs_bd Dim Rs_bd_numRows Set Rs_bd = Server.CreateObject("ADODB.Recordset") Rs_bd.ActiveConnection = MM_ylwdb_STRING Rs_bd.Source = "SELECT * FROM bd_news ORDER BY bdID DESC" Rs_bd.CursorType = 0 Rs_bd.CursorLocation = 2 Rs_bd.LockType = 1 Rs_bd.Open() Rs_bd_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Rs_whzynews_numRows = Rs_whzynews_numRows + Repeat2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = 10 Repeat4__index = 0 Rs_cdnews_numRows = Rs_cdnews_numRows + Repeat4__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 Rs_msnews_numRows = Rs_msnews_numRows + Repeat3__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Rs_ylnews_numRows = Rs_ylnews_numRows + Repeat1__numRows %>

查询云南餐饮娱乐商家与酒店旅舍


	首页	酒吧酒水知识	餐厅原料器材	美食娱乐论坛	加盟创业	商家信息通道

欢迎投稿

输入要查询的商家名称

选择商家类型

选择所在城市

输入经营项目或特色

餐饮娱乐业加盟创业信息

是否有你感兴趣的类型？

中式餐厅

西式餐厅

咖啡饮料

面食糕饼

快餐

特色小吃

饮用水

其他

忠告：即使您加盟一个别人经营成功的特许经营品牌，也不意味着完全没有投资风险！

餐饮娱乐经营、管理

　　　　　　　　　
　　　　　　　　　特许经营各国状况

特许经营已成为国际性现象：
　·针对国内和国外业务，有超过1000个特许经营加盟商的国家大约有20个。　·有超过200个特许经营授权商于境内运作的国家大约有15个。
　·目前，有特许经营权协会的国家大约有50个。
　现今世界的特许经营：
·美国
　　-特许经营是发展最快和渗透性最高的商业模式
　　-有大约40~50%的零售业销售额来自特许经营商
　　-年销售量达$10000亿
　　-现在大约75种工业采用特许经营作为分销方式
·加拿大
　　-1327个授权商
　　-总计73500特许经营商
·欧洲
　　-1998年特许经营销售额：$1190亿
　　-4000个授权商，总计170000个加盟商
·澳大利亚
　　-特许经营在70年代首次出现
　　-到1996年，在澳大利亚运作中的特许经营授权商已达800个
·新加坡
　　-特许经营首次出现在70年代
　　-到1995年有85个国内的特许经营授权商
　　-在1996年有125个特许经营授权产商
·马来西亚
　　-特许经营权首次出现在60年代
　　-在1996年，特许经营业务占总零销业2%（$6.09亿）

餐饮连锁加盟骗招识别
选择餐饮连锁之谨慎评估

创业者怎样选择餐饮业的连锁店

	欢迎订阅本站电子杂志，获取最新本地娱乐美食消息，你还有机会得到商家送出的　　礼物和优惠折扣券。订阅

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Rs_ylnews.Close() Set Rs_ylnews = Nothing %> <% Rs_whzynews.Close() Set Rs_whzynews = Nothing %> <% Rs_msnews.Close() Set Rs_msnews = Nothing %> <% Rs_cdnews.Close() Set Rs_cdnews = Nothing %> <% Rs_mr.Close() Set Rs_mr = Nothing %> <% Rs_bd.Close() Set Rs_bd = Nothing %>