<!--#include file="include/conn1.asp"-->
<!--#include file="include/conn_znx.asp"-->
<meta name="keywords" content=" 海外华人征婚,西方男士征婚,白领征婚,红娘婚介,交友,国际爱情, 国际婚姻,欧洲华人,德国华人,大陆女人, 香港交友,香港征婚, 台湾交友, 台湾征婚, 美女征婚, 富人征婚, 老百姓征婚, 恋爱技巧,成功案例, " />
<meta name="description" content=" 凤凰国际婚恋交友网,中国最严肃的征婚交友网,成立十多年来,真诚为中国单身男女和海外华人服务, 获得客户的好评,有极好的信誉。 " />
<%
'response.write(session("username"))
'dim jjjjj
'jjjjj=date()
'response.write(format(jjjjj,'yyyy-mm-dd'))
'format(now(),'yyyy/mm/dd hh:mm:ss')
dim zxzffs
dim zxzfje
zxzffs=request("zffs")
zxzfje=request("je")
dim rs
dim gsjs
dim zhwh
dim zxdtmc(5)
dim zxdtid(5)
dim i
dim hyalmc(6)
dim hyalid(6)
dim ozzhmc(6)
dim ozzhid(6)
dim jdwdmc(6)
dim jdwdid(6)
dim myhzp
dim wyhzp
dim sql_m '顶部照片男
dim sql_w '顶部照片女
dim rs_m
dim rs_w
dim wzzwmc '网站名称
dim cgltp '成功率照片
'成功率图片
sql="select CGTP from FH_CGTP"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
cgltp=rs("CGTP")
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
'网站名称
sql="select ZWMC from FH_WZMC"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
wzzwmc=rs("ZWMC")
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
'顶部照片男
sql_m="select top 30 ZPDZ from FH_HYZP_SH where XB='0' and SYTP='1' and ZPDZ<>null"
set rs_m=conn_znx.execute(sql_m)
if Err.number<>0 then
response.write(wrong)
end if
'顶部照片女
sql_w="select top 30 ZPDZ from FH_HYZP_SH where XB='1' and SYTP='1' and ZPDZ<>null"
set rs_w=conn_znx.execute(sql_w)
if Err.number<>0 then
response.write(wrong)
end if
'公司介绍
sql="select ZWJJ from FH_GSJS order by ID desc"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
gsjs=rs("ZWJJ")
if gsjs<>"" then
exit do
end if
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
gsjs=left(gsjs,175)
'中华文化
sql="select top 1 ZWJJ from FH_WHJS "
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
zhwh=rs("ZWJJ")
rs.movenext
if rs.eof then exit do
loop
zhwh=left(zhwh,446)
rs.close
set rs=nothing
'response.write("1")
'最新动态
sql="select top 5 ZWMC,ID from FH_ZXDT order by ID desc"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
i=0
do while not rs.eof
if i= 5 then
exit do
end if
zxdtmc(i)=rs("ZWMC")
zxdtid(i)=rs("ID")
i=i+1
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
i=0
'国际婚姻与爱情
sql="select top 7 ID,ZWMC from FH_GJAQ"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
if i= 6 then
exit do
end if
hyalmc(i)=rs("ZWMC")
hyalid(i)=rs("ID")
i=i+1
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
i=0
'纵横欧洲
sql="select top 7 ID,ZWMC from FH_OZZH"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
if i= 6 then
exit do
end if
ozzhmc(i)=rs("ZWMC")
ozzhid(i)=rs("ID")
i=i+1
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
i=0
'经典问答
sql="select top 7 ID,ZWMC from FH_GJHY"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
do while not rs.eof
if i= 6 then
exit do
end if
jdwdmc(i)=rs("ZWMC")
jdwdid(i)=rs("ID")
i=i+1
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=nothing
i=0
'msn
dim msndz
dim msn_t
sql="select MC,NC from FH_MSN"
set rs=conn.execute(sql)
if Err.number<>0 then
response.write(wrong)
end if
dim zwnc
%>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">
<HTML>
<HEAD>
<TITLE><%=wzzwmc%>首页</TITLE>
</HEAD>
<script language="javascript" src="include/md5.js"></script>
<script language="javascript">
function dhome()
{
window.location.href="index.asp";
}
function dparty()
{
window.location.href="zxhd.asp";
}
function dtrans()
{
window.location.href="fysf.asp";
}
function dchina()
{
window.location.href="zhwh.asp";
}
function dsuccess()
{
window.location.href="cgal.asp";
}
function dvisa()
{
window.location.href="qzzx1.asp";
}
function dmarry()
{
window.location.href="hyal.asp";
}
function dask()
{
window.location.href="jdwd.asp";
}
function deurope()
{
window.location.href="ozzp.asp";
}
function dcooprate()
{
window.location.href="hzjm.asp";
}
function dpay()
{
window.location.href="zxzf.asp";
}
function doffer()
{
window.location.href="rczp.asp";
}
function dcontact()
{
window.location.href="lxwm.asp";
}
function ddnew(id)
{
window.location.href="zxhd.asp?ID="+id;
}
function ddmarry(id)
{
window.location.href="dhyal.asp?ID="+id
}
function ddeurope(id)
{
window.location.href="dozzp.asp?ID="+id
}
function ddask(id)
{
window.location.href="djdwd.asp?ID="+id;
}
function dregist()
{
window.location.href="fwtk.asp";
}
function dhydr()
{
var zxzfje;
var zxzffs;
zxzfje="<%=zxzfje%>";
zxzffs="<%=zxzffs%>";
if(document.all.mc.value=='')
{
alert('请输入用户名');
document.all.mc.focus();
return false;
}
if(document.all.mm.value=='')
{
alert('请输入密码');
document.all.mm.focus();
return false;
}
window.location.href="checkuser.asp?user="+escape(document.all.mc.value)+"&passwd="+hex_md5(document.all.mm.value)+"&zxzffs="+zxzffs+"&zxzfje="+zxzfje;
}
function dend()
{
window.location.href="quit.asp";
}
function dhyzx()
{
window.location.href="yhzx.asp";
}
function dgsjs()
{
window.location.href="gsjs.asp";
}
function dmxhy()
{
window.location.href="nxhy.asp";
}
function dwxhy()
{
window.location.href="vxhy.asp";
}
function xzmm()
{
window.location.href="xzmm.asp";
}
</script>
<BODY leftmargin=0 topmargin=0>
<center>
<form name="main" action="" method="post">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD background="image/layout-sy-img-1-1.png" WIDTH="1004" HEIGHT="208">
<embed src="swf/banner.swf" quality="high"
pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" width="1004" wmode="transparent" height="100%">
</embed>
</TD>
</TR>
<TR>
<TD WIDTH="1004" HEIGHT="868">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="868">
<TR>
<TD background="image/layout-sy-img-1-1-1.png" WIDTH="1004" HEIGHT="10"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-1-2-1.png" WIDTH="1004" HEIGHT="156">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="156">
<tr>
<td width=40>
</td>
<td width=924 height=156>
<marquee width=924 height=146 align=mmiddle direction="right" behavior=alternate loop=-1 scrollamount=3 scrolldelay=3 hspace=8 vspace=5 onMouseOver="this.stop()" onMouseOut="this.start()">
<%
do while not rs_w.eof
wyhzp=rs_w("ZPDZ")
%>
<img src="<%=wyhzp%>" width=130 height=140>
<%
rs_w.movenext
if rs_w.eof then exit do
loop
rs_w.close
set rs_w=nothing
%>
</marquee>
</td>
<td width=40>
</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-1-3-1.png" WIDTH="1004" HEIGHT="24"></TD>
</TR>
<TR>
<TD WIDTH="1004" HEIGHT="470">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="470">
<TR>
<TD background="image/layout-sy-img-2-1-1.png" WIDTH="38" HEIGHT="470"></TD>
<TD WIDTH="244" HEIGHT="470">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="470">
<TR>
<TD background="image/layout-sy-img-3-1-1.png" WIDTH="244" HEIGHT="9"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-2-1.png" WIDTH="244" HEIGHT="33"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-3-1.png" WIDTH="244" HEIGHT="11"></TD>
</TR>
<TR>
<TD WIDTH="244" HEIGHT="130">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="130">
<TR>
<TD background="image/layout-sy-au-img-1-1.png" WIDTH="244" HEIGHT="96" valign=top>
<%
if (session("username"))="" or isnull((session("username"))) then
%>
<font size=2 color="#eb44e4" style="cursor:hand" οnclick="javascript:xzmm()"><b>忘记密码</b></font>
<%
end if
%>
<br><br>
<%
if (session("username"))="" or isnull((session("username"))) then
%>
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" >
<tr>
<td align=right>
<font size=2>用户名:</font>
</td>
<td width=155>
<input type="text" name="mc" value="" size=15 maxlength="255">
</td>
</tr>
<tr>
<td align=right>
<font size=2>密 码:</font>
</td>
<td width=155>
<input type="Password" name="mm" value="" size=15 maxlength="255">
</td>
</tr>
</table>
<%else
%>
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" >
<tr>
<td width=80>
</td>
<td>
<font size=2>用户名:<%=session("username")%></font>
</td>
</tr>
<td width=80>
</td>
<td>
<font size=2>等级:
<%
if session("dj")="0" and session("sh")="1" then
%>
普通会员
<%
elseif session("dj")="1" and session("sh")="1" then
%>
黄金会员
<%
elseif session("dj")="2" and session("sh")="1" then
%>
钻石会员
<%
elseif session("dj")="0" and session("sh")="0" then
%>
未审核会员
<%
end if
%>
</font>
</td>
</tr>
</table>
<%
end if
%>
</TD>
</TR>
<TR>
<TD WIDTH="244" HEIGHT="18">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="18">
<TR>
<TD background="image/layout-sy-au1-img-1-1.png" WIDTH="48" HEIGHT="18"></TD>
<%
if session("username")="" or isnull(session("username")) then
%>
<TD background="image/layout-sy-au1-img-1-2.png" WIDTH="70" HEIGHT="18" style="cursor:hand" onClick="javascript:dregist()"></TD>
<%
else
%>
<TD WIDTH="70" HEIGHT="18" >
<font size=2 color="#FF00FF" οnclick="javascript:dend()" style="cursor:hand">离开</font>
</TD>
<%
end if
%>
<TD background="image/layout-sy-au1-img-1-3.png" WIDTH="18" HEIGHT="18"></TD>
<%
if session("username")="" or isnull(session("username")) then
%>
<TD background="image/layout-sy-au1-img-1-4.png" WIDTH="70" HEIGHT="18" style="cursor:hand" onClick="javascript:dhydr()"></TD>
<%
else
%>
<TD WIDTH="70" HEIGHT="18">
<font size=2 color="#FF00FF" οnclick="javascript:dhyzx()" style="cursor:hand">会员中心</font>
</TD>
<%
end if
%>
<TD background="image/layout-sy-au1-img-1-5.png" WIDTH="38" HEIGHT="18"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-au-img-3-1.png" WIDTH="244" HEIGHT="16"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-5-1.png" WIDTH="244" HEIGHT="13"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-6-1.png" WIDTH="244" HEIGHT="33"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-7-1.png" WIDTH="244" HEIGHT="11"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-8-1.png" WIDTH="244" HEIGHT="217">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="244" HEIGHT="217">
<tr height=10>
<td width=20>
</td>
<td>
</td>
<td width=20>
</td>
</tr>
<tr>
<td width=20>
</td>
<td width="204" valign=top>
<table BORDER="0" CELLSPACING="2" CELLPADDING="2" WIDTH="204" >
<%
if zxdtmc(0)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(0)%>)"><%=left(zxdtmc(0),12)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<tr>
<td colspan=3 height=3>
</td>
</tr>
<%
end if
if zxdtmc(1)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(1)%>)"><%=left(zxdtmc(1),10)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<tr>
<td colspan=3 height=3>
</td>
</tr>
<%
end if
if zxdtmc(2)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(2)%>)"><%=left(zxdtmc(2),12)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<tr>
<td colspan=3 height=3>
</td>
</tr>
<%
end if
if zxdtmc(3)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(3)%>)"><%=left(zxdtmc(3),8)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<tr>
<td colspan=3 height=3>
</td>
</tr>
<%
end if
if zxdtmc(4)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(4)%>)"><%=left(zxdtmc(4),12)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<tr>
<td colspan=3 height=3>
</td>
</tr>
<%
end if
if zxdtmc(5)<>"" then
%>
<tr>
<td valign=middle width="10" align=right>
<img src="image/fang2.gif">
</td>
<td width=184 style="word-break:break-all">
<font size=2 style="cursor:hand" οnclick="javascript:ddnew(<%=zxdtid(5)%>)"><%=left(zxdtmc(5),12)%>...</font>
</td>
<td valign=middle>
<img src="image/jt.png">
</td>
</tr>
<tr>
<td colspan=3 background="image/ct.gif" height=1>
</td>
</tr>
<%
end if
%>
</table>
</td>
<td width=20>
</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-3-9-1.png" WIDTH="244" HEIGHT="13"></TD>
</TR>
</TABLE>
</TD>
<TD background="image/layout-sy-img-2-1-3.png" WIDTH="15" HEIGHT="470"></TD>
<TD WIDTH="667" HEIGHT="470">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="470">
<TR>
<TD background="image/layout-sy-img-4-1-1.png" WIDTH="667" HEIGHT="24">
<font size=2 color="#ffffff"><b> 欢迎您来到凤凰国际婚恋交友网</b></font>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-2-1.png" WIDTH="667" HEIGHT="9"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-3-1.png" WIDTH="667" HEIGHT="171">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="171">
<tr height=4>
<td width=20>
</td>
<td>
</td>
<td width=20>
</td>
</tr>
<tr>
<td width=20>
</td>
<td width=627 valign=top height=163>
<table border="0" cellspacing="0" cellpadding="0" width=627 height=163>
<tr>
<td >
<table border="0" cellspacing="0" cellpadding="0" width=452 height=163>
<tr>
<td width="452" style="word-break:break-all;line-height:150%">1. 隐私,安全,匿名电子邮件。<br>
2. 免费注册,简单和快速。不花费你的一分钱。<br>
3. 我们的会员来自世界各地。<br>
4. 我们帮助会员找到伴侣,已有超过十年的经验。<Br>
5. 免费搜索和双向匹配!<br> </td>
</tr>
<tr height="20">
<td valign=middle> </td>
</tr>
</table>
</td>
<td width=200 align=center>
<%
if cgltp<>"" then
%>
<IMG src="<%=cgltp%>" width=180 height=160 style="cursor:hand" onClick="javascript:dsuccess()">
<%
end if
%>
</td>
</tr>
</table>
</td>
<td width=20>
</td>
</tr>
<tr height=4>
<td width=20>
</td>
<td>
</td>
<td width=20>
</td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-4-1.png" WIDTH="667" HEIGHT="10"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-5-1.png" WIDTH="667" HEIGHT="100">
<font size=2 color="#ffffff"><b></b></font>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-6-1.png" WIDTH="667" HEIGHT="11"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-7-1.png" WIDTH="667" HEIGHT="218">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="667" HEIGHT="218">
<tr height=8>
<td width=19> </td>
<td> </td>
<td width=491> </td>
</tr>
<tr>
<td width=19> </td>
<td width=131 style="word-break:break-all;line-height:150%" valign=top><img src="image/indech1.jpg" width=120 height="90" style="cursor:hand" onClick="javascript:dregist()"><br></td>
<td valign=middle><font size="2">我想告诉你,我认识了一个了不起的家伙,他的甜默,大方,非常有爱心,当然我遇到他通过你的代理,这是一个奇迹。确定它的早期,但我非常非常高兴,他也是如此。感谢您帮助你改变我的生活。 英</font><br></td>
<td width=23> </td>
</tr>
<tr>
<td></td>
<td style="word-break:break-all;line-height:150%" valign=top></td>
<td valign=middle></td>
<td></td>
</tr>
<tr>
<td></td>
<td style="word-break:break-all;line-height:150%" valign=top><img src="image/indech2.jpg" width=120 height="90" style="cursor:hand" onClick="javascript:dregist()"></td>
<td width=491 style="word-break:break-all;line-height:150%" valign=top><strong><font size="2">“我们希望与你们分享这个故事。</font></strong><font size="2"> Kurt来自德国,我们通信2个月后,他来中国拜访我,我们发现我是非常的爱彼此, 他非常诚实, 守信和彬彬有礼..我的家人和朋友都为我感到高兴,现在,下一步他将在圣诞节来和我举行婚礼。 <strong>一切都很完美。谢谢你的一切。</strong> “ </font></td>
<td valign=middle> </td>
<td width="3"></td>
</tr>
<tr height=8>
<td width=19> </td>
<td> </td>
<td width=491> </td>
</tr>
</table>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-4-8-1.png" WIDTH="667" HEIGHT="4"></TD>
</TR>
</TABLE>
</TD>
<TD background="image/layout-sy-img-2-1-5.png" WIDTH="40" HEIGHT="470"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD WIDTH="1004" HEIGHT="16">
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT=16">
<TR>
<TD background="image/layout-sy-img-5-5-1.png" WIDTH="39" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-2.png" WIDTH="295" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-3.png" WIDTH="20" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-4.png" WIDTH="295" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-5.png" WIDTH="21" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-6.png" WIDTH="295" HEIGHT="16"></TD>
<TD background="image/layout-sy-img-5-5-7.png" WIDTH="39" HEIGHT="16"></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD background="image/layout-sy-img-1-6-1.png" WIDTH="1004" HEIGHT="29"></TD>
</TR>
<TR>
<TD background="image/layout-sy-img-1-7-1.png" WIDTH="1004" HEIGHT="163">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="1004" HEIGHT="156">
<tr>
<td width=40>
</td>
<td width=924 height=156>
<marquee width=924 height=146 align=mmiddle direction="right" behavior=alternate loop=-1 scrollamount=3 scrolldelay=3 hspace=8 vspace=5 onMouseOver="this.stop()" onMouseOut="this.start()">
<%
do while not rs_m.eof
myhzp=rs_m("ZPDZ")
%>
<img src="<%=myhzp%>" width=130 height=140>
<%
rs_m.movenext
if rs_m.eof then exit do
loop
rs_m.close
set rs_m=nothing
%>
</marquee>
</td>
<td width=40>
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</TD>
</TR>
<!--#include file="bottom.asp"-->
</form>
</TABLE>
</center>
</BODY>
</HTML>
<!--#include file="include/disconn_znx.asp"-->
<!--#include file="include/disconn.asp"-->
<%
dim flash_str
do while not newrs.eof
flash_str = flash_str & "id="&newrs("id")&"&"
flash_str = flash_str & "iddate="&newrs("iddate")&"&"
flash_str = flash_str & "idtype="&newrs("idtype")&"&"
newrs.movenext
loop
dim release_string
release_string = left(flash_str, len(flash_str) - 1)
Response.Write release_string
%>
<%
For i=1 To newrs.recordcount-1
response.write("id="&newrs("id")&"&")
response.write("iddate="&newrs("iddate")&"&")
response.write("idtype="&newrs("idtype"))
response.write("&")
newrs.movenext
Next
response.write("id="&newrs("id")&"&")
response.write("iddate="&newrs("iddate")&"&")
response.write("idtype="&newrs("idtype"))
%>
<%
Const p=6 '每页2条
set rs = server.createobject("adodb.recordset")
sql = "Select * from show order by id Desc"
rs.Open sql,conn,1
i=1
do while not rs.eof
%> <td align="center" height="98">
<a href="show.asp?id=<%=rs("id")%>">
<img src="<%=rs("pic")%>" width="150" height="98" alt="<%=rs("name")%>" /></a>
</td>
<%
if i mod 3 = 0 then
Response.Write("</tr><tr>")
end if
i=i+1
if i>p then exit do
rs.movenext
Loop
rs.close
set rs=nothing
%>