asp网站开发--实例(收藏)

原始网页：

<!--#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 zxzfjezxzffs=request("zffs")
zxzfje=request("je")dim rs
dim gsjsdim zhwhdim zxdtmc(5)
dim zxdtid(5)
dim idim hyalmc(6)
dim hyalid(6)dim ozzhmc(6)
dim ozzhid(6)dim jdwdmc(6)
dim jdwdid(6)dim myhzp
dim wyhzpdim sql_m    '顶部照片男
dim sql_w   '顶部照片女dim rs_m
dim rs_wdim wzzwmc  '网站名称dim cgltp '成功率照片'成功率图片
sql="select CGTP from FH_CGTP"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofcgltp=rs("CGTP")rs.movenextif rs.eof then exit do
looprs.close
set rs=nothing'网站名称
sql="select ZWMC from FH_WZMC"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofwzzwmc=rs("ZWMC")rs.movenextif rs.eof then exit do
looprs.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 thenresponse.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 thenresponse.write(wrong)
end if'公司介绍
sql="select ZWJJ from FH_GSJS order by ID desc"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofgsjs=rs("ZWJJ")if gsjs<>"" thenexit doend ifrs.movenextif rs.eof then exit do
looprs.close
set rs=nothinggsjs=left(gsjs,175)'中华文化
sql="select top 1 ZWJJ from FH_WHJS "
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofzhwh=rs("ZWJJ")rs.movenextif rs.eof then exit do
loopzhwh=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 thenresponse.write(wrong)
end ifi=0do while not rs.eofif i= 5 then exit doend ifzxdtmc(i)=rs("ZWMC")zxdtid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'国际婚姻与爱情
sql="select top 7 ID,ZWMC from FH_GJAQ"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifhyalmc(i)=rs("ZWMC")hyalid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'纵横欧洲
sql="select top 7 ID,ZWMC from FH_OZZH"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifozzhmc(i)=rs("ZWMC")ozzhid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'经典问答
sql="select top 7 ID,ZWMC from FH_GJHY"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifjdwdmc(i)=rs("ZWMC")jdwdid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'msn
dim msndz
dim msn_tsql="select MC,NC from FH_MSN"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdim 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.eofwyhzp=rs_w("ZPDZ")%><img src="<%=wyhzp%>" width=130 height=140><%rs_w.movenextif rs_w.eof then exit dolooprs_w.closeset 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="data: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="data: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 ifif zxdtmc(1)<>"" then%>  <tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(2)<>"" then%><tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(3)<>"" then%> <tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(4)<>"" then%><tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(5)<>"" then%> <tr><td valign=middle width="10" align=right><img src="data: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="data: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="data: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="data: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.eofmyhzp=rs_m("ZPDZ")%><img src="<%=myhzp%>" width=130 height=140><%rs_m.movenextif rs_m.eof then exit dolooprs_m.closeset 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"-->

修改后的网页：

<!--#include file="include/conn1.asp"-->
<!--#include file="include/conn_znx.asp"-->
<meta name="keywords" content=" 海外华人征婚,西方男士征婚,白领征婚,红娘婚介，交友，国际爱情， 国际婚姻，欧洲华人，德国华人，大陆女人， 香港交友，香港征婚， 台湾交友， 台湾征婚， 美女征婚， 富人征婚， 老百姓征婚， 恋爱技巧，成功案例， " />
<meta name="description" content=" 凤凰国际婚恋交友网，中国最严肃的征婚交友网，成立十多年来，真诚为中国单身男女和海外华人服务， 获得客户的好评，有极好的信誉。 " /><style type="text/css">
div{
width:1004;border:1px solid white;
text-align:left;
padding: 1px 1px 1px 1px;
margin: 0px;
background-color: white;
}
.div_li{
overflow:hidden;
float:left;
height:180px;
border:1px solid #cfdae8;
width:499px;
margin-left:1px;
margin-top:1px;
}
ul { margin-left:1px; margin-top:1px; width:505px; }
img{
border:none;
}
li{ list-style-type:none;}
.li_img {
float:left;
width:125px;
height:180px;
}
</style><%dim zxzffs
dim zxzfjezxzffs=request("zffs")
zxzfje=request("je")dim rs
dim gsjsdim zhwhdim zxdtmc(5)
dim zxdtid(5)
dim idim hyalmc(6)
dim hyalid(6)dim ozzhmc(6)
dim ozzhid(6)dim jdwdmc(6)
dim jdwdid(6)'jiangpeirong 测试使用
dim jprrs '会员实体数据信息
dim jpruserbean '男用户实体
dim jpruserid '男会员ID
dim jpruserbeanm '女用户实体
dim jpruseridm '女会员ID
dim sp1
dim sp2
dim sp3
'dim jprusername '会员姓名
'dim jprage '会员年龄
'dim jprhigh '会员身高
'dim jprweight '会员体重
'dim jprtel '会员电话
'dim jprdesc '会员自我描述
'dim jpr_men(30) '所有男性信息
'dim jpr_women(30) '所有女性信息dim myhzp
dim wyhzpdim sql_m    '顶部照片男
dim sql_w   '顶部照片女dim rs_m
dim rs_wdim wzzwmc  '网站名称dim cgltp '成功率照片'成功率图片
sql="select CGTP from FH_CGTP"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofcgltp=rs("CGTP")rs.movenextif rs.eof then exit do
looprs.close
set rs=nothing'网站名称
sql="select ZWMC from FH_WZMC"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofwzzwmc=rs("ZWMC")rs.movenextif rs.eof then exit do
looprs.close
set rs=nothing'顶部照片男
'sql_m="select top 30 ZPDZ from FH_HYZP_SH where XB='0' and SYTP='1' and ZPDZ<>null"
sql_m="select top 10 * 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 thenresponse.write(wrong)
end if'顶部照片女
'sql_w="select top 30 ZPDZ from FH_HYZP_SH where XB='1' and SYTP='1' and ZPDZ<>null"
sql_w="select top 10 * 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 thenresponse.write(wrong)
end if'公司介绍
sql="select ZWJJ from FH_GSJS order by ID desc"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofgsjs=rs("ZWJJ")if gsjs<>"" thenexit doend ifrs.movenextif rs.eof then exit do
looprs.close
set rs=nothinggsjs=left(gsjs,175)'中华文化
sql="select top 1 ZWJJ from FH_WHJS "
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofzhwh=rs("ZWJJ")rs.movenextif rs.eof then exit do
loopzhwh=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 thenresponse.write(wrong)
end ifi=0do while not rs.eofif i= 5 then exit doend ifzxdtmc(i)=rs("ZWMC")zxdtid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'国际婚姻与爱情
sql="select top 7 ID,ZWMC from FH_GJAQ"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifhyalmc(i)=rs("ZWMC")hyalid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'纵横欧洲
sql="select top 7 ID,ZWMC from FH_OZZH"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifozzhmc(i)=rs("ZWMC")ozzhid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'经典问答
sql="select top 7 ID,ZWMC from FH_GJHY"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end ifdo while not rs.eofif i= 6 then exit doend ifjdwdmc(i)=rs("ZWMC")jdwdid(i)=rs("ID")i=i+1rs.movenextif rs.eof then exit do
looprs.close
set rs=nothingi=0'msn
dim msndz
dim msn_tsql="select MC,NC from FH_MSN"
set rs=conn.execute(sql)if Err.number<>0 thenresponse.write(wrong)
end if
rs.close
set rs=nothingdim zwnc%>
<%
'**************************************************
'函数名：strLength
'作  用：求字符串长度。汉字算两个字符，英文算一个字符。
'参  数：str  ----要求长度的字符串
'返回值：字符串长度
'**************************************************
Function strLength(str)ON ERROR RESUME NEXTdim WINNT_CHINESEWINNT_CHINESE    = (len("中国")=2)if WINNT_CHINESE thendim l,t,cdim il=len(str)t=lfor i=1 to lc=asc(mid(str,i,1))if c<0 then c=c+65536if c>255 thent=t+1End ifnextstrLength=tElsestrLength=len(str)End ifif err.number<>0 then err.clear
End Function
'**************************************************
'函数名：Strsub
'作  用：截取字符串.
'参  数：str  ----要求长度的字符串
'返回值：字符串长度
'**************************************************
Function Strsub(str,lennum,s)
If Not IsNull(str) Then
Dim p_num,x
Dim i
If strLength(str)<=lennum Then
Strsub=str
Else
p_num=0
x=0
Do While Not p_num > lennum-2
x=x+1
If Asc(Mid(str,x,1))<0 Then
p_num=Int(p_num) + 2
Else
p_num=Int(p_num) + 1
End If
Strsub=Left(Trim(str),x)&s '截取后定义超出部分内容的显示方式
Loop
End If
Else
Strsub="Null"
End If
End Function
%>
<!--<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8">-->
<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  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><!--Test Start--><div><%do while not rs_w.eofwyhzp=rs_w("ZPDZ")jpruserid=rs_w("YHID")jprsql="select * from FH_HYZC where [ID]=" & jpruseridset jpruserbean=conn.execute(jprsql)if Err.number<>0 thenresponse.write(wrong)end if'jprusername = jpruserbean("NM")%> <li class="div_li"><img class="li_img" src="<%=wyhzp%>" alt="<%=jpruserbean("NM")%>" /><font color="red">会员ID:<%=rs_w("YHID")%></font>                                  <a href="<%=rs_w("SZP1")%>"><img src="http://www.2ai2.com/images/ico1.gif"/></a><a href="<%=rs_w("SZP2")%>"><img src="http://www.2ai2.com/images/ico2.gif"/></a><a href="<%=rs_w("SZP3")%>"><img src="http://www.2ai2.com/images/ico3.gif"/></a><br/>我的姓名:<img src="http://www.2ai2.com/adminlooe/editor/UploadFile/20071025233210578.gif"/><%=jpruserbean("NM")%>,母语:<%=jpruserbean("MY")%>,体重:<%=jpruserbean("TZ")%>Kg,身高<%=jpruserbean("SG")%>cm.简要描述:<%=Strsub("" & jpruserbean("GXSM") & "",100,"...")%></b><br/><b>我的联系方式:手机(<%=jpruserbean("SJHM")%>),座机(<%=jpruserbean("DHHM")%>),Email(<%=jpruserbean("YHMSN")%>|<%=jpruserbean("MSN")%>)</b></li><%jpruserbean.closeset jpruserbean=nothingrs_w.movenextif rs_w.eof then exit dolooprs_w.closeset rs_w=nothing%></div><!--Test End--></td><td width=40></td></tr></table></TD></TR><TR><TD  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="data: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="data: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 ifif zxdtmc(1)<>"" then%>  <tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(2)<>"" then%><tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(3)<>"" then%> <tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(4)<>"" then%><tr><td valign=middle width="10" align=right><img src="data: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="data: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 ifif zxdtmc(5)<>"" then%> <tr><td valign=middle width="10" align=right><img src="data: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="data: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="data: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="data: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>
<!--Test Start--><div><%do while not rs_m.eofmyhzp=rs_m("ZPDZ")sp1=rs_m("SZP1")sp2=rs_m("SZP2")sp3=rs_m("SZP3")'response.write(myhzp)'response.write(rs_m("YHID"))'jpruseridm=jprsql="select * from FH_HYZC where [ID]=" & rs_m("YHID") set jpruserbeanm=conn.execute(jprsql)if Err.number<>0 thenresponse.write(wrong)end if'jprusername = jpruserbean("NM")%> <li class="div_li"><img class="li_img" src="<%=myhzp%>" alt="<%=jpruserbeanm("NM")%>" /><font color="red">会员ID:<%=rs_m("YHID")%></font>                                  <a href="<%=sp1%>"><img src="http://www.2ai2.com/images/ico1.gif"/></a><a href="<%=sp2%>"><img src="http://www.2ai2.com/images/ico2.gif"/></a><a href="<%=sp3%>"><img src="http://www.2ai2.com/images/ico3.gif"/></a><br/>我的姓名:<img src="http://www.2ai2.com/adminlooe/editor/UploadFile/20071025233210578.gif"/><%=jpruserbeanm("NM")%>,母语:<%=jpruserbeanm("MY")%>,体重:<%=jpruserbeanm("TZ")%>Kg,身高<%=jpruserbeanm("SG")%>cm.简要描述:<%=Strsub("" & jpruserbeanm("GXSM") & "",100,"...")%></b><br/><b>我的联系方式:手机(<%=jpruserbeanm("SJHM")%>),座机(<%=jpruserbeanm("DHHM")%>),Email(<%=jpruserbeanm("YHMSN")%>|<%=jpruserbeanm("MSN")%>)</b></li><%jpruserbeanm.closeset jpruserbeanm=nothingrs_m.movenextif rs_m.eof then exit dolooprs_m.closeset rs_m=nothing%></div><!--Test End--></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"-->

asp网站开发--实例(收藏)相关推荐

php实训ppt,PHP动态网站开发实例教程教学全套课件(刘万辉)配套资料任务3：运用目录与文件实现投票统计.ppt...
PHP动态网站开发实例教程教学全套课件(刘万辉)配套资料任务3:运用目录与文件实现投票统计.ppt (18页) 本资源提供全文预览,点击全文预览即可全文预览,如果喜欢文档就下载吧,查找使用更方便哦! ...
html网站开发实例教程,网页设计与开发——HTML、CSS、JavaScript实例教程
网页设计与开发--HTML.CSS.JavaScript实例教程[编辑] 作者:郑娅峰主编出版社:清华大学出版社出版时间:2009-7-1 版次:1 页数:309 字数:509000 ...
用ASP技术进行动态WAP网站开发实例
第一节:WAP的潜能这些日子,我们常听到WAP技术,一种手机上网的技术.从技术上讲,移动电话不可能和PC来竞争,移动电话的屏幕只能容下很少的字符,它的带宽也是很受限制,而且输入也很笨拙.那我为什么还 ...
aspnet网站开发实例_给自己开发一个网站，这是我的方法。
个人建站建议先建一个个人博客,因为门槛相对较低,简单容易上手,尝试一下成功建站的感觉,其实还挺有成就感的!! 方法有很多种:如利用博客系统来搭建,如WordPress.emblog.zblog.typ ...
python网站开发实例 flask_python-flask框架web服务接口开发实例
一.flask flask是一个python编写的轻量级框架,可以使用它实现一个网站或者web服务.本文就用flask来开发一个接口. 二:安装框架 flask需要先安装再引用.pip install ...
python网站开发实例-【9】Python接口开发：flask Demo实例
举例1,返回当前时间接口 '''初始化:所有的Flask都必须创建程序实例, web服务器使用wsgi协议,把客户端所有的请求都转发给这个程序实例程序实例是Flask的对象,一般情况下用如下方法实例 ...
python网站开发实例视频_Python实战-让在职教育类网站的视频全自动播放
阅读本文需要 5.8 分钟.文章同步发于微信公众号 somenzz,欢迎订阅,使用Python打造效率工具. 时间是公平的,因为每个人的一分钟都是 60 秒:时间又是最不公平的,有人一年的收获顶得上别 ...
aspnet网站开发实例_新手用户如何根据网站类型或应用场景选择云服务器？
新手服务器如何选择?一是云服务器配置CPU.内存及宽带的选择,二是云服务器实例规格的选择,如果您没有专业的人员指导,可以参考以下根据网站类型或应用场景选择阿里云服务器的方法来选择自己的阿里云服务器配置 ...
基于angularjs的单页面实例_angularjs网站开发实例
客户端 JavaScript 的 5 个弊端译注:原来的标题是:"我们为啥不用AngularJS:-",后来作者觉得不妥就改掉了,因为AngularJS是通常适用于单页面程序框架 ...

asp网站开发--实例(收藏)

asp网站开发--实例(收藏)相关推荐

最新文章

热门文章