check.aspx
来自「asp做的新闻系统」· ASPX 代码 · 共 113 行
ASPX
113 行
<% @ Import NameSpace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.oledb" %>
<script language="VB" runat=server>
Sub prebuy(Sender As Object,e As EventArgs)
'设定定单文件
Dim path As String=Server.MapPath("orderlist.txt")
Dim strW As StreamWriter
Dim OrderList As ArrayList
Dim qtyList As ArrayList
Dim productId As Integer
Dim product As DataRow
Dim i As Integer
Dim ftotal,dec as double
Dim name,qty,price,total As String
'设定打9折
dec=0.9
'建立StreamWriter对象
strW=New StreamWriter(path,true)
'写入订货人信息
strW.WriteLine("订货人:" & user.text)
StrW.WriteLine("联系地址:" & addr.text)
StrW.WriteLine("联系电话:" & phone.text)
StrW.WriteLine("订货日期:" & Now)
StrW.WriteLine("订货要求:" & info.text)
strW.WriteLine("----------------------------------------")
StrW.WriteLine("商品名称 数 量 单 价 总 价" )
'生成定单内容
OrderList=Session("orderList")
qtyList=Session("qtyList")
for i=0 to OrderList.count-1
productId=OrderList(i)
product=GetProduct(productId)
name=String.Format("{0,-9:G}",product("productname"))
qty=String.Format("{0,-10:G}",qtylist(i))
price=String.Format("{0,-9:c}",product("price"))
total=String.Format("{0:c}",qtylist(i)*product("price"))
ftotal+=qtylist(i)*product("price")
StrW.WriteLine(name & qty & price & total)
Next
strW.WriteLine("----------------------------------------")
'统计最后需要支付金额
strW.WriteLine("总计:" & String.Format("{0:c}",ftotal))
strW.WriteLine("打折:" & 0.9)
Strw.writeLine("支付:" & String.Format("{0:c}",ftotal*dec))
StrW.WriteLine("")
strW.Close()
userinfo.visible=false
'输出完成信息
Response.Write("提交定单成功!")
End Sub
Function GetProduct(productID As Integer) As DataRow
Dim myConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("product.mdb")
Dim myConnection As New OleDbConnection(myConnString)
Dim product As New DataSet()
myConnection.Open()
Dim Adapter1 as OleDbDataAdapter
Adapter1=new OleDbDataAdapter("Select * from Product where productID=" & productID, myConnection)
Adapter1.Fill(product, "product")
'返回该商品对应的数据记录
GetProduct=product.Tables(0).Rows(0)
myConnection.Close()
End function
</script>
<html>
<head>
<title>生成订单</title>
</head>
<body>
<Form runat="Server">
<asp:panel id="userinfo" BorderStyle="Groove" runat="Server" width=40% backcolor="lightGray">
<table>
<tr>
<td>订货人：</td>
<td><asp:Textbox id=user Runat="Server"/>
<asp:RequiredFieldValidator id="valid1"
ControlToValidate="user" Runat="server">
(必要栏)
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>送货地址：</td>
<td><asp:textbox id=addr Runat="Server"/>
<asp:RequiredFieldValidator id="valid2"
ControlToValidate="addr" Runat="server">
(必要栏)
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>联系电话:</td>
<td>
<asp:textbox id=phone Runat="Server"/>
<asp:RequiredFieldValidator id="valid3"
ControlToValidate="phone" Runat="server">
(必要栏)
</asp:RequiredFieldValidator>
</td>
</tr>
<tr>
<td>其他要求:</td>
<td><asp:textBox textmode="multiline" id=info runat="server"/></td>
</tr>
<tr>
<td colspan=2 align=center>
<asp:button onclick="prebuy" id="button1" text="定购" runat="Server"/>
</td></tr>
</table>
</asp:panel>
</Form>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?