deliver.asp

来自「非常有商业价值的软件」· ASP 代码 · 共 128 行

ASP
128 行
字号 
<!--#include file="chk.asp"-->
<!--#include file="db_conn.asp"-->
<!--#include file="../my_lib/my_request.asp"-->
<%
action=my_request("action",0)
select case action
case "wadd"
call wadd()
case "modifyz"
call modifyz()
case "del"
call del()
case ""
case else
response.write "操作错误"
end select
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=stylesheet type=text/css>
<title>送货管理</title>
</head>

<body>

<div align="center">
	<table border="1" width="760" id="table1" style="border-collapse: collapse" bordercolor="#EFEFEF">
		<tr>
			<td colspan="6">
			<p align="center">送货设置</td>
		</tr>
		<tr>
			<td width="42">ID</td>
			<td width="258">送货方式</td>
			<td width="104">费用</td>
			<td width="157">添加时间</td>
			<td width="165" colspan="2">操作</td>
		</tr>
		<%
		sql="select * from deliver"
		set rs=server.CreateObject ("adodb.recordset")
		rs.open sql,conn,1,1
		if rs.eof then
		response.write "<td width=726 colspan=6>暂时还没有任何数据，请添加</td>"
		else
		i=1
		do while not rs.eof
		set id=rs("id")
		set deliver_name=rs("deliver_name")
		set price=rs("price")
		set addtime=rs("addtime")
		%>
		<form action="deliver.asp">
		<tr>
			<td width="42"><%=i%></td>
			<td width="258">
			<input type="text" name="deliver_name" size="35" maxlength="50" value="<%=deliver_name%>"></td>
			<td width="104">
			<input type="text" name="price" size="7" maxlength="10" value="<%=price%>">元
			<input type="hidden" name="id" value="<%=id%>">
			<input type="hidden" name="action" value="modifyz"></td>
			<td width="157"><%=addtime%></td>
			<td width="83"><input type="submit" value="修改保存" name="B4"></td>
			<td width="82"><a href="deliver.asp?id=<%=id%>&action=del">删除</a></td>
		</tr>
		</form>
		<%
		rs.movenext
		i=i+1
		loop
		end if
		rs.close
		set rs=nothing
		%>
		<form action="deliver.asp?action=wadd" method=post>
		<tr>
			<td colspan="6">添加送货方式：<input type="text" name="deliver_name" size="20" maxlength="50">费用：<input type="text" name="price" size="7" maxlength="10">元 
			<input type="submit" value="添加" name="B1">
			<input type="reset" value="重置" name="B3"></td>
		</tr>
		</form>
	</table>
</div>

</body>

</html>
<%
sub wadd()
deliver_name=my_request("deliver_name",0)
price=my_request("price",1)
if deliver_name="" or price="" then
response.write"<SCRIPT language=JavaScript>alert('信息未填写完整');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
sql="insert into deliver (deliver_name,price,addtime) values('"&deliver_name&"',"&price&",'"&now()&"')"
conn.execute(sql)
response.redirect "deliver.asp"
end sub


sub modifyz()
id=my_request("id",1)
deliver_name=my_request("deliver_name",0)
price=my_request("price",1)
if deliver_name="" or price="" or id="" then
response.write"<SCRIPT language=JavaScript>alert('信息未填写完整或操作错误');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
sql="update deliver set deliver_name='"&deliver_name&"',price="&price&" where id="&id
conn.execute(sql)
response.redirect "deliver.asp"
end sub

sub del()
id=my_request("id",1)
sql = "delete from deliver where id="&id
conn.execute(sql)
response.redirect "deliver.asp"
end sub
'conn.close
'set conn=nothing
%>

deliver.asp - 源码说明

本页面展示了「非常有商业价值的软件」中的 deliver.asp 源码文件，采用 ASP 编程语言编写，共 128 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与商相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?