各位大侠:
有个问题不会搞,有谁肯帮帮我啊?
以下是一个反馈页面的代码:
<%
'本函数每次调用都会向当前目录下的“成功订单.txt”文件写入一行记录
'这个文件是个文本文件,可以用记事本打开,如果您使用的是数据库如Access,请适当另做处理
Function WriteLineToFile(order_txt)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.MapPath(".\成功订单.txt"), 8, True)
f.WriteLine order_txt
f.Close()
set f=nothing
set fso=nothing
End Function
%>

<%
'接收回调的参数，短信支付成功后返回的参数包括
'------------------------------------------------------------------
ButtonId = Request("buttonid") '短信按钮id
CardNumber = Request("cardnumber") '声讯点卡号码
CardFeeCode = Request("cardfeecode") '本次声讯支付计费(以分为单位)
bizPWD = Request("bizpwd") '交易认证密钥
bizSN = Request("bizsn") '交易序列号
SubUnionId = Request("subunionid") '子联盟ID
'------------------------------------------------------------------

'检测回调请求的合法性，如果不是由vsend服务器发出就停止执行
'调试的时候可以注释以下4行代码，调试完毕后应该马上恢复
'if (Request("REMOTE_ADDR")<>"xxx.xxx.xxx.xxx") or (bizPWD<>MyPwd) then
' Response.Write "非法请求"
' Response.End
'end if

'将订单信息写入文件
WriteLineToFile(CStr(now() & vbtab & cardfeecode & vbtab & BizSn & vbtab & SubUnionId & vbtab & CardNumber))

%>

现在我想做的就是如何把反馈信息写到一个"成功定单.mdb"的文件里而不是它提供的"成功定单.txt",不知谁能告诉我怎么做啊?谢谢!