change.asp

基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用

<!-- #include file="../check/check.asp" -->
<!-- #include file="../Conn/conn.asp" -->
<% 
   	id=request.Form("id")
   	numbers=request.Form("hidden")
   	types=request.Form("textfield2")
   	carname=request.Form("textfield3")
   	Load=cint(request.Form("textfield4"))
   	usedtime=cint(request.Form("textfield5"))
   	transportstyle=request.Form("textfield6")
   	drivername=request.Form("textfield7")
   	licencenum=request.Form("textfield8")
   	licencestyle=request.Form("textfield9")
   	drivertime=cint(request.Form("textfield10"))
   	if request.form("textarea")="" then
		meg="暂时没有任何关于该车辆的备注信息"
	else 	
   		meg=request.Form("textarea")
	end if 
   	names=request.Form("textfield13")
   	phone=request.Form("textfield14")
   	yonghu=session("name")
   	sql="select * from tb_CarMessage where TradeMark='"&numbers&"' and Brand='"&carname&"' and Style='"&types&"' and CarLoad="&Load&" and UsedTime="&usedtime&" and DriverName='"&drivername&"' and LicenceNumber='"&licencenum&"' and LicenceStyle='"&licencestyle&"' and TranSportStyle='"&transportstyle&"' and LinkMan='"&names&"' and LinkPhone='"&phone&"' and Remark='"&meg&"' and DriverTime="&drivertime&" and UserName='"&yonghu&"'" 
   	rs.open sql,conn
   	if not rs.eof or not rs.bof then 
%>
		<script language="javascript">
			alert("您还没有修改车辆信息");
			history.back();
		</script>
<%
   	else 
   		set rs=nothing
   		conn.close
   		set conn=nothing
%>
<!-- #include file="../Conn/conn.asp" -->
<%
   		sql="update tb_CarMessage set TradeMark='"&numbers&"',Brand='"&carname&"',Style='"&types&"',CarLoad="&Load&",UsedTime="&usedtime&",DriverName='"&drivername&"',LicenceNumber='"&licencenum&"',LicenceStyle='"&licencestyle&"',TranSportStyle='"&transportstyle&"',LinkMan='"&names&"',LinkPhone='"&phone&"',Remark='"&meg&"',DriverTime="&drivertime&",UserName='"&yonghu&"',IssueDate='"&date()&"' where ID="&id
   		rs.open sql,conn
   		set rs=nothing
   		conn.close
   		set conn=nothing
%>
<!-- #include file="../Conn/conn.asp" -->
<% 
   		sql="select * from tb_CarMessage where TradeMark='"&numbers&"' and Brand='"&carname&"' and Style='"&types&"' and CarLoad="&Load&" and UsedTime="&usedtime&" and DriverName='"&drivername&"' and LicenceNumber='"&licencenum&"' and LicenceStyle='"&licencestyle&"' and TranSportStyle='"&transportstyle&"' and LinkMan='"&names&"' and LinkPhone='"&phone&"' and Remark='"&meg&"' and DriverTime="&drivertime&" and UserName='"&yonghu&"'"   
   		rs.open sql,conn
   		if not rs.eof or not rs.bof then 
%> 
			<script language="javascript">
				alert("车辆信息成功修改");
				window.close();
				opener.location.reload();
			</script>
<%
   		end if 
   end if 
%>