upgonghuoshang.asp

来自「基础进销存BS系统 ASP+Sql 功能不断完善中」· ASP 代码 · 共 53 行

ASP
53
字号
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="Style.asp" -->
  <head>

    <title><%=appname%></title>
	<% dim id ,leixing
	id=trim(Request("id"))
	leixing=trim(Request("leixing"))
 set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_kehuziliao where id='"&id&"'"
    rs.Open sql,conn,0,2,1
	if not( rs.EOF or rs.BOF) then
	
		%>
    

		
    
	<script language="javascript">
<!--
function ockgo()
{
 if (document.form1.kehubianhao.value=="")
	 {
		alert("请输入客户编码");
		return false;
	 }
 if (document.form1.kehuname.value=="")
	 {
		alert("请输入客户名称");
		return false;
	 }
 if (document.form1.spdanwei.value=="")
	 {
		alert("请输入客户联系人");
		return false;
	 } 
	
 else
	 document.Form1.submit();
}
-->
</script>
  </head>
<body>
<form name="form1" id="form1" method="post" action="updategonghuoshang.asp">
  <table width="657" height="260" border="0">
    <tr class="blue">
      <td width="89" height="21">客户编号 :     
      <td width="210"><input name="kehubianhao" type="text" class="InputText" style="width:160;height:19;background-color:#FFFFFF;" value="<%=rs("kehubianhao")%>" size="25" readonly=""/></td>
      <td width="90">*必写

⌨️ 快捷键说明

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