lr.asp

来自「销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等」· ASP 代码 · 共 94 行

ASP

94 行

<!--#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>

lr.asp - 源码说明

本页面展示了「销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等」中的 lr.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?