supplier.asp

汽车4s店库存管理系统

			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电子邮件</td>
			
          </tr>
		  <form name="reg" method="post" action="Supplier.asp" onSubmit="return Juge(this)" >
		  <tr> <input type="Hidden" name="action" value='<% If isedit then%>modify<% Else %>add<% End If %>'> 
		  <% If isedit then%><input type="Hidden" name="id" value="<%=rs("id")%>"> <% End If %>
            <td height="18" align="center"><input name="Supplier_name" type="text"  size="10"  value='<% if isedit then
		                                                         response.write rs("Supplier_name")
																  end if %>'></td>
            <td><input name="Contact_person" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("Contact_person")
																  end if %>'></td>
            <td><input name="Title" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("Title")
																  end if %>'></td>
			<td><input name="adr" type="text"  size="25" value='<% if isedit then
		                                                         response.write rs("adr")
																  end if %>'></td>
			<td><input name="tel" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("tel")
																  end if %>'></td>
			<td><input name="Facsimile" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("Facsimile")
																  end if %>'></td>
			<td><input name="Condition" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("Condition")
																  end if %>'></td>
			<td><input name="email" type="text"  size="10" value='<% if isedit then
		                                                         response.write rs("email")
																  end if %>'></td>
          </tr>
		  <tr class="but"> 
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">省  份</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">城  市</td>
			<td width="70%" colspan="6" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">备  注</td>			
          </tr>
		  <tr> 
            <td height="18" align="center"><% if isedit then%><%=rs("prov")%><%end if %><select name="prov" onChange="javascript:selectcity()">
			<option selected>选择</option>
              </select>
              <script language="javascript">                       
 ProvinceOptionMenu();                       
</script></td>
            <td><% if isedit then%><%=rs("city")%><%end if %><select name="city">
                <option selected>选择</option>
				
              </select></td>
            <td colspan="5"><textarea name="content" cols="80" rows="1"><% if isedit then
		                                                         response.write rs("content")
																  end if %></textarea></td>
			<td width="148"><input type="submit" class="button" value="<% if isedit then
		                                                         response.write "编辑"
																 else
																 response.write "添加"
																  end if %>"> </td>
          </tr></form>
		  
           </table>
        </fieldset>
		<%end if%>
      <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 >
        <TR>
          <TD height="25" align="center">供 应 商 列 表</TD>
              </TR>
            </TABLE>
			<form action="Supplier.asp" method="post" name="selform" >
  <table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" align="center">
    <tr> 
      
      <td width="100%" align="center" valign="top">
	  <fieldset style="width:95%">
        <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
          <tr class="but"> 
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">供应商名称</td>
            <td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">联系人</td>
			<td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">职 称</td>
			<td width="20%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">地 址</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电话号码</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">传真号码</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">付款条件</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">电子邮件</td>
			<td width="10%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">备 注</td>
            <td width="5%" height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'">操 作</td>
          </tr>
		 <%
set rs=server.CreateObject("ADODB.RecordSet") 
rs.Source="select* from Supplier"
rs.Open rs.Source,conn,1,1
if not rs.EOF then
do while not rs.eof
%>
<tr><td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><a href="Supplier.Asp?id=<%=rs("ID")%>&action=edit"><%=rs("Supplier_name")%></a></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Contact_person")%><%if rs("Contact_person")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Title")%><%if rs("Title")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("adr")%><%if rs("adr")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("tel")%><%if rs("tel")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Facsimile")%><%if rs("Facsimile")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("Condition")%><%if rs("Condition")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("email")%><%if rs("email")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><%=rs("content")%><%if rs("content")="" then%>&nbsp;<%end if%></td>
<td height="18" align="center" class="but" onMouseDown="this.className='tddown'" onMouseUp="this.className='but'" onMouseOut="this.className='but'"><input name="selBigClass" type="checkbox" id="selBigClass" value="<%=rs("ID")%>"></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<tr><td align="right" colspan="10" height="22"> <%if oskey="supper" or oskey="admin" then%>
        <input type="checkbox" name="checkbox" value="checkbox" onClick="javascript:SelectAll()"> 选择/反选
              <input onClick="{if(confirm('此操作将删除该信息！\n\n确定要执行此项操作吗？')){this.document.selform.submit();return true;}return false;}" type=submit value=删除 name=action2> 
              <input type="Hidden" name="action" value='del'><%end if%></td></tr>
        </table>
</fieldset>
	  
</td>
    </tr>
    <tr> 
      <td height="50" colspan="3" align="center">
        

        </td>
    </tr>
  </table>
</form>
			</TD>
              </TR>
          </table>
		          
      <table width="100%" border="0" cellspacing="0" cellpadding="4">
      
      </table>
  </TBODY>
</TABLE>
<%end sub%>
<P>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
  <TBODY>
  <TR vAlign=center>
    <TD align=middle width="100%"><!--#include file="footer.htm"--></TD>
  </TR></TBODY></TABLE></P></BODY></HTML>