📄 product_add.asp
字号:
<!--#include file="../inc/CheckAdmin.asp"-->
<!--#include file="../inc/Config.asp"-->
<!--#include file="../inc/Conn.asp"-->
<%
Dim Language,table,Sortid
Language=formatStr(Request("Language"))
if Language="" then Language="C"
table_behind="ProductSort_"
table=Get_Table(table_behind,Language)
if request.form("add")=1 then
Sortid=request("sel1")
Sortid2=request("sel2")
Sortid3=request("sel3")
fs=formatStr(Trim(Request.Form("fs")))
'response.Write("select * from houyun where h_from="&sortid&" and h_to="&sortid3&" and h_fangshi='"&fs&"' order by h_id desc")
'response.End()
rs.open"select * from houyun where h_from="&sortid&" and h_to="&sortid3&" and h_fangshi='"&fs&"' order by h_id desc",conn,1,3
if rs.eof then
rs.addnew
rs("h_from")=Sortid
rs("h_to")=Sortid3
rs("h_area")=Sortid2
rs("h_lifang")=request("qh")
rs("h_price")=request("zh")
rs("h_time")=request("sx")
rs("h_fangshi")=request("fs")
rs("h_licheng")=request("lc")
rs("h_content")=request("sm")
rs.update
else
check_alert "已经存在这条路线了！","Product_Add.asp"
end if
rs.close
set rs=nothing
closeconn
response.redirect("Product_Admin.asp")
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站管理系统</title>
<link href="../Css_Main.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {color: #FF0000}
.style1 {color: #CCCCCC}
.Maxl { height: auto;
width: 100px;
}
-->
</style>
</head>
<script language="JavaScript">
function GetResult(str,classid)
{
/*
*--------------- GetResult(str,classid) -----------------
* GetResult(str)
* 功能:通过XMLHTTP发送请求,返回结果.
* 参数:str,字符串,发送条件;classid,数字,菜单级别
* 实例:GetResult(document.all.userid.value,1);
*--------------- GetResult(str,classid) -----------------
*/
//定义菜单级数，菜单ID数组，菜单对应字段数组
var MenuIdArr,MenuFieldArr,MenuClass
MenuIdArr= new Array()
MenuFieldArr=new Array()
MenuClass=2
MenuIdArr[1]="sel2"
MenuIdArr[2]="sel3"
//MenuIdArr[3]="sel3"
//MenuIdArr[4]="sel4"
MenuFieldArr[1]="ht_name"
MenuFieldArr[2]="ht_name"
//MenuFieldArr[3]="ps_name"
//MenuFieldArr[4]="ps_name"
if (window.XMLHttpRequest) { // Mozilla, Safari, ...
http_request = new XMLHttpRequest();
} else if (window.ActiveXObject) { // IE
http_request = new ActiveXObject("Microsoft.XMLHTTP");
}
var linkurl="../../inc/ajax_server.asp?classid="+classid+"&sel="+str+"&fieldname="+MenuFieldArr[classid+1]
http_request.open("GET",linkurl,false);
http_request.send(null);
//服务器端处理返回的是经过escape编码的字符串.
//在页面显示服务器查询结果
var returntxt=unescape(http_request.responseText)
/*if(returntxt.length>0)
{document.all,ajax.innerHTML="服务器返回结果：<font color='red'>"+returntxt+"</font> [Powered by AJAX]"}
else
{document.all,ajax.innerHTML=""}*/
//通过XMLHTTP返回数据,开始构建Select.
//BuildSel(returntxt,eval("document.all."+MenuIdArr[classid+1]))
BuildSel(returntxt,document.getElementById(MenuIdArr[classid+1]))
//============更改下下级以下菜单为空==============
var kkk
for(kkk=classid+2;kkk<=MenuClass;kkk++)
{
submenu=document.getElementById(MenuIdArr[kkk])
submenu.length=1
submenu.options[0].selected=true
}
}
function BuildSel(str,sel)
{
/*
*--------------- BuildSel(str,sel) -----------------
* BuildSel(str,sel)
* 功能:通过str构建Select.
* 参数:str,字符串,由服务端返回的.有特定结构"字符串1|,字符串2,字符串3"
* 也可为"字符串1序号|字符串1文本,字符串2序号|字符串2文本,字符串3序号|字符串3文本",如本例
* 参数:sel,要构建的Select
* 实例:BuildSel(unescape(oBao.responseText),document.all.sel2)
*--------------- BuildSel(str,sel) -----------------
*/
//先清空原来的数据.
sel.options.length=0;
var arrstr = new Array();
arrstr = str.split(",");
//开始构建新的Select.
sel.options.add(new Option( "---请选择---",""));
if(str.length>0)
{
for(var i=0;i<arrstr.length;i++)
{
//分割字符串
var subarrstr=new Array
subarrstr=arrstr[i].split("|")
//生成下级菜单
sel.options.add(new Option(subarrstr[1],subarrstr[0]));
}
sel.options[0].selected=true
}
}
</script>
<script language="JavaScript">
function Check()
{
if (form.sel1.value == "")
{alert(" 请选择起运站。");
form.sel1.focus();
return false;
}
if (form.sel3.value == "")
{alert(" 请选择目的站。");
form.sel3.focus();
return false;
}
if (form.qh.value == "")
{alert(" 轻货不能为空。");
form.qh.focus();
return false;
}
if (form.zh.value == "")
{alert(" 重货不能为空。");
form.zh.focus();
return false;
}
if (form.sx.value == "")
{alert(" 到达时限不能为空。");
form.sx.focus();
return false;
}
document.form.submit();
}
</script>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr>
<td class="title_dh"><div align="center">路线管理——添加路线</div></td>
</tr>
</table>
<form name="form" action="" method="post" onSubmit="return Check()">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title_top">
<td colspan="2"><div align="center">添加路线</div></td>
</tr>
<tr class="tdbg">
<td width="20%" height="26"><div align="right"><strong>发货城市：</strong></div></td>
<td><select name="sel1" class="Maxl" id="sel1">
<option value="">---请选择---</option>
<%sql="select * from hfrom order by hf_id"
set rs=conn.execute(sql)
do while not rs.eof%>
<option value="<%= rs("hf_id") %>"<% If cstr(rs("hf_id"))=hfrom Then response.Write(" selected")%>><%= rs("hf_name") %></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select>
<span class="style2">*
<input type="hidden" name="add" value=1 id="add">
</span></td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>区域：</strong></div></td>
<td><select name="sel2" class="Maxl" id="sel2" onChange="GetResult(this.value,1)">
<option value="">---请选择---</option>
<%sql="select * from harea order by ha_id"
set rs=conn.execute(sql)
do while not rs.eof%>
<option value="<%= rs("ha_id") %>"<% If cstr(rs("ha_id"))=hfrom Then response.Write(" selected")%>><%= rs("ha_name") %></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select>
(选择区域可快速找到到货城市。)</td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>收货城市：</strong></div></td>
<td><select name="sel3" class="Maxl" id="sel3">
<option value="">---请选择---</option>
<%sql="select * from hto order by ht_id"
set rs=conn.execute(sql)
do while not rs.eof%>
<option value="<%= rs("ht_id") %>"<% If cstr(rs("ht_id"))=hfrom Then response.Write(" selected")%>><%= rs("ht_name") %></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select>
<span class="style2">*</span></td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>运货方式：</strong></div></td>
<td><select name="fs" class="Maxlenght" id="fs">
<option value="公路"<% If fs="公路" Then response.Write(" selected")%>>公路</option>
<option value="铁路"<% If fs="铁路" Then response.Write(" selected")%>>铁路</option>
<option value="航空"<% If fs="航空" Then response.Write(" selected")%>>航空</option>
</select></td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>轻货：</strong></div></td>
<td><input name="qh" type="text" id="qh" size="40">
元/立方米
<span class="style2">*</span></td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>重货：</strong></div></td>
<td><input name="zh" type="text" id="zh" size="40">
元/ 公斤
<span class="style2">*</span> </td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>到达时限：</strong></div></td>
<td><input name="sx" type="text" id="sx" size="40">
<span class="style2">*</span> </td>
</tr>
<tr class="tdbg" style="display:">
<td><div align="right"><strong>里程：</strong></div></td>
<td><input name="lc" type="text" id="lc" size="40"> </td>
</tr>
<tr class="tdbg">
<td><div align="right"><strong>说明：</strong></div></td>
<td><textarea name="sm" cols="33" rows="5" id="sm"></textarea> </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40">
<div align="center"><span class="style1">
<input name="Submit" type="button" id="Submit" value="添加" onClick="Check()">
<input name="reset" type="reset" id="reset" value="取消">
</span> </div></td>
</tr>
</table></form>
</body>
</html>
<script language="javascript">
form.sel1.focus();</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -