vbscript 编程（急切期待中）

#2

xmuer2007-12-22 00:34

是这个意思么?

#3

jy021638072007-12-22 13:10

我在问问朋友，看是不是这样，先谢了，如果不是，麻烦你再次莅临啊！！！

#4

gdk20062007-12-22 13:21

<a href="Productopen.asp?id=<%=rs("id")%>" ><img src="pic/<%=rs("pic")%>" width="130" height="110" border="0"/></a>

#5

xmuer2007-12-22 14:14

呵呵~

id为自动编号,设为主键;pic_link为图片地址字段.

product.asp
<a href="view_product.asp?id=<%=rs("id")%>" ><img src="<%=rs("pic_link")%>"></a>

view_product.asp
<%
Dim id
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from [product] where id="&id
rs.open sql,conn,3,3
%>
<a href="view_product.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic_link")%>"></a><br>
<%=rs("product_name")%><br>
........
<%
rs.close
set rs=nothing
%>

[[italic] 本帖最后由 xmuer 于 2007-12-22 14:20 编辑 [/italic]]

#6

jy021638072007-12-22 16:12

多谢楼上以及楼上上的英雄·！
请问楼上中间那些省略号什么意思啊？？？

#7

xmuer2007-12-22 16:34

哈~就是你要显示的数据库的内容啊

<%=rs("product_name")%>
<%=rs("product_comment")%>
等等等等
... ...

#8

multiple19022007-12-22 17:59

其他参数。

#9

jy021638072007-12-22 18:49

问题来了：这段程序插在那里？？？
把product_name替换成数据库里面图片路径吗？？？

#10

xmuer2007-12-22 19:47

lz知道<%=rs("xxxxx")%>吧

比如说你的数据库里面有字段是haha
那么你在web页上引用就是用<%=rs("haha")%>
那段代码就是省略号的内容啊,是根据你为商品设定了哪些字段，而你要在页面上体现哪些字段而自我设定的。。。

#11

xmuer2007-12-22 19:57

写详细一点吧。。

id为自动编号,设为主键;pic_link为图片地址字段.

product.asp
<a href="view_product.asp?id=<%=rs("id")%>" ><img src="<%=rs("pic_link")%>"></a>

view_product.asp
<%
Dim id
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from [product] where id="&id
rs.open sql,conn,3,3
%>
<a href="view_product.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic_link")%>"></a><br>
产品图片：<img src="<%=rs("picture_link")%>"><br>
产品名称：<%=rs("product_name")%><br>
产品价格：<%=rs("product_price")%><br>
产品分类：<%=rs("product_class")%><br>
<%
rs.close
set rs=nothing
%>

#12

xmuer2007-12-22 20:05

奇怪不能修改了，直接重发一次～～

id为自动编号,设为主键;pic_link为图片地址字段.

product.asp
set rs=server.createobject("ADODB.recordset")
sql="select * from [product]"
rs.open sql,conn,3,3
do while not rs.eof
<a href="view_product.asp?id=<%=rs("id")%>" ><img src="<%=rs("pic_link")%>"></a><br>
rs.movenext
loop
rs.close
set rs=nothing
以上这个是一列N行的产品显示排布，你可以去看看我发的那个N行N列排布＋分页的代码。。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

view_product.asp
<%
Dim id
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from [product] where id="&id
rs.open sql,conn,3,3
%>
<a href="view_product.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic_link")%>"></a><br>
产品图片：<img src="<%=rs("picture_link")%>"><br>
产品名称：<%=rs("product_name")%><br>
产品价格：<%=rs("product_price")%><br>
产品分类：<%=rs("product_class")%><br>
<%
rs.close
set rs=nothing
%>

[[italic] 本帖最后由 xmuer 于 2007-12-22 21:12 编辑 [/italic]]

#13

jy021638072007-12-22 21:23

看了楼上英雄的回复
  我想我现在不能用言语来形容我对楼上这位好汉的感激以及崇拜之情了·！
   我是非常的仰慕你，拥有精湛的专业知识还如此热心帮助贫下中农，这种精神真是惊天地，泣鬼神，闻者伤心见者落泪！比之尧.舜，也不遑多让！
  如果我是站长你一定是内定的凌驾于站长之上的幕后站长；如果我是版主，你将是版内最纵横驰骋的人；可惜我只是一名不及格会员，所以我只能在此用文字将心底汹涌澎湃的膜拜之情略抒一二，虽然这是远远不够的·！
  也许是小弟愚钝，对于楼上豪杰的心血编程还是不能完全消化，所以再次请君莅临，对以下问题指点一二，鄙人虽惶恐，却也不敢不懂装懂！再次多谢先···


<link href="css/mainword.css" rel="stylesheet" type="text/css">
<link href="css/greenword.css" rel="stylesheet" type="text/css">
<table width="730" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="223"><img src="img/logo-bj.gif" width="223" height="76"></td><td width="477" align="right"><span class="mainword"><a href="zhuce.asp">免费注册</a>|查看购物车|付款方式|联系我们|帮助<br>
      </span>
      <form action="denglu_cl.asp" method="post" name="denglu" id="denglu">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><span class="greenword">用户名:</span>
              <input name="usernich" type="text" id="usernich" size="16"></td><td><span class="greenword">密码:</span>
              <input name="userpwd" type="password" id="userpwd" size="16"></td><td><input name="imageField" type="image" src="img/login_hy.gif" width="125" height="30" border="0"></td></tr>
        </table></form></td></tr>
</table><p class="greenword"> </p>
<link href="css/mainword.css" rel="stylesheet" type="text/css">
<table width="730" border="0" cellpadding="0" cellspacing="0" bgcolor="#00CCFF">
  <tr>
    <td width="118" height="24" align="center" valign="middle" background="img/iconpage1.gif">首页<br>
    </td>
    <td width="118" height="24" align="center" background="img/iconpage1.gif">生日鲜花</td>
    <td width="118" height="24" align="center" background="img/iconpage1.gif">商务花篮</td>
    <td width="118" align="center" background="img/iconpage1.gif">情人节鲜花</td>
    <td width="118" height="24" align="center" background="img/iconpage1.gif">祝福鲜花</td>
    <td width="108" align="center" background="img/iconpage1.gif">绿植花卉</td>
    <td width="61" align="center" background="img/iconpage1.gif">帮助</td>
  </tr>
  <tr>
    <td align="center" valign="middle">搜索区<br> </td>
    <td colspan="4" align="center"><form action="" method="post" name="search" id="search">
      </form></td>
    <td colspan="2" align="center"> </td>
  </tr>
</table>
<br>
<table width="730" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="195" rowspan="3"> <table width="177" border="0" cellpadding="0" cellspacing="0" bordercolor="#FFFF66">
        <tr>
          <td width="177"><font color="#FF0066" size="4" face="华文彩云">鲜花 <br>
            </font><font color="#666666" size="3"> 按花材</font><font color="#FF0066" size="4" face="华文彩云">
            <br>
            </font><font color="#FF66FF" size="3">玫瑰百合扶郎<br>
            康乃馨郁金香绿植<br>
            花篮瓶花特殊花</font><font color="#000000" size="3"><br>
            <br>
            <font color="#666666">按用途</font> <br>
            <font color="#FF66FF"><a href="prolist.asp">生日鲜花</a> 爱情浪漫<br>
            慰问探望祝福

#14

jy021638072007-12-22 21:25

接上楼

慰问探望祝福用花<br>
            婚庆鲜花大型花篮</font><br>
            <br>
            <font color="#666666">按对象</font> <br>
            <font color="#FF66FF">恋人朋友父母<br>
            病人老师客户</font></font></td>
        </tr>
      </table>
      <br> <table width="178" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="178"><font color="#FF3399" size="4" face="华文彩云, 宋体">花卉绿植<br>
            </font><font color="#FF66FF" size="3">君子兰火鹤家居装饰<br>
            凤梨科仙人掌科礼品花卉 </font><font color="#000000" size="3"><br>
            <font color="#666666">观叶植物</font> <br>
            <font color="#FF66FF">小型中型大型观叶植物</font><br>
            <font color="#666666">仿真植物</font><br>
            <font color="#FF66FF">水晶花娟花花艺仿镇树草</font><br>
            <font color="#666666">园艺用品</font><br>
            <font color="#FF66FF">花瓶花盆保鲜剂</font></font></td>
        </tr>
      </table></td>
    <td width="179" height="16" align="center" valign="top" bgcolor="#FF99FF">Birthday
      生日</td>
    <td width="183" align="center" valign="top" bgcolor="#FF99FF">Rommantic 恋情</td>
    <td width="173" align="center" valign="top" bgcolor="#FF99FF">Blessing 祝福</td>
  </tr>
  <tr>
    <td height="95" valign="top"><img src="img/aideshiyan.gif" width="115" height="115" align="middle"></td>
    <td height="95" valign="top"><img src="img/aideyuyan.jpg" width="115" height="115"></td>
    <td height="95" valign="top"><img src="imgyishengyishi.jpg" width="115" height="115"></td>
  </tr>
  <tr>
    <td colspan="3" valign="top"><table width="100%" height="48" border="0" cellpadding="0" cellspacing="0">

        <tr>  <%
While ((Repeat1__numRows <> 0) AND (NOT picture.EOF))
%>
          <td>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img name="aa" src="<%=(picture.Fields.Item("img").Value)%>" alt=""></td>
              </tr>
              <tr>
                <td><%=(picture.Fields.Item("price").Value)%></td>
              </tr>
            </table></td><%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  picture.MoveNext()
Wend
%>
        </tr>

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

<table width="730" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2"><font color="#FF9900">关于我们　|服务说明　|　配送服务　|　支付帮助　|　订单帮助　|　售后服务　|　安全隐私　|　常见问题　|　花店加盟　|　友情链接</font></td>
  </tr>
  <tr>
    <td colspan="2"><font color="#FF9900">友情链接　|　妈咪宝贝育儿网　|　优品婚购网　|　商赢在线　|　行业资料下载　|　中国结婚网　|　赣州结婚网　|　游友网　|　中国饰品网
      | 重庆购物狂论坛 | 中国问法网</font></td>
  </tr>
  <tr>
    <td width="30%" align="right"><br>
      <img src="img/logo-bj.gif" width="223" height="76"> </td>
    <td width="70%" align="right"><br>
      <font color="#FF9900">Copyright (R) 2005-2008 中国鲜花礼品专递网 All right reserved.</font>
      <font color="#FF9900"><br>
      客户服务中心 EMAIL：order#（请将#改为@） <br>
      总部地址：重庆市江北区建新东路建新大厦A12-3 <br>
      法津顾问王晓佳律师 QQ：15027312 <br>
      订购热线：400-658-5857 商赢在线提供网络支持流量统计</font> 　　 <br> <br>
      <font color="#666633">企业工商营业证书 <br>
      企业质量监督局检验证书 <br>
      信息产业部证书备案号<br>
      渝ICP备07006343号 <br>
      企业国税登记证书</font></td>
  </tr>
</table><br>
   以上编程怎样在DREAMWEAR上实现B2C网页效果？？？或有什么问题？

#15

xmuer2007-12-22 23:39

额，一个字！晕

两个字，狂晕~
你是不是要做成这个效果呢？

[url]www.[/url]

#16

jy021638072007-12-23 11:10

对对对对对对！！！！！！！！！
多谢了女英雄···············

#17

xmuer2007-12-23 13:24

哈哈，那就对了~

原理就是我前面发的贴子写的那样，这个站我就是这么写的！具体的嘛，89不离10了，楼主静下心来好好研究一会儿就知道了，一点不难的！
ps：我是英雄

但不是女英雄

#18

xmuer2007-12-23 13:48

看看这个，做个参考！

看楼主这么辛苦，写一段常用的页面布局的简单原理吧！我是用表格布局的，下面的页面分为顶部

中部和底部，中部是产品显示用的，顶部和底部由于不变，所以把两个页面分别定义成函数top()和bottom

（），用<%call top()%>和<%call bottom()%>引用。当然楼主如果要做更复杂的页面排布的话，可以以

次类推喽，这种方法好的地方就是，修改起来比较方便！
中部就是我昨天发的内容了，楼主认真看看，其实很简单的，index.asp产品的排布可以用我发的贴子里面

的内容来实现：[url]http://bbs.bc-cn.net/thread-193852-1-1.html[/url]，
---------------------------------------------------------------------------
*index.asp



<html>
<head>
</head>
<body>
<table>
<tr><td><%call top()%></td></tr>
<tr><td>
set rs=server.createobject("ADODB.recordset")
sql="select * from [product]"
rs.open sql,conn,3,3
do while not rs.eof
<a href="view_product.asp?id=<%=rs("id")%>" ><img src="<%=rs("pic_link")%>"></a><br>
rs.movenext
loop
rs.close
set rs=nothing
</td></tr>
<tr><td><%call bottom()%></td></tr></table></body></html>
-----------------------------------------------------------------------------
*top.asp  //网站顶部内容
<%sub top()%>
<table><tr><td>我的网站，欢迎大家来啊！</td></tr></table>
<%end sub%>
-----------------------------------------------------------------------------
*bottom.asp  //网站底部内容
<%sub bottom()%>
<table><tr><td>我的QQ，123456789！</td></tr></table>
<%end sub%>
-----------------------------------------------------------------------------
*view_product.asp   //查看对应id的产品



<html>
<head>
</head>
<body>
<table>
<tr><td><%call top()%></td></tr>
<tr><td>
<%
Dim id
id=request("id")
set rs=server.createobject("ADODB.recordset")
sql="select * from [product] where id="&id
rs.open sql,conn,3,3
%>
<a href="view_product.asp?id=<%=rs("id")%>"> <img src="<%=rs("pic_link")%>"></a><br>
产品图片：<img src="<%=rs("picture_link")%>"><br>
产品名称：<%=rs("product_name")%><br>
产品价格：<%=rs("product_price")%><br>
产品分类：<%=rs("product_class")%><br>
<%
rs.close
set rs=nothing
%>
</td></tr>
<tr><td><%call bottom()%></td></tr></table></body></html>

[[italic] 本帖最后由 xmuer 于 2007-12-23 13:58 编辑 [/italic]]

#19

jy021638072007-12-24 13:02

除了多谢我还能说什么呢？我会继续努力的···<昨天论坛进不了···>

vbscript 编程 （急切期待中）