pj.asp

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

ASP

58 行

<!-- #include file="conn.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>
<%dim tj, pjtype
tj=request.QueryString("tj")
pjtype=request.Form("pjtype")
if tj >"" then
%>
<br>
<table width="50%" border="0" align="center" class="K">
  <tr>
    <td>
	 <form name="form1" method="post" action="" onSubmit="return checkform1(this)">
	 <div align="center">添加配件<br>配件类型：
	 <input name="pjtype" type="text" size="15"> 
	 <input type="submit" name="Submit" value="添加">
	 <input name="tj" type="hidden" value="<%=tj%>"> 
	 </div>
	 </form>
	</td>
  </tr>
</table>
<%end if%>
<% if pjtype>"" then
set rs=server.CreateObject("ADODB.Recordset")
rs.open ("select lxname from [lx] where lxname='"&pjtype&"'"),conn,1,2
if rs.eof=false then 
%>
<script language="javascript">
<!--
alert("该配件已经存在！");
-->
</script>
<%
response.End()
else
rs.addnew
rs("lxname")=pjtype
rs.update
rs.close
set rs=nothing
end if
%>
<script language="javascript">
<!--
location.href="<%=tj%>";
-->
</script>
<%
end if
%>
</body>
</html>

pj.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?