<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/const.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
.STYLE91 {	font-size: 14px;
	color: #0066CC;
	font-weight: bold;
}
-->
</style>
 <script language="javascript" src="js/area1.js"></script>
 <script language="javascript">
 function chklog(){
if(document.frmlog.userid.value.length==0){
 alert("请填写您的登陆帐号！");
 document.frmlog.userid.focus();
 return false;
}
if(document.frmlog.userpass.value.length==0){
 alert("请填写您的登陆密码！");
 document.frmlog.userpass.focus();
 return false;
}
return true;
}
 </script>
</head>
<body>
<%
Function RemoveHTML( strText )
Dim RegEx

Set RegEx = New RegExp

RegEx.Pattern = "<[^>]*>"
RegEx.Global = True

RemoveHTML = RegEx.Replace(strText, "")
End Function



dim prov,city,mudi
prov=replacebadchar(request("sheng"))
city=replacebadchar(request("shi"))
mudi=replacebadchar(request("mudi"))
if prov="" then prov=0
if city="" then city=0
%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top" bgcolor="#FFFFFF"><div align="left">
      <table width="950" border="0" cellpadding="0" cellspacing="0">
        <tr>
         <td width="231" align="center" valign="top" >
		
		 
		 <table width="231" border="0" cellpadding="0" cellspacing="0" bordercolor="#f2f2f2">
              <tr>
                <td align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                    <TBODY>
                      <TR>
                        <TD align=center width="1%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                        <TD width="13%" align=center background="image/tiao_4.gif"><table width="169" height="25" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <td align="center" class="pgd">如何成为商家会员</td>
                          </tr>
                        </table></TD>
                        <TD height="20" align="center" valign="bottom" background="image/tiao_4.gif">&nbsp;</TD>
                        <TD width="1%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                      </TR>
                    </TBODY>
                </TABLE></td>
              </tr>

              <tr>
                <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EeEeEe">
                  <tr>
                    <td  valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">


<tr>
                        <td  height="25" style="padding-left:8px">1、注册为婚介交友普通会员</td>
                      </tr>
					  
					<tr>
  <td  height="25" style="padding-left:8px">2、请在用户后台提交商家信息</td>
</tr>

                    <tr>
  <td height="25" style="padding-left:8px">3、管理员审核通过后即可成为商家会员。</td>
</tr>  
		                    <tr>
                      <td height="22" style="padding-left:8px">&nbsp;</td>
                    </tr>		  
					  

                    </table></td>
                  </tr>
                </table></td>
              </tr>

            </table>
          <table width="1" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
          <table width="231" border="0" cellpadding="0" cellspacing="0" bordercolor="#f2f2f2">
            <tr>
              <td align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                  <TBODY>
                    <TR>
                      <TD align=center width="1%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                      <TD width="13%" align=center background="image/tiao_4.gif"><table width="169" height="25" border="0" cellpadding="0" cellspacing="0">
                          <tr>
                            <td align="center" class="pgd">如何成为联盟单位</td>
                          </tr>
                      </table></TD>
                      <TD height="20" align="center" valign="bottom" background="image/tiao_4.gif">&nbsp;</TD>
                      <TD width="1%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                    </TR>
                  </TBODY>
              </TABLE></td>
            </tr>
            <tr>
              <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EeEeEe">
                  <tr>
                    <td  valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td  height="25" style="padding-left:8px">1、在商家会员的基础上和管理员联系</td>
                        </tr>
                        <tr>
                          <td  height="25" style="padding-left:8px">2、管理员审核符合要求后会</td>
                        </tr>
                        <tr>
                          <td  height="25" style="padding-left:8px">3、联盟单位可能需要支付费用</td>
                        </tr>
                   
                    </table></td>
                  </tr>
              </table></td>
            </tr>
          </table>
          <table width="1" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="5"></td>
            </tr>
          </table></td>
	
		         <td width="11" align="center" valign="top" ></TD>        <td width="231" align="center" valign="top" ><table width="691" border="0" cellpadding="0" cellspacing="0" bordercolor="#f2f2f2">
                   <tr>
                     <td align="center" valign="top"><TABLE width="100%" border=0 
            cellPadding=0 cellSpacing=0 bgColor=white class="STYLE4" >
                         <TBODY>
                           <TR>
                             <TD align=center width="1%"><img src="image/tiao_3.gif" width="10" height="31"></TD>
                             <TD width="13%" align=center background="image/tiao_4.gif"><table width="69" height="25" border="0" cellpadding="0" cellspacing="0">
                                 <tr>
                                   <td align="center" class="pgd">联盟单位</td>
                                 </tr>
                             </table></TD>
                             <TD height="20" align="center" valign="bottom" background="image/tiao_4.gif"><div align="right">more..</div></TD>
                             <TD width="1%" align="center"><img src="image/tiao_2.gif" width="10" height="31"></TD>
                           </TR>
                         </TBODY>
                     </TABLE></td>
                   </tr>
                   <tr>
                     <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#EeEeEe">
                         <tr>
                           <td  valign="top"><table width="98%" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#f0f0f0">
                               <%sql="select  * from sj where lm=1 order by up desc"

						Set rs=Server.CreateObject("ADODB.Recordset") 
rs.Open Sql,conn,1 
If  rs.Bof Or rs.Eof Then 

%>
                               <%else%>
                               <%
Dim page_size '定义每页多少条记录变量 
Dim page_no '定义当前是第几页变量 
Dim page_total '定义总的页数变量 
page_size=10
'如果第一次打开则page_no为1,否则由传回参数决定 
If Request.QueryString("page_no")=""Then 
page_no=1 
Else 
page_no=int(Cint(Request.QueryString("page_no"))) 
End If 
rs.PageSize=page_size '设置每页多少条记录 
page_total=rs.PageCount '返回总页数 
rs.AbsolutePage=page_no '设置当前显示第几页 
%>
                               <%
dim I,j 
I=page_size 
Do while Not rs.Eof And I>0 
I=I-1 
j=j+1%>
                             <TR><TD><table width="100%" border="1" cellpadding="5" cellspacing="0" bordercolor="#f8f8f8">
  <tr>
                                 <td width="23%" rowspan="4"><div align="center"><a href="showsj.asp?fl=<%=rs("fl")%>&id=<%=rs("id")%>"><img src="uppic/photo/<%=rs("tp")%>" width="106" height="95" border="0"></a></div></td>
                                 <td width="46%">单位名称：<a href="showsj.asp?fl=<%=rs("fl")%>&id=<%=rs("id")%>"><%=rs("mc")%></a></td>
                                 <td width="31%">联系电话：<%=rs("dh")%></td>
                               </tr>
                               <tr>
                                 <td>联系地址：<%=rs("dz")%></td>
                                 <td>加入时间：<%=rs("jr")%></td>
                               </tr>
                               <tr>
                                 <td>商家网址：<%=rs("wz")%></td>
                                 <td>所属分类：<%set fl2=conn.execute("select * from dj where id="&rs("fl"))
								   if not fl2.eof then%><%=fl2("fl")%><%end if%></td>
                               </tr>
                               <tr>
                                 <td colspan="2"><p style="line-height:150%;"> 单位简介：<%=left(RemoveHTML(rs("js")),70)%></p></td>
                               </tr>
</table>
</TD></TR>
                               <%
rs.MoveNext 
Loop 
%>
                               <tr>
                                 <td height="30" colspan="3">&nbsp;第<%=page_no%>页/共<%=page_total%>页&nbsp;第&nbsp;
                                     <%for  I=1 To page_total
response.Write("<a href=?fl="&trim(request("fl"))&"&page_no="&I&" >"&I&"</a>&nbsp;")
next
%>
                                   页 &nbsp;</td>
                               </tr>
                               <%end if%>
                           </table></td>
                         </tr>
                     </table></td>
                   </tr>
                 </table></td>
		   
		   
		   
		   
		   
		   
        </tr>
      </table>
    </div></td>
  </tr>
  <tr>
    <td height="1" valign="top"></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
 conn.close
 set conn=nothing
%>
