你好!可以帮我看看这个源码吗?
设置为会员登录后才可以查看产品信息!!!
谢谢啦······
<script language="JavaScript">
function hydl1(){
if (!document.hy_dl1.zh.value.match(/^[A-Za-z]w{0,19}$/)) {
alert("帐号不正确!");
document.hy_dl1.zh.focus();
return false;
}
if (!document.hy_dl1.mm.value.match(/^w{3,20}$/)) {
alert("密码不正确!");
document.hy_dl1.mm.focus();
return false;
}
if (!document.hy_dl1.yzm.value.match(/^w{4}$/)) {
alert("验证码不正确!");
document.hy_dl1.yzm.focus();
return false;
}
return true;
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" align="center" valign="bottom" background="ima/glk_s.jpg">
<table width="85%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><font color="#FFFFFF"><strong>会员登陆</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td background="ima/glk_zo.jpg">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
if session("hy")<>"yes" then
%>
<tr>
<td align="center">
<form action="hy_dl_yz.asp" method="post" name="hy_dl1" id="hy_dl1" onSubmit="return hydl1();">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="32%" align="right" valign="bottom">帐 号:</td>
<td width="68%"><input name="zh" type="text" class="bdxbk" id="zh2" size="12"></td>
</tr>
<tr>
<td align="right" valign="bottom">密 码:</td>
<td><input name="mm" type="password" class="bdxbk" id="mm2" size="12"></td>
</tr>
<tr>
<td align="right" valign="bottom">验证码:</td>
<td><input name="yzm" type="text" class="bdxbk" id="yzm2" size="4">
<font face="Arial Black" size="2" color="#FF6600">
<%
if session("hy_dl_yz")="" then
session("hy_dl_yz")=zmyzm()
end if
response.write session("hy_dl_yz")
%>
</font></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="ima/xx1.gif"><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"> <input name="imageField2" type="image" src="ima/dd_al.gif" align="middle" width="49" height="22" border="0">
</td>
<td valign="bottom"> <a href="hy_qm1.asp">忘记密码?</a>
<a href="hy_zc.asp">注册</a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
</table>
</form></td>
</tr>
<%
else
lr_hy_jf001="select jf from hy where zh='"&session("hy_zh")&"'"
set rs_hy_jf001=conn.execute(lr_hy_jf001)
%>
<tr>
<td align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td class="zjj1">亲爱的<strong> <font color="#FF6600">
<% =session("hy_zh") %>
</font></strong>您好!<br>
您的购物车有<strong><font color="#FF6600"><% response.write ubound(split(session("sp"),","))+1 %></font></strong>
件商品!<br>
您的所得积分是<strong><font color="#FF6600"><% =rs_hy_jf001("jf") %>
</font></strong>点</td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="hy___sy.asp">我的会员管理</a></td>
<td><a href="hy___tc.asp">安全退出>></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
</table></td>
</tr>
<%
end if
%>
</table> </td>
</tr>
<tr>
<td><img src="ima/glk_x.jpg" width="190" height="12"></td>
</tr>
</table>
这个是登录框
<%
'=====================================================================
' 程序开发:E天科技有限公司
' 当前版本:ED-SC v2.1免费版
' 作者:夜雨天
' 技术咨询QQ:53107925
' 官方服务网站:www.
'=====================================================================
' Copyright 2008-2020 EDayNet - All Rights Reserved.
' is a trademark of EDayNet
'=====================================================================
%>
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><% =rs_xtpz("mc") %>-<% =rs_xtpz("bt") %></title>
<meta name="keywords" content="<% =rs_xtpz("gjz") %>">
<meta name="description" content="<% =rs_xtpz("mc") %>-<% =rs_xtpz("ms") %>"><link href="inc/ys.css" rel="stylesheet" type="text/css">
<%
set rs_zxsp=server.createobject("adodb.recordset")
lr_zxsp="select top 12 bh,mc,scj,jg,tp1 from sp where xpf=true order by id desc"
rs_zxsp.open lr_zxsp,conn,1,1,1
set rs_rmsp=server.createobject("adodb.recordset")
lr_rmsp="select top 12 bh,mc,scj,jg,tp1 from sp where rmf=true order by id desc"
rs_rmsp.open lr_rmsp,conn,1,1,1
set rs_xw=server.createobject("adodb.recordset")
lr_xw="select top 7 id,zt,tjf from xw order by plwz asc"
rs_xw.open lr_xw,conn,1,1,1
set rs_gg2=server.createobject("adodb.recordset")
lr_gg2="select top 2 tp,wz from gg where ggwz=2 order by plwz asc"
rs_gg2.open lr_gg2,conn,1,1,1
%>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFE8E8">
<!--#include file="inc/yt_jb.asp" -->
</td>
</tr>
<tr>
<td bgcolor="#FFE8E8"><img src="ima/spacer.gif" width="1" height="3"></td>
</tr>
<tr>
<td align="center"><!--#include file="inc/DH.asp" --></td>
</tr>
<tr>
<td align="center">
<!--#include file="inc/ss.asp" --></td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="8"></td>
</tr>
<tr>
<td align="center"><table width="900" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="190" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="inc/glk_hydl.asp" --></td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="6"></td>
</tr>
<tr>
<td> <!--#include file="inc/glk_spfl.asp" --> </td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="6"></td>
</tr>
<tr>
<td> <!--#include file="inc/glk_fhtz.asp" --> </td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="6"></td>
</tr>
<tr>
<td> <!--#include file="inc/glk_kfqq.asp" --> </td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="6"></td>
</tr>
<tr>
<td> <!--#include file="inc/glk_kfww.asp" --> </td>
</tr>
<tr>
<td><img src="ima/spacer.gif" width="1" height="6"></td>
</tr>
<tr>
<td>
<!--#include file="inc/glk_yqlj.asp" -->
</td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="10"> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="700" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<!--#include file="inc/tpbh.asp" -->
</td>
<td width="8"><img src="ima/spacer.gif" width="1" height="1"></td>
<td width="290" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" align="center" valign="bottom" background="ima/xwk_s.jpg">
<table width="85%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><font color="#FFFFFF"><strong>最新活动</strong></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" background="ima/xwk_zo.jpg">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
while not rs_gg2.eof
%>
<tr>
<td><a href="http://<% =rs_gg2("wz") %>/" target="_blank"><img src="admins/<% =rs_gg2("tp") %>" width="100" height="60" border="0"></a></td>
</tr>
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
<%
rs_gg2.movenext
wend
call gbdx(rs_gg2)
%>
</table>
</td>
<td width="10"><img src="../ima/spacer.gif" width="1" height="1"></td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="1">
<%
while not rs_xw.eof
if rs_xw("tjf") then
ztys="#FF6600"
else
ztys="#666666"
end if
%>
<tr>
<td><font color="<% =ztys %>">■</font>
<a href="xwzx.asp?id=<% =rs_xw("id") %>"><font color="<% =ztys %>"><% =gshwz(rs_xw("zt"),11,10) %></font></a></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="ima/xx1.gif"><img src="ima/spacer.gif" width="1" height="1"></td>
</tr>
</table></td>
</tr>
<%
rs_xw.movenext
wend
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="../ima/spacer.gif" width="1" height="5"></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="ima/xwk_x.jpg" width="290" height="10"></td>
</tr>
</table></td>
</tr>
</table> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" align="center" valign="bottom" background="ima/lmbt_bg.jpg">
<table width="95%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="19%" align="center" class="z14"><strong><font color="#FFFFFF">最新商品</font></strong></td>
<td width="81%" align="right" valign="bottom"><a href="sp.asp?gm=1">更多>></a></td>
</tr>
</table></td>
</tr>
<tr>
<td background="ima/lm_x_bg.jpg"> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
if rs_zxsp.recordcount<>0 then
%>
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<%
i=0
while not rs_zxsp.eof
if i mod 4=0 then
response.write "<tr valign=top>"
end if
%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td align="center"><table width="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><a href="sp_xx.asp?bh=<% =rs_zxsp("bh") %>"><img src="admins/<% =rs_zxsp("tp1") %>" alt="<% =rs_zxsp("mc") %>" width="150" height="150" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" class="zjj1"><a href="sp_xx.asp?bh=<% =rs_zxsp("bh") %>">
<% =rs_zxsp("mc") %>
</a><br>
编号:
<% =rs_zxsp("bh") %>
<br>
市场价:<span class="scx"><font color="#006699"><% =formatnumber(rs_zxsp("scj"),2) %>元</font></span>
<br>
会员价 :<font color="#FF6600"><%
if session("hy")="yes" then
response.write formatnumber(rs_zxsp("jg"),2)&"元"
else
response.write "登陆才可见"
end if
%></font></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table></td>
<%
if i mod 4=3 then
response.write "</tr>"
end if
i=i+1
rs_zxsp.movenext
wend
%>
</table></td>
</tr>
<%
else
%>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="50">
<tr>
<td>正在更新中...</td>
</tr>
</table></td>
</tr>
<%
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="31" align="center" valign="bottom" background="ima/lmbt_bg.jpg">
<table width="95%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td width="19%" align="center" class="z14"><strong><font color="#FFFFFF">热卖商品</font></strong></td>
<td width="81%" align="right" valign="bottom"><a href="sp.asp?gm=0">更多>></a></td>
</tr>
</table></td>
</tr>
<tr>
<td background="ima/lm_x_bg.jpg"> </td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
if rs_rmsp.recordcount<>0 then
%>
<tr>
<td><table width="700" border="0" cellspacing="0" cellpadding="0">
<%
i=0
while not rs_rmsp.eof
if i mod 4=0 then
response.write "<tr valign=top>"
end if
%>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td align="center"><table width="100" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><a href="sp_xx.asp?bh=<% =rs_rmsp("bh") %>"><img src="admins/<% =rs_rmsp("tp1") %>" alt="<% =rs_rmsp("mc") %>" width="150" height="150" border="0"></a></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" class="zjj1"><a href="sp_xx.asp?bh=<% =rs_rmsp("bh") %>">
<% =rs_rmsp("mc") %>
</a><br>
编号:
<% =rs_rmsp("bh") %>
<br>
市场价:<span class="scx"><font color="#006699"><% =formatnumber(rs_rmsp("scj"),2) %>元</font></span>
<br>
会员价:<font color="#FF6600"><%
if session("hy")="yes" then
response.write formatnumber(rs_rmsp("jg"),2)&"元"
else
response.write "登陆才可见"
end if
%></font></td>
</tr>
<tr>
<td align="center"> </td>
</tr>
</table></td>
<%
if i mod 4=3 then
response.write "</tr>"
end if
i=i+1
rs_rmsp.movenext
wend
%>
</table></td>
</tr>
<%
else
%>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="50">
<tr>
<td>正在更新中...</td>
</tr>
</table></td>
</tr>
<%
end if
%>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center"> <!--#include file="inc/yw.asp" --> </td>
</tr>
<tr>
<td>
<!--#include file="inc/yw_jb.asp" -->
</td>
</tr>
</table>
</body>
</html>
这个是首页源码
··我想人家看产品信息都要登录之后才可以查看
要怎么修改啊···麻烦啦···谢谢你,,