addguding1.asp

来自「ASP+mssql 财务系统 【使用说明】 在Windows」· ASP 代码 · 共 28 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/userconn.inc"-->
<%
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
%>

<% 

clothes=request.Form("clothes")
furniture=request.Form("furniture")
automobile=request.Form("automobile")
house=request.Form("house")
other=request.Form("other")
response.Write(clothes)

Set Rs=Server.CreateObject("ADODB.Recordset")
txtsql="delete from 个人物品资产"
conn.execute(txtsql)
txtsql="insert into 个人物品资产 values("+clothes+","+furniture+","+automobile+","+house +","+other+")"
conn.execute(txtsql)
response.Redirect("main.asp")
%>