<% userPageRights="{sj}" %>
<!--#include file="check.asp"-->
<!--#include file="../Include/Char.asp" -->
<script language="javascript" src="../Include/login.js" type="text/javascript"></script>
<%
'Define Variable 
dim i
dim rs
dim mGrade,m_SQL,mFlag,mBgColor
'initialization 
mFlag=true'add

'Display
if request("action")="edit" then 
 m_SQL="Select * From CityCard_League Where companyid="&Request.QueryString("ModifyID")
 Set rs = conn.Execute(m_SQL)
 if Not rs.Eof then
   m_UserName = rs("username")
   m_Password = rs("password")
   m_CompanyName = rs("name")
   m_post = rs("post")
   m_email = rs("email")
   m_iscard=rs("iscard")
   m_PayClass = rs("payclass")
   m_Operation = rs("operation")
   m_Grade = rs("grade")
   m_CityTypeID = rs("stateid")
   m_AreaTypeID = rs("cityid")
   m_TradeType = rs("hangyeid")
   m_Traffic = rs("traffic")
   m_Tbtj = rs("Tbtj")
   c_key = rs("c_key")
   m_Linkman = rs("linkman")
   m_BusinessHours = rs("startbusinesstime")
   m_BusinessHours2 = rs("endbusinesstime")
   m_YouhuiTime = rs("starttime")
   m_YouhuiTime2 = rs("endtime")
   m_Other = rs("businesstimecontent")
   m_Consume = rs("Consume")
   m_Tel = rs("tel")
   m_StarGradeTypeID = rs("cabaretgrade")
   m_Address = rs("address")
   m_WebSite = rs("website")
   m_Car = rs("car")
   m_Agio = rs("agio")
   m_AgioContent = rs("agiocontent")
   m_Image = rs("logo")
   m_Intro = rs("content")
 End if
 mFlag=false
 rs.Close
end if

if Request.ServerVariables("REQUEST_METHOD")="POST" then
   m_UserName = checkStr(Trim(Request.Form("txtUserName")))
   m_Password = checkStr(Trim(Request.Form("txtPassword")))
   m_PayClass = checkStr(Trim(Request.Form("txtPayClass")))
   m_Operation = checkStr(Trim(Request.Form("txtOperation")))   
   m_CompanyName = checkStr(Trim(Request.Form("txtCompanyName")))
   m_TypeID = Request.Form("TypeID")
   if instr(m_TypeID,":") <> 0 then
     m_CityTypeID = mid(m_TypeID,1,instr(m_TypeID,":")-1)
     m_AreaTypeID = mid(m_TypeID,instr(m_TypeID,":")+1)
   else
	 m_CityTypeID = 0
	 m_AreaTypeID = 0
   end if
   m_TradeType = checkStr(Trim(Request.Form("selTrade")))
   m_Grade = checkStr(Trim(Request.Form("selGrade")))
   m_Traffic = checkStr(Trim(Request.Form("txtTraffic")))
   m_Consume = checkStr(Trim(Request.Form("txtConsume")))
   m_Linkman = checkStr(Trim(Request.Form("txtLinkman")))
   m_BusinessHours = checkStr(Trim(Request.Form("txtBusinessHours")))
   m_BusinessHours2 = checkStr(Trim(Request.Form("txtBusinessHours2")))
   m_YouhuiTime = (Trim(Request.Form("txtYouhuiTime")))
   m_YouhuiTime2 = (Trim(Request.Form("txtYouhuiTime2")))
   m_Other = checkStr(Trim(Request.Form("txtOther")))
   m_Tbtj = checkStr(Trim(Request.Form("txtTbtj")))
   m_Tel = checkStr(Trim(Request.Form("txtTel")))
   m_StarGrade = checkStr(Trim(Request.form("selStarGrade")))
   m_Address = checkStr(Trim(Request.Form("txtAddress")))
   m_WebSite = checkStr(Trim(Request.Form("txtWebSite")))
   m_Car = checkStr(Trim(Request.Form("txtCar")))
   m_Agio = checkStr(Trim(Request.Form("txtAgio")))
   m_AgioContent = checkStr(Trim(Request.Form("txtAgioContent")))
   m_Image = checkStr(Trim(Request.Form("txtImage")))
   if m_Image="" then m_Image="defaultlogo.gif"
   addressm = checkStr(Trim(Request.Form("addressm")))
   t2 = checkStr(Trim(Request.Form("t2")))
   lxrdh = checkStr(Trim(Request.Form("lxrdh")))  
   m_post= checkStr(Trim(Request.Form("post")))
   c_key= Trim(Request.Form("c_key"))  
   m_email = checkStr(Trim(Request.Form("email")))  
   m_uptype = checkStr(Trim(Request.Form("up_type")))'判定是/否为乐扣卡加盟商
   if m_uptype="" then
   m_uptype="0"
   end if
   m_uptype1 = checkStr(Trim(Request.Form("up_type1")))'判定是/否为手机短信加盟商
   if m_uptype1="" then
   m_uptype1="0"
   end if
   m_uptype=m_uptype&","&m_uptype1
   m_Intro = Request.Form("txtIntro")

 if Request.Querystring("action")="Insert" then
    m_SQL = "Select * From CityCard_League Where username='"&m_UserName&"'"
	Set rs = conn.Execute(m_SQL)
	addressm=request("addressm")
	lxrdh=request("lxrdh")
	infos=request("infos")
	if not rs.Eof then
	   rs.Close
	   call msgbox("对不起，该用户名已存在，请更换用户名后再试",1)
	else
	  rs.Close
	  Set rs= Server.CreateObject("ADODB.Recordset")
	  rs.open "Select * From CityCard_League",conn,1,3
	  rs.addnew
	  rs("post")=m_post
      rs("email")=m_email
	  rs("lxrdh")=lxrdh
	  rs("addressm")=addressm
	  rs("username")=m_UserName
	  rs("password")=m_Password
	  rs("name")=m_CompanyName
	  rs("iscard")=m_uptype
	  rs("operation")=m_Operation
	  rs("payclass")=m_PayClass
	  rs("grade")=m_Grade
	  rs("hangyeid")=m_TradeType
	  rs("stateid")=m_CityTypeID
	  rs("cityid")=m_AreaTypeID
	  rs("traffic")=m_Traffic
	  rs("Consume")=m_Consume
	  rs("linkman")=m_Linkman
	  rs("c_key")=c_key
	  rs("startbusinesstime")=m_BusinessHours
	  rs("endbusinesstime")=m_BusinessHours2
	  rs("starttime")=m_YouhuiTime
	  rs("endtime")=m_YouhuiTime2
	  rs("businesstimecontent")=m_Other
	  rs("tel")=m_Tel
	  rs("cabaretgrade")=m_StarGrade
	  rs("address")=m_Address
	  rs("website")=m_Website
	  rs("car")=m_Car
	  rs("tuijian")=m_Commend
	  rs("agio")=m_Agio
	  rs("agiocontent")=m_AgioContent
	  rs("content")=m_Intro
	  rs("ischecked")=1
	  rs("logo")=m_Image
	  rs.update
      response.redirect "Admin_AgioLeague.asp?action=IsInsert&pageno="&Request("pageno")
     end if '//rs.eof
  end if
  
 if Request.Querystring("action")="Modify" then
 	addressm=request("addressm")
	infos=request("infos")
     Set rs= Server.CreateObject("ADODB.Recordset")
	  rs.open "Select * From CityCard_League where companyid=" & Request("ModifyID")&"",conn,1,3
	  rs("post")=m_post
      rs("email")=m_email
	  rs("lxrdh")=lxrdh
	  rs("addressm")=addressm
	  rs("username")=m_UserName
	  if m_Password <> "" then
	  rs("password")=m_Password
	  end if
	  rs("name")=m_CompanyName
	  rs("iscard")=m_uptype
	  rs("operation")=m_Operation
	  rs("payclass")=m_PayClass
	  rs("grade")=m_Grade
	  rs("hangyeid")=m_TradeType
	  rs("stateid")=m_CityTypeID
	  rs("cityid")=m_AreaTypeID
	  rs("traffic")=m_Traffic
	  rs("Consume")=m_Consume
	  rs("linkman")=m_Linkman
	  rs("c_key")=c_key
	  rs("startbusinesstime")=m_BusinessHours
	  rs("endbusinesstime")=m_BusinessHours2
	  rs("starttime")=m_YouhuiTime
	  rs("endtime")=m_YouhuiTime2
	  rs("businesstimecontent")=m_Other
	  rs("tel")=m_Tel
	  rs("cabaretgrade")=m_StarGrade
	  rs("address")=m_Address
	  rs("website")=m_Website
	  rs("car")=m_Car
	  rs("tuijian")=m_Commend
	  rs("agio")=m_Agio
	  rs("agiocontent")=m_AgioContent
	  rs("content")=m_Intro
	  rs("ischecked")=1
	  rs("logo")=m_Image
	  rs.update
      Response.redirect "Admin_AgioLeague.asp?action=IsModify&pageno="&Request("pageno")
   End if
 End if
 
'Delect Records
if request("action")="Delete" then
  m_SQL = "DELETE FROM CityCard_League WHERE companyid=" &Request.QueryString("DeleteID")
  conn.execute m_SQL
  Response.write "<script>location.replace('Admin_AgioLeague.asp?action=IsDelete&pageno="&Request.Querystring("pageno")&"')</script>"
end if
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
function jDelete(url)
{
  if((confirm(" 警告:请确定是否删除,删除后不能恢复! "))==true) 
	self.location=url+'&action=Delete';
}
</SCRIPT>
<script language="javascript">
function CheckData(){
  if (document.form1.txtUserName.value=="")
   {
    alert("对不起,用户名不能为空，请输入！");
	document.form1.txtUserName.focus();
	return false;
   }
}
</script>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</head>
<body text="#000000" >
<table width="100%" height="1"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<TABLE width=100% height=95% border=1 align="center" cellPadding=0 
cellSpacing=0 borderColor=#7c96b8 borderColorDark=#ffffff>
  <TBODY>
    <TR> 
      <TD align=center valign="top">
        <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#dde1ec">
          <tr><form name="frmSearch" method="post" action="Admin_AgioLeague.asp">
              <td align="center" bgcolor="#FFFFFF"> 请输入关键字 
                <input type="text" name="Keywords" class="text"> 
				<select name="TradeType" class="text">
			  <%
			   Response.write "<option value='-1'>所有类别</option>"
			   m_SQL = "SELECT F_ID,F_Value FROM T_TradeType ORDER BY F_ID "
			   Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
			     Response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>"
				 rs.MoveNext
			   Loop
			   rs.Close
			   %>
                </select>
				<input name="btnSearch" type="submit" value="搜索"> </td>
            </form>
          </tr>
        </table> 
        <table width="100%" border="0" cellspacing="1" cellpadding="0" align="center">
          <tr style="cursor:hand" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#EBEEF6'"  bgcolor="#dde1ec" align="center"> 
            <td width="5%" height="11"><font color="#666666"><b>级别</b></font></td>
            <td width="6%"><font color="#666666"><b>用户名</b></font></td>
            <td width="23%" bgcolor="#dde1ec"><font color="#666666"><b>商家名称</b></font></td>
            <td width="7%" bgcolor="#dde1ec"><strong><font color="#666666">签约</font></strong></td>
            <td width="7%"><font color="#666666"><b>所属分类</b></font></td>
            <td width="6%"><font color="#666666"><b>区域</b></font></td>
            <td width="6%"><strong>登陆</strong></td>
            <td width="5%"><strong>服务卡</strong></td>
            <td width="10%"><strong>在线申请信息</strong></td>
            <td width="4%"><strong><font color="#666666">审核</font></strong></td>
            <td width="15%"><font color="#666666"><b>管理<a title="添加记录" href='Admin_AgioLeague.asp?pageno=<%=mPage%>#anInsert'><font color="#FF0000">[添加]</font></a></b></font></td>
          </tr>
        </table>
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#ebeef6">
   <%  
	Keywords = Trim(Request("keywords"))
	TradeType = Trim(Request("TradeType"))
	Set rs=Server.createobject("Adodb.RecordSet")
    pageno=request.querystring("pageno")
    pmcount=16  
    m_SQL = "SELECT * FROM CityCard_League WHERE (iscard<>'0,0')"
	if TradeType <> "" and TradeType <> "-1" then
      m_SQL = m_SQL + " AND hangyeid="&TradeType
	end if

    m_SQL = m_SQL +" and (name like  '%" & Keywords & "%'"
	m_SQL = m_SQL +" or address like  '%" & Keywords & "%'"
	m_SQL = m_SQL +" or username like  '%" & Keywords & "%')"

	m_SQl = m_SQL + " order by companyid desc,cityid desc"
	rs.open m_SQL,conn,1,1

	if rs.eof then
	   'response.write "<br><p  align='center'><font color=red><B> 对不起，数据已清空！</B></font></p>"
    else
    rs.pagesize=pmcount
    mpage=rs.pagecount
    if pageno="" then pageno=1
    if  cint(pageno)<1 or cint(pageno)>mpage then  pageno=1
    rs.absolutepage=pageno

 Dim rc,re
 rc=rs.pagesize
 re=1
 do while not rs.eof and rc>0
 mBgColor=Request.Querystring("BgColor")
 if Trim(rs("companyid"))=Trim(mBgColor) then mColor= "D6DFFF" else mColor= "ffffff"
 if Trim(rs("ischecked"))="1" then onColor= "#EBEEF6" else onColor= "#FF9797"
 amid=split(rs("iscard"),",")
 F_UserNameID=rs("companyid")
%>
          <tr bgcolor="<%=mColor%>"   onmouseout="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='<%=onColor%>'" > 
            <td width="4%" align="center"><%=left(rs("grade"),2)%></td>
            <td width="7%" align="center" ><a href="../CardManage/Login.asp?ID=<%=rs("companyid")%>" target="_blank"><%=rs("username")%></A></td>
            <td width="23%"> <a target='_blank' href="../Card/Show.asp?ID=<%=rs("companyid")%>"> 
              <%=rs("name")%> </a><font color="#FF0000"><br>[<%=rs("Agio")%>]
			  <%  if amid(1)="1" then  %>
			  <img src="Images/sms.gif" width="18" height="14" title="短信加盟商家">
			  <% end if %>
	[<%		set rst=server.createobject("adodb.recordset")
			rst.open ("SELECT * FROM CityCard_Image Where F_UserName='" &F_UserNameID&"'"),conn,1
			Response.Write rst.recordcount
			rst.Close %>张图] [<%		set rst=server.createobject("adodb.recordset")
			rst.open ("SELECT * FROM CityCard_LeaguePloy Where F_CompanyID=" &F_UserNameID),conn,1
			Response.Write rst.recordcount
			rst.Close %>条活动]</font></td>
            <td width="7%" align="center"> <%=rs("operation")%> </td>
            <td width="7%" align="center" > <%
			m_SQL = "SELECT F_Value FROM T_TradeType Where F_ID=" & rs("hangyeid")
			Set rst = conn.Execute(m_SQL)
			if not rst.Eof then Response.Write rst(0)
			rst.Close
			%> </td>
            <td width="6%" align="center" > <%
			m_SQL = "SELECT F_Value FROM T_AreaType Where F_ID=" & rs("cityid")
			Set rst = conn.Execute(m_SQL)
			if not rst.Eof then Response.Write rst(0)
			rst.Close
			%> </td>
            <td width="6%" align="center" ><%=rs("LoginCount")%></td>
            <td width="5%" align="center" bgcolor="<%=mColor%>" ><%if rs("kfcard")=0 then response.Write "<a href=kfcard.asp?kinds=1&userid="&F_UserNameID&" target=_blank><font color=red><b>未送</b></font></a>" else response.write "<a href=kfcard.asp?kinds=0&userid="&F_UserNameID&" target=_blank><font color=#009900><b>己送</b></font></a>" end if%></td>
            <td width="10%" align="center" bgcolor="<%=mColor%>" >
			<%
			if Request("action")="isclear" then
			 mSql = "update CityCard_League Set request='' Where companyid="&Request("ID")
              conn.execute(mSql)
			  Response.redirect "Admin_AgioLeague.asp?pageno="&Request("pageno")
			end if
			%>
			<a href="Admin_AgioLeague.asp?action=isclear&pageno=<%=Request("pageno")%>&ID=<%=rs("companyid")%>" title ="点击清除当前申请信息"><%=rs("request")%></a></td>
            <td width="4%" align="center" > <%
			'审核处理
			if Request("action") = "IsCommend" then
			  mIsCommend = Request("IsCommend")
			  if mIsCommend=1 then mIsCommend = 0 else mIsCommend = 1
			  mSql = "update CityCard_League Set ischecked= "&mIsCommend&" Where companyid="&Request("ID")
              conn.execute(mSql)
			  Response.redirect "Admin_AgioLeague.asp?pageno="&Request("pageno")
			end if
			Response.Write "<a href='Admin_AgioLeague.asp?action=IsCommend&IsCommend="&rs("ischecked")&"&pageno="&Request("pageno")&"&ID="&rs("companyid")&"'>"
			if rs("ischecked")=1 then Response.Write "<font color=red><b>通过</b></font>" Else Response.write "<font color=#0000FF><b>待审</b></font>"
			Response.Write "</a>"
			%></td>
            <td width="15%" align="center" ><%
			'推荐处理
			if Request("action") = "Isvip" then
			  mIsvip = Request("Isvip")
			  if mIsvip=1 then mIsvip = 0 else mIsvip = 1
			  mSql = "update CityCard_League Set tj= "&mIsvip&" Where companyid="&Request("ID")
              conn.execute(mSql)
			  Response.redirect "Admin_AgioLeague.asp?pageno="&Request("pageno")
			end if
			Response.Write "<a href='Admin_AgioLeague.asp?action=Isvip&Isvip="&rs("tj")&"&pageno="&Request("pageno")&"&ID="&rs("companyid")&"'>"
			if rs("tj")=1 then Response.Write "<font color=red><b>VIP</b></font>" Else Response.write "<font color=#0000FF><b>普通</b></font>"
			Response.Write "</a>"
			%> <a title="修改记录" href='Admin_AgioLeague.asp?action=edit&ModifyID=<%=rs("companyid")%>&BgColor=<%=rs("companyid")%>&pageno=<%=cstr(pageno)%>#anModify'><font color="#666666">[修改]</font></a> 
              <a title="请确定是否删除,删除后不能恢复!" href="javascript:jDelete('Admin_AgioLeague.asp?DeleteID=<%=rs("companyid")%>&pageno=<%=cstr(pageno)%>')"><font color="#666666">[删除]</font></a></td>
          </tr>
          <%
 rs.movenext
 re=re+1
 rc=rc-1
 loop
 end if
%>
        </table> 
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="FFFFFF">
          <tr> 
            <td width="35%" height="22">
			  &nbsp;共
			  <font color=red><strong><% = rs.recordcount%></strong></font>
			  条记录 当前第
			  <font color=red><strong><% = Trim(pageno)%></strong></font>页/共
			  <font color=red><strong><% = Trim(mpage)%></strong></font>页
		    </td>
            <td width="65%" align="right"> 
<%
if pageno="" then pageno=1
if pageno>1 then
   response.write "<a href='Admin_AgioLeague.asp?keywords="&Keywords&"&TradeType="&TradeType&"'> <img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='首页' src='Images/boqb02.gif' border=0 width='15' height='14'>"
end if

if pageno>1 then
   response.write "<a href='Admin_AgioLeague.asp?pageno="&pageno-1&"&keywords="&Keywords&"&TradeType="&TradeType&"'><img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='上一页' src='Images/bob02.gif' border=0 width='15' height='14'>"
end if

add=5'数字分页个数+1
if pageno-int(add/2)<=1 then m=1 else m=pageno-int(add/2)
if m+add>mpage then 
   n=mpage
   if mpage-add<=1 then m=1 else m=mpage-add
else
   n=m+add
end if

for pno=m to n
 if pno=cint(pageno) then
   response.write "&nbsp;<font color=red>"&pno&"</font>"
 else
   response.write "<b>&nbsp;<a href='Admin_AgioLeague.asp?pageno="&pno&"&keywords="&Keywords&"&TradeType="&TradeType&"'>"&pno&"</a></b>"
 end if
next
response.write "&nbsp"

if int(pageno) < int(rs.pagecount) then
  response.write "<a href='Admin_AgioLeague.asp?pageno="&pageno+1&"&keywords="&Keywords&"&TradeType="&TradeType&"'><img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'></a>"
else 
  response.write "<img alt='下一页' src='Images/fbob02.gif' border=0 width='15' height='14'>"
end if

if int(pageno) < int(rs.pagecount) then
   response.write "<a href='Admin_AgioLeague.asp?pageno="&mpage&"&keywords="&Keywords&"&TradeType="&TradeType&"'><img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'></a>"
else
   response.write "<img alt='末页' src='Images/fboqb02.gif' border=0 width='15' height='14'>"
end if
Response.write "&nbsp;&nbsp;"
%>
            </td>
          </tr>
        </table>
        <%if mFlag=true then'add%>
        <strong><font color=red><a name="anInsert"></a></font></strong> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="32" align="center" bgcolor="FFFFFF"><strong><font color=red> 
              <%
		  if Request.QueryString("action")="IsInsert" then response.write "提示：记录添加成功！" 
		  if Request.QueryString("action")="IsDelete" then response.write "提示：记录删除成功！" 
		  if Request.QueryString("action")="IsModify" then response.write "提示：记录修改成功！" 
  		  if Trim(Request.QueryString("action"))="" then response.write "提示：当前为添加状态！" 
		%>
              </font></strong></td>
          </tr>
        </table> 
        <strong><font color=red> </font></strong> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr> 
            <form name="form1" method="post" action="Admin_AgioLeague.asp?action=Insert" onSubmit="return CheckData()">
              <td> <table width="100%" border="0" cellpadding="2" cellspacing="0">
                  <tr background="Images/mmTo.gif"> 
                    <td height="6" background="Images/mmTo.gif"> <span style="CURSOR: hand; FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1);  WIDTH: 100%">功能：添加记录</span></td>
                  </tr>
                  <tr> 
                    <td valign="top" bgcolor="fcfcfc"> 
                      <table width="100%" border="0" cellspacing="2" cellpadding="0">
                      
						<tr> 
                          <td width="12%" height="19">用 户 名：</td>
                          <td width="88%"><input name="txtUserName" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="21" maxlength="20">
                          <a href="javascript:account_check()">（查看用户名是否被占用）</a> </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">密　　码：</td>
                          <td width="88%"> <input name="txtPassword" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="888888" size="21" maxlength="20">
                            //如果不输入密码,密码为888888</td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">商家名称：</td>
                          <td width="88%"><input name="txtCompanyName" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="36" maxlength="20"></td>
                        </tr>
						  <tr>
						    <td height="19">关 键 字：</td>
						    <td><input name="c_key" type="text" id="c_key"></td>
					    </tr>
						  <tr> 
                          <td width="12%" height="19">签　　单：</td>
                          <td width="88%"><input name="txtOperation" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="21" maxlength="20">
                            各词之间用英文'号隔开</td>
                        </tr>
						<tr> 
                          <td width="12%" height="19">加盟类型：</td>
                          <td width="88%"> 
                            <input name="up_type" type="checkbox" id="up_type" value="1" checked>
                            乐扣卡加盟商
                            <input name="up_type1" type="checkbox" id="up_type1" value="1">
                            手机短信加盟商</td>
                        </tr>
						                        <tr> 
                          <td width="12%" height="19">商家级别：</td>
                          <td width="88%"><select name="selGrade">
                              <option value="普通商家" selected>普通商家</option>
                              <option value="银牌商家">银牌商家</option>
							  <option value="金牌商家">金牌商家</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">区　　域：</td>
                          <td width="88%"> <select name="selBigCategory" onChange="TypeChange(this);" >
                              <%
             m_SQL="Select F_ID,F_Value From T_CityType where F_ID=15 order by F_ID"
			 Set rs = conn.Execute(m_SQL)

			 mBigArray = rs.GetRows()
			 for i=0 to ubound(mBigArray,2)
			   m_SQL2="Select * From T_AreaType Where F_CityTypeID="&mBigArray(0,i)&" order by F_Grade"
			   Set rs = conn.Execute(m_SQL2)
			   strSmallCategory = mBigArray(0,i)&"-"
			   Do While not rs.Eof 
   			     strSmallCategory = strSmallCategory & rs("F_ID")&"+"&rs("F_Value")+"-"
				 rs.Movenext
			   Loop
			   Response.write "<option value="&strSmallCategory&">"&mBigArray(1,i)&"</option>"
			 next'for
          %>
                            </select> <script language="javascript">                               
function TypeChange(theSelect)
{
var sTemp,sString,i,sBigTypeID;
sValue=theSelect.value;
sSubTypeArray=sValue.split("-");
sBigTypeID = sSubTypeArray[0];
sString="<select name='TypeID'>";
for(i=1;i<sSubTypeArray.length-1;i++)
{
 sTemp=sSubTypeArray[i].split("+");

 sString+="<option value='"+sBigTypeID+":"+sTemp[0]+"'>"+sTemp[1]+"</option>";
}
 sString+="<option value='"+sBigTypeID+":0'>全　部</option>";
sString+="</Select>"
form1.TypeID.outerHTML=sString;

}
</script> <select name="TypeID" >
                            </select> <script language="javascript">TypeChange(form1.selBigCategory);</script></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="2">所属分类：</td>
                          <td width="88%"> <select name="selTrade">
                              <%
			   m_SQL = "SELECT F_ID,F_Value FROM T_TradeType ORDER BY F_ID "
			   Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
			     Response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>"
				 rs.MoveNext
			   Loop
			   rs.Close
			   %>
                            </select></td>
                        </tr>
                         <tr> 
                          <td width="12%" height="19">付款方式：</td>
                          <td width="88%"><input name="txtPayClass" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="21" maxlength="20"></td>
                        </tr>
					    <tr> 
                          <td width="12%" height="4">地　　址：</td>
                          <td><input name="txtAddress" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="120">
                            邮编
                              <input name="post" type="text" id="post" size="7" maxlength="7"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="9">交　　通：</td>
                          <td><input name="txtTraffic" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="120"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">电　　话：</td>
                          <td width="88%"><input name="txtTel" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="21" maxlength="120">
                            邮箱 
                              <input name="email" type="text" id="email">
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">联 系 人：</td>
                          <td width="88%"><input name="txtLinkman" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="" size="21" maxlength="120">
                          电话
                          <input name="lxrdh" type="text" id="lxrdh"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="9">附近学校：</td>
                          <td><input name="txtConsume" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="80"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">网　　址：</td>
                          <td width="88%"><input name="txtWebsite" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="80">
*请在地址前添加<span class="style1">http://</span></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">营业时间：</td>
                          <td width="88%">自 
                            <input name="txtBusinessHours" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="8" maxlength="80">
                            至 
                            <input name="txtBusinessHours2" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="8" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="17">补充说明：</td>
                          <td width="88%"><input name="txtOther" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">优惠期限：</td>
                          <td width="88%">自 
                            <input name="txtYouhuiTime" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="8" maxlength="80">
                            至 
                            <input name="txtYouhuiTime2" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="8" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">酒店星级：</td>
                          <td width="88%"> <select name="selStarGrade">
                              <%
			   m_SQL = "SELECT F_ID,F_Value FROM Tour_StarGradeType ORDER BY F_ID DESC"
			   Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
			     Response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>"
				 rs.MoveNext
			   Loop
			   rs.Close
			   %>
                            </select>
                            非酒店不需输入</td>
                        </tr>
                        <tr> 
                          <td width="12%" height="17">停 车 位：</td>
                          <td width="88%"><input name="txtCar" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">商家标志：</td>
                          <td><input name="txtImage" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../CardManage/UploadLogoImages&ReturnForm=form1&ReturnText=txtImage','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                       <!--
					    <tr> 
                          <td width="12%" height="-2">形像照片1：</td>
                          <td><input name="txtImage1" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage1','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片2：</td>
                          <td><input name="txtImage2" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage2','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片3：</td>
                          <td><input name="txtImage3" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage3','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片4：</td>
                          <td><input name="txtImage4" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage4','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
						
						-->
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">打折：</font></td>
                          <td width="88%"><input name="txtAgio" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="12" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">地图地址：</font></td>
                          <td width="88%"><input name="addressm" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" size="86" maxlength="250"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">折扣说明：</font></td>
                          <td width="88%"><textarea name="txtAgioContent" cols="86" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff"></textarea></td>
                        </tr>
                        <tr> 
                          <td>商家介绍： </td>
                          <td><textarea name="txtIntro" id="txtIntro" cols="86" rows="16" style="display:none" ></textarea>
						  <IFRAME ID="LatticeEditDocument" SRC="eEditor/ewebeditor.asp?id=txtIntro&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
						  </td>
                        </tr>
                        <tr> 
                          <td height="37" colspan="2"><input  type="submit" value="提交信息" name="B32" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:f2f2f2"> 
                            &nbsp; <input type="reset" value="从新来过" name="B32" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:#f2f2f2"></td>
                        </tr>
                      </table>
                      
                    </td>
                  </tr>
                </table></td>
            </form>
          </tr>
        </table>
        <%else%>
        <strong><font color=red><a name="anModify"></a></font></strong> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td height="32" align="center" bgcolor="ffffff"><strong><font color=red> 
       <%
		  if Request.QueryString("action")="IsInsert" then response.write "提示：记录添加成功！" 
		  if Request.QueryString("action")="IsDelete" then response.write "提示：记录删除成功！" 
		  if Request.QueryString("action")="IsModify" then response.write "提示：记录修改成功！" 
		  if Trim(Request.QueryString("action"))="edit" then response.write "提示：当前为修改状态！" 
	   %>
              </font></strong></td>
          </tr>
        </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" height="54">
          <tr> 
            <form name="form1" method="post" action="Admin_AgioLeague.asp?action=Modify&pageno=<%=request("pageno")%>&ModifyID=<%=request("ModifyID")%>" onSubmit="return CheckData()">
              <td> <table width="100%" border="0" cellpadding="2" cellspacing="0">
                  <tr background="Images/mmTo.gif"> 
                    <td height="6" background="Images/mmTo.gif"> <span style="CURSOR: hand; FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1);  WIDTH: 100%">功能：修改记录</span></td>
                  </tr>
                  <tr> 
                    <td valign="top" bgcolor="fcfcfc">
					<%
					 m_SQL="Select * From CityCard_League Where companyid="&Request.QueryString("ModifyID")
					  Set rs = conn.Execute(m_SQL)
					  addressm=rs("addressm")
					  infos=rs("infos")
					  lxrdh=rs("lxrdh")
					%>
					<table width="100%" border="0" cellspacing="2" cellpadding="0">
                        <tr> 
                          <td width="12%" height="19">用 户 名：</td>
                          <td width="88%"><input name="txtUserName" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_UserName%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">密　　码：</td>
                          <td width="88%"> <input name="txtPassword" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Password%>" size="21" maxlength="20"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">商家名称：</td>
                          <td width="88%"><input name="txtCompanyName" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_CompanyName%>" size="36" maxlength="20"></td>
                        </tr>
						<tr>
                          <td height="19">关 键 字：</td>
                          <td><input name="c_key" type="text" id="c_key" value="<%=c_key%>"></td>
					    </tr>
						<tr> 
                          <td width="12%" height="19">签　　单：</td>
                          <td width="88%"><input name="txtOperation" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Operation%>" size="21" maxlength="20"></td>
                        </tr>
						<tr> 
                          <td width="12%">加盟类型：</td>
                          <td width="88%" height="20">
						  <%
						   dim anid
			              anid=split(m_iscard,",")
						  %>
                            <input name="up_type" type="checkbox" id="up_type" value="1" <% if anid(0)="1" then %> checked <% end if %>>
                            乐扣卡加盟商
                            <input name="up_type1" type="checkbox" id="up_type1" value="1" <% if anid(1)="1" then %> checked <% end if %>>
                            手机短信加盟商
						  </td>
                        </tr>
						<tr> 
                          <td width="12%" height="19">商家级别：</td>
                          <td width="88%"><select name="selGrade">
						    <option value="<%=m_Grade%>" selected><%=m_Grade%></option>
                              <option value="普通商家">普通商家</option>
                              <option value="金牌商家">金牌商家</option>
                              <option value="银牌商家">银牌商家</option>
                            </select></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">区　　域：</td>
                          <td width="88%"> <select name="selBigCategory" onChange="TypeChange(this);" >
                              <%
             m_SQL="Select F_ID,F_Value From T_CityType where F_ID=15 order by F_ID"
			 Set rs = conn.Execute(m_SQL)
			 mBigArray = rs.GetRows()
			 for i=0 to ubound(mBigArray,2)
			   m_SQL2="Select * From T_AreaType Where F_CityTypeID="&mBigArray(0,i)&" order by F_Grade"
			   Set rs = conn.Execute(m_SQL2)
			   strSmallCategory = mBigArray(0,i)&"-"
			   Do While not rs.Eof 
   			     strSmallCategory = strSmallCategory & rs("F_ID")&"+"&rs("F_Value")+"-"
				 rs.Movenext
			   Loop
			   if m_CityTypeID = mBigArray(0,i) then
			      Response.write "<option selected value="&strSmallCategory&">"&mBigArray(1,i)&"</option>"
			   else
			      Response.write "<option value="&strSmallCategory&">"&mBigArray(1,i)&"</option>"
               end if
			 next'for
          %>
                            </select> <script language="javascript">                               
function TypeChange(theSelect)
{
var sTemp,sString,i,sBigTypeID;
sValue=theSelect.value;
sSubTypeArray=sValue.split("-");
sBigTypeID = sSubTypeArray[0];
sString="<select name='TypeID'>";
for(i=1;i<sSubTypeArray.length-1;i++)
{
 sTemp=sSubTypeArray[i].split("+");
 if (sTemp[0]==<%=m_AreaTypeID%>)
 sString+="<option selected value='"+sBigTypeID+":"+sTemp[0]+"'>"+sTemp[1]+"</option>";
 else
 sString+="<option value='"+sBigTypeID+":"+sTemp[0]+"'>"+sTemp[1]+"</option>";
}
 sString+="<option value='"+sBigTypeID+":0'>全　部</option>";
sString+="</Select>"
form1.TypeID.outerHTML=sString;
}
</script> <select name="TypeID" >
                            </select> <script language="javascript">TypeChange(form1.selBigCategory);</script> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="2">所属分类：</td>
                          <td width="88%"> <select name="selTrade">
                              <%
			   m_SQL = "SELECT F_ID,F_Value FROM T_TradeType ORDER BY F_ID "
			   Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
			      if (m_TradeType) = (rs("F_ID")) then
     				Response.write "<option value=" + cstr(rs("F_ID"))
           			Response.write " selected"
       				Response.write ">" + rs("F_Value")
                  Else
                    Response.write "<option value='" & rs("F_ID") &"'>"& rs("F_Value") &"</option>"
                  End if
				 rs.MoveNext
			   Loop
			   rs.Close
			   %>
                            </select></td>
                        </tr>
						<tr> 
                          <td width="12%" height="19">付款方式：</td>
                          <td width="88%"><input name="txtPayClass" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_PayClass%>" size="21" maxlength="20"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="4">地　　址：</td>
                          <td><input name="txtAddress" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Address%>" size="36" maxlength="120">
邮编
<input name="post" type="text" id="post" value="<%=m_post%>" size="7" maxlength="7"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="9">交　　通：</td>
                          <td><input name="txtTraffic" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Traffic%>" size="36" maxlength="120"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="19">电　　话：</td>
                          <td width="88%"><input name="txtTel" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Tel%>" size="21" maxlength="120">
邮箱
<input name="email" type="text" id="email" value="<%=m_email%>"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">联 系 人：</td>
                          <td width="88%"><input name="txtLinkman" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Linkman%>" size="21" maxlength="120">
                          电话
                            <input name="lxrdh" type="text" id="lxrdh" value="<%=lxrdh%>"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="9">附近学校：</td>
                          <td><input name="txtConsume" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Consume%>" size="36" maxlength="80"> 
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">网　　址：</td>
                          <td width="88%"><input name="txtWebsite" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Website%>" size="36" maxlength="80">
                          *请在地址前添加<span class="style1">http://</span></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">营业时间：</td>
                          <td width="88%">自 
                            <input name="txtBusinessHours" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_BusinessHours%>" size="8" maxlength="80">
                            至 
                            <input name="txtBusinessHours2" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_BusinessHours2%>" size="8" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="17">补充说明：</td>
                          <td width="88%"><input name="txtOther" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Other%>" size="36" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">优惠期限：</td>
                          <td width="88%">自 
                            <input name="txtYouhuiTime" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_YouhuiTime%>" size="8" maxlength="80">
                            至 
                            <input name="txtYouhuiTime2" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_YouhuiTime2%>" size="8" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">酒店星级：</td>
                          <td width="88%"> <select name="selStarGrade">
                              <%
			   m_SQL = "SELECT F_ID,F_Value FROM Tour_StarGradeType ORDER BY F_ID DESC"
			   Set rs = conn.Execute(m_SQL)
			   Do While Not rs.Eof
   			     if Trim(m_StarGradeTypeID) = Trim(rs("F_ID")) then
     				Response.write "<option value=" + cstr(rs("F_ID"))
           			Response.write " selected"
       				Response.write ">" + rs("F_Value")
                  Else
                    Response.write "<option value='" & rs("F_ID") &"'>"& rs("F_Value") &"</option>"
                  End if
				 rs.MoveNext
			   Loop
			   rs.Close
			   	 %>
                            </select></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8">停 车 位：</td>
                          <td width="88%"><input name="txtCar" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Car%>" size="36" maxlength="80"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">商家标志：</td>
                          <td><input name="txtImage" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Image%>" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../CardManage/UploadLogoImages&ReturnForm=form1&ReturnText=txtImage','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                       <!--
					    <tr> 
                          <td width="12%" height="-2">形像照片1：</td>
                          <td><input name="txtImage1" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Image1%>" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage1','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片2：</td>
                          <td><input name="txtImage2" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Image2%>" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage2','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片3：</td>
                          <td><input name="txtImage3" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Image3%>" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage3','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="-2">形像照片4：</td>
                          <td><input name="txtImage4" type="text" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Image4%>" size="36"> 
                            <font size="2"> 
                            <input style="width:70;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" type="button" value="上传图片" name="UpImage13" onClick="javascript:window.open('UploadWindows.asp?Uploadpath=../Consumed/UploadImages&ReturnForm=form1&ReturnText=txtImage4','upload','top=20,left=30,height=134,width=420,scrollbars=no,resizable=no')">
                            </font></td>
                        </tr>
						-->
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">打　　折：</font></td>
                          <td width="88%"><input name="txtAgio" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=m_Agio%>" size="12" maxlength="10">
                          </td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">地图地址：</font></td>
                          <td width="88%"><input name="addressm" type="text"  style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff" value="<%=addressm%>" size="86" maxlength="250"></td>
                        </tr>
                        <tr> 
                          <td width="12%" height="8"><font color="#FF6600">折扣说明：</font></td>
                          <td width="88%"><textarea name="txtAgioContent" cols="86" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff"><%=m_AgioContent%></textarea></td>
                        </tr>
                        <tr> 
                          <td>商家介绍： </td>
                          <td><textarea name="txtIntro" id="txtIntro" cols="86" rows="16" style="display:none"><%=m_Intro%></textarea>
						  <IFRAME ID="LatticeEditDocument" SRC="eEditor/ewebeditor.asp?id=txtIntro&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="550" HEIGHT="350"></IFRAME>
						  </td>                        
						</tr>
                        <tr> 
                          <td height="37" colspan="2"><input  type="submit" value="提交信息" name="B32" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:f2f2f2"> 
                            &nbsp; <input type="reset" value="从新来过" name="B32" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:#f2f2f2"></td>
                        </tr>
                      </table>
					</td>
                  </tr>
                </table></td>
            </form>
          </tr>
        </table>
        <%end if%>
      </TD>
    </TR>
  </TBODY>
</TABLE>
</body>
</html>
<%
 CloseDatabase
%>