[求助]怎样才能把两个网页连起来，错在那里!急 - ASP技术论坛

问题点数：0 回复次数：12

[求助]怎样才能把两个网页连起来，错在那里!急

[求助]大家帮帮我，怎样才能把两个网页连起来，错在那里!
<HTML>
<HEAD>
<TITLE>shopping</TITLE>
</HEAD>
<BODY>
<%
Sub goods_init
name(0)="方便面"
price(0)=1
name(1)="火腿肠"
price(1)=2
name(2)="矿泉水"
price(2)=2
name(3)="雀巢咖啡"
price(3)=50
name(4)="牛奶"
price(4)=20
name(5)="毛巾"
price(5)=5
End Sub
Dim name(5)
Dim price(5)
goods_init
%>
<Form action="server.asp" method="post" name="list">
<table border=1 width=60% align=center>
<font size=7 color=green>
<caption>清单</caption></font>
<tr>
<td width=40% align=center>商品名称</td>
<td width=20% align=center>单价</td>
<td width=40% align=center>订购数量</td>
</tr>
<tr>
<% For i=0 To 5%><tr>
<td width=30% align=center><%=name(i)%></td>
<td width=30% align=center><%=price(i)%></td>
<td width=30% align=center>
<input type=text size=10 maxlength=5 name=num<%=i%> value=0>
</td>
</tr>
<%next%>
</TABLE>
<br>
<p align=center>
<input type=button value=提交 onclick=check()>
<input type=reset value=重填 onclick=reset()>
</p>
</form>
</BODY>
</HTML>

<%@ language=VBScript%>
<%
Sub goods_init
name(0)="方便面":price(0)=1:name(1)="火腿肠":price(1)=2:name(2)="矿泉水":price(2)=2:name(3)="雀巢咖啡":price(3)=50:name(4)="牛奶":price(4)=20:name(5)="毛巾":price(5)=5
End Sub
Dim name(5)
Dim price(5)
goods_init
Dim num(5)
num(0)=CInt(request.Form("num0")):num(1)=CInt(request.Form("num1")): num(2)=CInt(request.Form("num2")):num(3)=CInt(request.Form("num3")):
num(4)=Cint(request.Form("num4")):num(5)=CInt(request.Form("num5"))
sum=0
For i=0 To 5 Step 1
sum=sum+num(i)*price(i)
Next
Dim bill
bill=sum
If bill>1000 Then
bill=Round(bill*0.7,2)
Else
If bill>500 Then
bill=Round(bill*0.8,2)
If bill>100 Then
bill=Round(bill*0.9,2)
End If
End if
End if
%>
<HTML>
<HEAD>
<TITLE> 账单</TITLE>
</HEAD>
<BODY>
<table border=1 width=60% align=center>
<tr>
<td width=40% align=center>商品名称</td>
<td width=20% align=center>单价</td>
<td width=40% align=center>订购数量</td>
</tr>
<%For i=0 To 5%></tr>
<td width=30% align=center><%=name(i)%></td>
<td width=30% align=center><%=price(i)%></td>
<td width=30% align=center><%=num(i)%></td>
</tr>
<%next%>
</table>
<br>
<p align=center>
you consume sum $<%=sum%><br>
at a discount $<%=bill%></p>
</BODY>
</HTML>

搜索更多相关主题的帖子: 网页　

第 2 楼

得分:0

你想要怎么联系啊?
一个页面是写入数据库的客户端页面
一个页面是从数据库读出数据的页面
中间是一个数据库
如果想联系就按照某个id来联系
不知道有没有理解对楼主的意思.

第 3 楼

得分:0

哦，但我想用它和html这样，把这个shopping入输的数字显示在server里面然后记算，这样不能直接传过去的吗？

人真的很奇怪，以前看书时老喜欢看表，希望时间快点过；现在看书总是不敢看表，但时间却很快过！

第 4 楼

得分:0

吾该再帮下忙啦？！

人真的很奇怪，以前看书时老喜欢看表，希望时间快点过；现在看书总是不敢看表，但时间却很快过！

第 5 楼

得分:0

楼主是想做在线购物的结算功能？楼主这段代码看着是像在这么写。

第 6 楼

得分:0

个人认为应该写3个页面来做。
页面一:DataBase.asp
<%@ language=VBScript%>
<%
Dim ShopAry()'声明数组用来存储商品对象
'声明商品类
Class Commodities
Private mComdName'商品名称
Private mPrice'商品价格
'属性过程
Public Property Let ComdName(vData)
mComdName=vData
End Property
Public Propery Get ComdName()
ComdName=mComdName
End Property
Public Propery Let Price(vData)
mPrice=vData
End Property
Public Propery Get Price()
Price=mPrice
End Property
End Class
'初始化商品数组的过程
Sub goods_init
ReDim ShopAry(5)'定义5个商品
Set ShopAry(0)=New Commodities'创建第一个新的商品
ShopAry(0).ComdName="方便面"'商品名称为方便面
ShopAry(0).Price=1'价格为1
'以下代码以此类推
Set ShopAry(1)=New Commodities
ShopAry(1).ComdName="火腿肠"
ShopAry(1).Price=2
Set ShopAry(2)=New Commodities
ShopAry(2).ComdName="矿泉水"
ShopAry(2).Price=2
Set ShopAry(3)=New Commodities
ShopAry(3).ComdName="雀巢咖啡"
ShopAry(3).Price=50
Set ShopAry(4)=New Commodities
ShopAry(4).ComdName="牛奶"
ShopAry(4).Price=20
Set ShopAry(5)=New Commodities
ShopAry(5).ComdName="毛巾"
ShopAry(5).Price=5
End Sub
goods_init'调用过程
%>

[此贴子已经被作者于2007-5-1 18:02:00编辑过]

第 7 楼

得分:0

<HTML>
<HEAD>
<TITLE>shopping</TITLE>


<script language="javascript">
function check()
{
//汇总购买商品的数量
for(var i=0;i<this.ShopNum.length;i++)
{
document.list.NumStr.value+=this.ShopNum[i].value+"|";
}
//汇总后的字符串形势"0|1|2|3|20|"
document.list.submit();//提交表单。
}
</script>
</HEAD>
<BODY>
<table border=1 width=60% align=center>
<font size=7 color=green>
<caption>清单</caption></font>
<tr>
<td width=40% align=center>商品名称</td>
<td width=20% align=center>单价</td>
<td width=40% align=center>订购数量</td>
</tr>
<tr>

<% For i=0 To 5%><tr>
<td width=30% align=center><%=ShopAry(i).ComdName%></td>
<td width=30% align=center><%=ShopAry(i).Name%></td>
<td width=30% align=center>
<input type=text size=10 maxlength=5 name=ShopNum value=0>
</td>
</tr>
<%next%>
</TABLE>
<br>
<p align=center>
<input type=button value=提交 onclick=check()>
<input type=button value=重填 onclick=reset()>
</p>
<Form action="server.asp" method="post" name="list">
<input type="hidden" name="NumStr" >
</form>
</BODY>
</HTML>
第二个页面

[此贴子已经被作者于2007-5-1 18:05:45编辑过]

第 8 楼

得分:0

<HTML>
<HEAD>
<TITLE> 账单</TITLE>

<%
Dim NumAry,NumStr,SumPrice,i
NumStr=Request.Form("NumStr")'获得数量字符串"0|1|20|15|"
NumStr=Mid(NumStr,1,Len(NumStr)-1)'规范字符串,以便后面还原为数组"0|1|20|15"
NumAry=Split(NumStr,"|")'将数量字符串还原为数组
SumPrice=0'初始化统计总价变量
'总价统计循环
For i=0 To UBound(NumAry)
Dim PriceVar'声明单个商品的总价格变量
PriceVar=ShopAry(i).Price*CInt(NumAry(i))'计算单个商品的总价格,单价乘以数量等于总价
SumPrice=SumPrice+PriceVar'价格累加
Next
%>
</HEAD>
<BODY>
<table border=1 width=60% align=center>
<tr>
<td width=40% align=center>商品名称</td>
<td width=20% align=center>单价</td>
<td width=40% align=center>订购数量</td>
</tr>
<%For i=0 To 5%></tr>
<td width=30% align=center><%=ShopAry(i).ComdName%></td>
<td width=30% align=center><%=ShopAry(i).Price%></td>
<td width=30% align=center><%=NumAry(i)%></td>
</tr>
<%next%>
</table>
<br>
<p align=center>
购买商品的总价格<%=SumPrice%><br>
</p>
</BODY>
</HTML>
第三个页面

[此贴子已经被作者于2007-5-1 18:10:36编辑过]

第 9 楼

得分:0

版主，我想问的是我上面的那两个页面为做连不起来呢？急啊！！我刚学不知道！
您的那个方法很好，我想不到先！

人真的很奇怪，以前看书时老喜欢看表，希望时间快点过；现在看书总是不敢看表，但时间却很快过！

第 10 楼

得分:0

两个合并成一个文件？