data.asp
来自「基于C#语言的一个物流信息网数据库系统开发案例的源代码 ,很实用」· ASP 代码 · 共 65 行
ASP
65 行
<!-- #include file="../check/check.asp" -->
<!-- #include file="../Conn/conn.asp" -->
<%
numbers=request.Form("numbers")
types=request.Form("type")
carname=request.Form("carname")
Load=request.Form("loads")
usedtime=cint(request.Form("usetime"))
transportstyle=request.Form("style")
drivername=request.Form("name")
licencenum=request.Form("number")
licencestyle=request.Form("styles")
drivertime=cint(request.Form("time"))
if request.form("meg")="" then
meg="暂时没有任何关于该车辆的备注信息"
else
meg=request.Form("meg")
end if
names=request.Form("linkman")
phone=request.Form("phone")
yonghu=session("name")
sql="select * from tb_CarMessage where TradeMark='"&numbers&"'"
rs.open sql,conn
if not rs.eof or not rs.bof then
%>
<script language="javascript">
alert("该牌照的车辆已经注册!");
window.close();
</script>
<%
else
set rs=nothing
conn.close
set conn=nothing
%>
<!-- #include file="../Conn/conn.asp" -->
<%
sql="insert into tb_CarMessage values('"&numbers&"','"&carname&"','"&types&"','"&Load&"',"&usedtime&",'"&drivername&"',"&drivertime&",'"&licencenum&"','"&licencestyle&"','"&transportstyle&"','"&names&"','"&phone&"','"&meg&"','"&Date()&"','"&yonghu&"')"
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
%>
<object type="application/x-oleobject" id=closes classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">
<param name="command" value="close">
</object>
<script language="javascript">
clo();
function clo()
{
alert("信息添加成功!");
window.close();
opener.location.reload();
}
</script>
<%
end if
end if
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?