表單代碼
<!DOCTYPE HTML>
<html>
<head>
<meta charset="utf-8">
<title>送出表單</title>
</head>
</head>
<body style="background:#fff">
<form action="add.asp" method="post">
<div class="input"><label>送出表單</label></div>
<div class="input">
<label><b>稿件名稱</b></label>
<input type="text" name="attach" value="付款人資訊">
</div>
<div class="input">
<label><b>打賞單号</b></label>
<input type="text" name="out_trade_no" value="555556666688888">
</div>
<div class="input">
<label><b>客戶資訊</b>(打賞人姓名+電話)</label>
<input type="text" name="body" value="姓名">
</div>
<div class="input">
<label><b>打賞金額</b>(機關:元人民币)</label>
<input type="text" name="total_fee" value="1">
<p><font color="#FF00000">★</font><font color="#FF00000">感謝您的打賞!</font></p>
</div>
<div class="submit"><input type="submit" value="送出表單"></div>
</form>
</body>
</html>
資料處理代碼
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<hr/>
<%
'FormatNumber(request("total_fee")*0.01,2,-1) 是把金額轉化成分
'*100是把分轉化成元
%>
金額:<%=FormatNumber(request("total_fee")*0.01,2,-1)*100%>
<hr/>
<%
dim datapath,Connstr,Conn
datapath="data/db2.mdb"
on error resume next
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(datapath)
Set Conn=server.createobject("adodb.connection")
'打開資料庫連接配接
Conn.open Connstr
dim Rs,SQL
'查詢添加資料的單号是否存在,如果存在則不添加
SQL = "select * from [Order_Info] where out_trade_no='"&request("out_trade_no")&"'"
Set Rs = Server.CreateObject("Adodb.RecordSet")
'打開資料庫表
Rs.Open SQL,Conn,1,3
if Rs.eof then
Rs.Addnew
Rs("openid") = request("openid")
Rs("is_subscribe") = request("is_subscribe")
Rs("trade_type") = request("trade_type")
Rs("bank_type") = request("bank_type")
Rs("total_fee") = FormatNumber(request("total_fee")*0.01,2,-1)
Rs("transaction_id") = request("transaction_id")
Rs("out_trade_no") = request("out_trade_no")
Rs("time_end") = request("time_end")
Rs("attach") = request("attach")
Rs("AddTime") = Now()
Rs.Update
Response.Write "資料添加成功<br/>"
else
Response.Write Rs.eof&"資料已存在不能重複添加<br/>"
end if
Rs.Close
%>