baoxiu_save.asp

ASP+Accesss数据库设备WEB报修

<!--#include file ="conn.asp"-->
<!--#include file="admin/ChkURL.asp"-->

<%
if session("baoxiuuser_id")="" then
   	response.write "<script language=jscript>alert('对不起，您不是本站的注册用户或没有登陆系统！');window.location.href='index.asp';</script>"
	response.end
end if
'--------------------------
 bx_id=session("bx_id")
 baoxiu_master=session("baoxiuuser_name")  '会员帐号
 baoxiu_user=request("baoxiu_user")  '报修人姓名
 baoxiu_lb=request("baoxiu_lb")  '报修物品类别
 baoxiu_wp=request("baoxiu_wp")  '报修物品名称
 baoxiu_yuanyin=request("baoxiu_yuanyin")  '报修主题
 baoxiu_banji=request("baoxiu_banji")  
 baoxiu_class=request("baoxiu_class")   '报修部门
 baoxiu_date=request("baoxiu_date")  '希望维修日期
 contact=request("contact")     '联系电话
 guzhang=request("guzhang")        '报修故障显现及要求
 ip=request.servervariables("remote_addr")
 star_time=date                    

 '----------------------------
set rs=server.CreateObject("adodb.recordset")
'锁定指定记录通过with(updlock)完成。
sql="select baoxiu_id from baoxiu with(updlock) "
rs.open sql,conn,1,3
'将日期转换为YYYYMMDD格式的字符串
if len(month(date()))=1 then
	cmonth="0"& cstr(month(date()))
else
	cmonth=cstr(month(date()))
end if
if len(day(date()))=1 then
cday="0"& cstr(day(date()))
else
cday=cstr(day(date()))
end if
if not rs.eof then 
set rs_M=server.CreateObject("adodb.recordset")
sql="select max(bx_id) as bx_id from baoxiu"
rs_M.open sql,conn,1,3
str=rs_M("bx_id")
no=cstr(int(mid(str,11,3))+1)
select case len(no)
case 1
cno="00"+no
case 2
cno="0"+no
case 3
cno=no
case else
cno="001"
end select
intno="BX"&cstr(year(date()))&cmonth&cday&cno '组成新的数据编号
bx_id=intno
end if
'------------------------------
 set rs=server.createobject("adodb.recordset")	
 conn.open connstr
 sql="select * from baoxiu"
 rs.open sql,conn,3,2
 rs.addnew
'---------------------------
 rs("bx_id")=bx_id
 rs("baoxiu_master")=baoxiu_master
 rs("baoxiu_user")=baoxiu_user
 rs("baoxiu_lb")=baoxiu_lb
 rs("baoxiu_wp")=baoxiu_wp
 rs("baoxiu_yuanyin")=baoxiu_yuanyin
 rs("baoxiu_banji")=baoxiu_banji
 rs("baoxiu_class")=baoxiu_class
 rs("baoxiu_date")=baoxiu_date
 rs("contact")=contact
 rs("guzhang")=guzhang
 rs("star_time")=star_time
 rs("ip")=ip
 rs.update
 rs.close
%>
<script language="javascript">
	alert("报修信息保存成功！");
	window.location.href="index.asp";
</script>