Asp另一种增加数据的方式-CFANZ编程社区

表单代码

<!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
%>