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

📄 pj.asp

📁 销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等
💻 ASP
字号:
<!-- #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>

⌨️ 快捷键说明

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