saveentry.asp

ASP+SQL Server动态网站开发从基础到实践教程

<!--#include file="connection.asp"-->

<%
if session("userid") = "" then  '验证权限
	Response.Redirect "login.htm"
end if
%>

<%
dim xtitle_id, xparticulars, xddate, xamount
'获取财务开支信息
xtitle_id = request("title_id")
xddate = request("Ddate")
xparticulars = request("particulars")
xamount = cint(Request("amount"))

if instr(1,xparticulars,"'") > 0 then  '替换单引号
	xparticulars = replace(xparticulars,"'","''")
end if


conn.open = connstring  '打开数据库

set rs = Server.CreateObject("adodb.recordset")
rs.open "select * from expenses order by e_id desc",conn
dim xe_id 

xe_id = 1

if not rs.EOF then  '设定开支编号
	xe_id = clng(rs.Fields("e_id")) + 1
end if

'将财务开支信息
set rs1 = Server.CreateObject("adodb.recordset")
rs1.open "insert into expenses values(" & xe_id & ",'" & xddate & "','" & xparticulars & "'," & xamount & "," & xtitle_id & ",'" & session("userid") & "')",conn

'将年月日保存到session变量中 
session("Sday") = right("0" & day(xddate),2)
session("Smonth") = Month(xddate)
session("Syear") = Year(xddate)

Response.Redirect "main.asp?flag=saved"
%>