addfinance.asp

ASP+mssql 财务系统 【使用说明】 在Windows系统的管理工具中

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
Dim clother,furniture,automobile,house,other,Rs,TxtSql
'进行安全性监测，看数据来源是否是本服务器页面
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.write "<b>请不要从非本服务器的页面提交信息</b>"
response.redirect "default.asp"
end if
%>

<% 

cash=request.Form("cash")
check=request.Form("check")
accrual=request.Form("accrual")
bank=request.Form("bank")
arrearage=request.Form("arrearage")
response.Write(cash)

Set Rs=Server.CreateObject("ADODB.Recordset")
txtsql="delete from 金融资产表"
conn.execute(txtsql)
txtsql="insert into 金融资产表 values("+cash+","+check+","+accrual+","+bank+","+arrearage+")"
conn.execute(txtsql)
response.Redirect("main.asp")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText = "UPDATE 金融资产表 SET 应收帐款=(select 数额 from 短期债权)   "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>