⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lr.asp

📁 销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!--#include file="sub.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>宏宇配件系统——录入</title>
<script language="javascript" src="check.js"></script>
</head>
<body>
<br>
  <table width="20%" border="0" align="center" class="K">

    <tr>
      <td colspan="4"><div align="center">配 件 录 入</div></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td><select name="select1" id="select1" tabindex="1" onChange="openpjname(this)">
        <option value="type1">查询录入</option>
        <option value="name1">手工录入</option>
      </select>
	  </td><form name="pjlr" method="post" action="listpj.asp?acction=lr" onSubmit="return checkpjlr1(this)">
      <td>
	  <%
urlout
response.Write("<select name='pjtype' id='pjtype' tabindex='2' onChange='changename(this)'>"&Chr(13)&"<option value='0'>请选择配件类型</option>"&Chr(13))
Set ors=Server.CreateObject( "ADODB.Recordset")
ors.open "select lxid,lxname from lx",conn
	  while ors.eof=false
	  response.Write("<option value='"&ors("lxid")&"'>"&ors("lxid")&"-"&ors("lxname")&"</option>")&Chr(13)
	  ors.movenext
	  wend
	  ors.close
	  set ors=nothing
	  response.Write("<option value='pj.asp'>t-添加配件</option>"&Chr(13)&"</select>")
    %></td>
      <td  id="pjnr">
	  <%
      if request.QueryString("pjlx")>0 then
	  dim pjlx
	  pjlx=request.QueryString("pjlx")
	  response.Write("<script> document.getElementById('pjtype').selectedIndex="&pjlx&";</script>")
	  response.Write("<select name='pjname' tabindex='3'>"&Chr(13))
	  Set rs=Server.CreateObject( "ADODB.Recordset")
	  rs.open "select pjname from [home] where pjlx="&pjlx,conn
	  while rs.eof=false
	  response.Write("<option value='"&rs("pjname")&"'>"&rs("pjname")&"</option>")&Chr(13)
	  rs.movenext
	  wend
	  rs.close
	  set rs=nothing
	  response.Write("</select>")
    else%>	  
	  <input name="pjname" type="text" id="pjname" tabindex="3" value="配件名称" size="15" onFocus="javascript:this.value=''" disabled=true>
	  <% end if%>
	  </td>
      <td><input type="submit" name="Submit" value=" 确 定 " tabindex="4"></td></form>
    </tr>
	<tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>

</body>
</html>
<script>
<!--
function openpjname(selObj){
if (selObj.options[selObj.selectedIndex].value=="name1") document.getElementById("pjnr").innerHTML='<input name="pjname" type="text" id="pjname" tabindex="3" value="配件名称" size="15" onFocus=javascript:this.value="">';
else {document.pjlr.pjname.disabled=true;
document.getElementById('pjtype').selectedIndex=0;
}
}
function changename(selObj){
if (selObj.options[selObj.selectedIndex].value=="pj.asp"){
    location.href ="pj.asp?tj="+location.href;
}else{
var whichEl = document.getElementById("select1");
if (selObj.options[selObj.selectedIndex].value > 0 && whichEl.options[whichEl.selectedIndex].value=="type1" ){
location.href ="lr.asp?pjlx="+selObj.options[selObj.selectedIndex].value;
}
}
}
-->
</script>

⌨️ 快捷键说明

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